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J. Hückstädt 
CP/M 2.2 Anwenderhandbuch 
CPC 464/664/6128 


T Mossakowski/J Janneck 


ROM-Listing CPC 464/664/6128 
Februar 1986, 676 Seiten 


Markt&fTechnik Markt&Technik 


Dezember 1985, 212 Seiten 


Wenn Sie glücklicher Besitzer eines Schneider- 
Computers sind und mehr wissen wollen über 
das leistungsstarke Betriebssystem CP/M 2.2 
dann ist dieses Buch genau das richtige für Sie! 
Es behandelt CP/M 2 2 nicht nur ın seiner allge- 
meinen Form, wie sie für sämtliche CP/M- 
Computer gültig ıst, sondern bezieht auch die 
Hardware der CPC-Computer mit ein 


Best.-Nr. MT 859 
ISBN 3-89090-204-9 
DM 46,-/sFr. 42,30/68 358,80 













J Hückstädt 


CP/M Plus Anwenderhandbuch 


CPC 6128 


1. Quartal 1986, ca. 250 Seiten 


Ein unentbehrliches Nachschirgewerk fur dıe 
praktische Arbeit mit CP/M-Plus und seinen 
Hilfsprogrammen Mit zahlreichen Beispielen 
Best.-Nr. MT 90197 
ISBN 3-89090-197-2 
DM 46,-/sFr. 42,30/08 358,80 





C Straush 
Schneider CPC 


Grafik-Programmierung 
Februar 1986, 225 Seiten 


Dieses Buch wendet sıch an 
die Schneider CPC-Besitzer 
die alles über die Grafikfähig- 
keiten ihres Computers wis- 
sen wollen Es bietet einen 
umfassenden Überblick uber 
die verschiedenen Anwen- 
dungsbereiche der Grafikpro 
grammierung. zwei- und dreı- 
dımensionale Diagrammdar- 
stellungen, Definition und 
Bewegung von Sprites, Ent 
wurf von Titelgrafiken, Einsatz 
der Grafik beı der Unterstut 
zung anderer Programme 

® Besonders interessant eın 
Sprite-Generator. eın Malpro 
gramm für hochauflosende 
Grafik, ein Programm zur 
Erstellung von Titelgrafiken 
sowie ein universelles Dar- 
stellungsprogramm 

Best.-Nr. MT 90182 

ISBN 3-89090-182-4 

DM 46,-/sFr. 42,30/0S 358,80 






J. Hückstädt 


Der Schneider CPC 6128 
1985, 273 Seiten 


Dieses Buch ıst fürjeden CPC 
6128-Besitzer eine wertvolle 
Hilfe, die vielfachen Möglich- 
keiten dıeses bisher eınmalı 
gen Computers kennenzuler- 
nen und anzuwenden. Der 
Computerneuling wırd Schritt 
für Schritt in den Umgang mit 
dem Computer und ın die 
BASIC-Programmierung eın- 
geführt, bıs er alle notwendı- 
gen kenntnisse besitzt, die 
mancher Profi bereits mit- 
brıngt Aber an dieser Stelle 
wird das Programmieren mit 
dem CPC 6128 erst ınteres- 
sant. nämlich dann, wenn es 
darum geht, eine eigene 
Dateiverwaltung aufzubauen 
oder Grafik und Sound zu pro- 
grammıeren. Weiterhin erfah- 
ren Sıe alles über CP/M Plus 
auf dem CPC 6128 

Best.-Nr. MT 849 

ISBN 3-89090-192-1 

DM 46,-/sFr. 42,30/68 358,80 


Bestellungen im Ausland bitte an den 
Buchhandel oder an untenstehende Adressen. 
Schweiz: Markt & Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300 Zug, ® 042/41 5656 
Österreich: Ueberreuter Media Handels- und 
Verlagsges. mbH, Alser Straße 24, 1091 Wien, 


= 0222/48 15 38-0 


Irrtümer und Änderungen vorbehalten. 


CP/M 2.2 


ANWENDER 
HANDBUCH 


Jürgen Hücksrüet 


Markt&itechnik 


C Straush 
DR LOGO auf dem 


Schneider CPC 
2. Quartal 1986, ca. 250 S. 


Speziell auf die Schneider 
Computer anwendbar finden 
Sıe ın diesem Buch eine struk- 
turierte Anleitung für die prak- 
tische Arbeit mit der Program- 
miersprache LOGO. Mit zahl- 
reichen Beispielen zur Grafik- 
und Soundprogrammierung 
Das letzte Kapitel enthält 
nützliche Utilities (zB. SORT- 
Routinen), vieleInformationen 
über dıe Aufteilung des Spei- 
chers (Speicheranalyse und 
Tastendefinition) Erklärun- 
gen zu den Editorkommandos 
über die deutschen LOGO- 
Befehle sowie Lösungsvor- 
schläge zu den Aufgaben 
Best.-Nr. MT 90210 

ISBN 3-89090-210-3 

DM 46,-/sFr. 42,30/0$ 358,80 





Markt&Technik 


H Tischer 
Programmentwicklung 
unter CP/M 2.2 auf dem 


CPC 464/664 
Februar 1986, 336 Seiten 


Dieses Buch vermittelt alle 
Informationen die zum selb 
ständigen Entwickeln von 
CP/M 2.2-Programmen nötig 
sind Besprochen wird 
sowohl die grundlegende 
Funktionsweise des CP/M 
Betriebssystems als auch alle 
dern Anwender schon zur Ver- 
füugung stehenden System- 
routinen, die diesem viel 
Arbeit ersparen. Zwei Kapitel 
beschäftigen sıch dabeı aus- 
schließlich mit den zusätzli- 
chen Möglichkeiten, die nur 
die Computer CPC 464/664 
bieten 

Kenntnisse der 8080- oder 
Z80-Assemblerspracne sind 
erforderlich 

Best.-Nr. MT 90209 

ISBN 3-89090-209-X 

DM 52,-/sFr. 47,80/6S 405,60 


Markt&fechnik 





Unternehmensbereich Buchverlag 





Hans-Pinsel-Straße 2, 8013 Haar bei München 





Routine. 


Dieses Buch enthält ın konzentrierter Form 
umfassende Informationen über den Aufbau 
Ihres Computers. Es kann sıch daher schnell zu 
einem unentbehrlichen Arbeitsbuch für die Pro- 
grammıerung entwickeln, Um es optimal nutzen 
zu können, sollte man mit dem Schneider- 
BASIC vertraut sein und erste Erfahrungen in 
der Maschinensprache des Z80 besitzen 

Zu Jeder Routine im Listing sind die Übergabe- 
Parameter aufgeführt. Verschiedene Tabellen 
erleichtern das Auffinden einer bestimmten 


Best.-Nr. MT 90134 
ISBN 3-89090-134-4 
DM 64.-/sFr. 58,90/08 499,20 





Th, Erpel 





C Straush 
CPC 464 - Programmieren 


in Maschinensprache 
1985, 276 Seiten 


Dieses Buch weiıht ın die 
Arbeitsweise des BASIC 
Interpreters ein und erklärt die 
Funktionsweise der Bauteile 
des Geräts und deren Zusam 
menwirken 

Best.-Nr. MT 829 

ISBN 3-89090-166-2 

DM 46,-/sFr. 42,30/0$8 358,80 


Dr. P. Albrecht 


MULTIPLAN für den 


Schneider CPC 

1985, 226 Seiten 

Best.-Nr. MT 835 

ISBN 3-89090-186-7 

DM 49,-/sFr. 45,10/68 382,20 





CPC-BASIC-Kurs 
November 1985, 376 Seiten 


Ein Buch für den Einstieg ın die Bedienung und 
Programmierung der Schneider-Computer 
Best.-Nr. MT 828 

ISBN 3-89090-167-0 

DM 46,-/sFr. 42,30/68 358,80 





G. Jürgensmeier 


WordStar 3.0 mit 
MailMerge für den 
Schneider CPC 

1985, 435 Seiten 

Das unentbehrliche Zusatz 
Handbuch fur die Arbeit mit 
dem Schneider CPC 

Best.-Nr. MT 779 

ISBN 3-89090-180-8 

DM 49,-/sFr. 45,10/0$ 382,20 
Dr P Albrecht . 
dBASE N für den 
Schneider CPC 

1985, 280 Seiten 

Best.-Nr. MT 837 

ISBN 3-89090-188-3 

DM 49,-/sFr. 45,10/08 382,20 
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Leistungsfühige Programmiersprachen 
für Schneider CPC 464/664/6128 + Joyce 


Pascal/MT+ 


Eine der umfangreichsten Pascal-Imple- 
mentationen für 8-Bit-Mikrocomputer. 
Pascal/MT+ ist ein volles ISO-Standard- 
Pascal, das um eine leistungsfähige 
Programmierumgebung für Industrie-, Ge- 
schäfts- und Ausbildungs-Einsatz sowie 
Möglichkeiten zur Systemprogrammierung 
erweitert wurde. 

Pascal/MT+ erweitert die bekannten Vor- 
teile der strukturierten Sprache Pascal. Es 
ist schneller, vielseitiger, portabler und in 
anspruchsvollen Anwendungen, die die 
Entwicklung separater Programm-Module 
erfordern, einfacher zu verwenden ERONA I DIET RESEARCH TE CREAIORS OF CRM 

3"-Diskette für CPC 464*, 664*, 6128, 

Direkte Umsetzung in schnellen 


Objekt-Code 

Im Unterschied zu Compilern, die in einen 
Zwischencode übersetzen, wandelt Pascal/MT+ direkt in schnellen Objekt-Code um. 
Die Ausführungszeiten sind deshalb wesentlich besser als bei traditionellen Pseudo- 
Code-Compilern. 


Das Pascal/MT+-Paket beinhaltet: 


‚Joyce PCW 8256 
Handbuch in englischer Sprache 


© einen Compiler, der relokatierbare Objekt-Dateien erzeugt, 
© einen Linker, der lauffähige Programme erzeugt, 
© eine Laufzeitbibliothek 

® einen Disassembler, der die Untersuchung des erzeugten Codes ermöglicht, und 
® einen Debugger, der einen symbolischen Test eines Programms erlaubt 


Die Bibliothek enthält Routinen von der Berechnung transzendenter Funktionen bis zur 
Verwendung von Maschinen-Interrupten. 


Ideal für Geschäfts-, Industrie- und Ausbildungs-Einsatz 


Zusätzlich zu den numerischen Standard-Datentypen unterstützt Pascal/MT+ entweder 
Fließkommazahlen oder binär-codierte Dezimalzahlen (BCD) und erzielt damit die in 
kommerziellen Anwendungen so wichtige Genauigkeit von Ergebnissen ohne Run- 
dungsfehler. 

Für industrielle Anwendungen bietet Pascal/MT+ den Vorteil von ROM-fähigem Maschi- 
nencode, Möglichkeiten zur Reduzierung der Programmgröße und erweiterte Ein-/Aus- 
gabefähigkeiten. 

Für den Einsatz im Ausbildungs- und Lehrbereich empfiehlt sich Pascal/MT+, weil es 
eine volle Implementation von Pascal ist, die man leicht erlernen kann, aber später auch 
bei gestiegenen Ansprüchen noch leistungsfähig ist. 


Genügt professionellen Ansprüchen 


Pascal/MT+ wurde für die hohen Ansprüche professioneller Softwareentwickler und 
erfahrener Anwender entwickelt. Pascal/MT+ wird mit ausführlicher Dokumentation in 
englischer Sprache geliefert. 


Hardwarevoraussetzungen 


Pascal/MT+ läuft auf den Schneider-Computern CPC 464 und CPC 664 (mit Speicher- 
erweiterung), dem CPC 6128 und dem PCW 82586 (Joyce) unter CP/M und CP/M-Plus. 
Kompilierte Programme sind, bei entsprechender Größe, auch auf dem CPC 464 und 
CPC 664 ohne Speichererweiterung lauffähig. 


Die Vorteile von Pascal/MT+ auf einen Blick: 


Superset des ISO-Standard-Pascal 

Kompilierung separater Module 

erzeugt effektiven Maschinencode 

komplette Entwicklungstools 

erweiterte Datentypen (BYTE, WORD, LONGINT, STRING) 
Bit- und Byte-Manipulationen 

schneller Dateizugriff 

Direktzugriffsdateien 

CHAINing mit Übergabe von Variablen zwischen Overlays 


umfangreiche Dienstprogramme 
DM 1 74,-* (sFr. 158,-16S 1680,-*) 


Best.-Nr. MS 611 


Markt&Technik 











Diese Markt &Technik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser und 
in Computershops. 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


CBASIC-Compiler 


Der Hochleistungs-BASIC-Compiler für 
Softwareprofis zur Erstellung kommerziel- 
ler Anwendungen. 


Der CBASIC-Compiler ist ein erweitertes 
BASIC mit wichtigen Vorteilen für Software- 
profis. Er ist ein Compiler, der Maschinen- 
code erzeugt und die Programmierung und 
den Test separater Module erlaubt, die spä- 
ter ein komplettes Programm ergeben sol- 
len. Die integrierten Grafikmöglichkeiten 
des CBASIC-Compilers erlauben die Pro- 
grammierung vielseitiger Grafikprogramme 
für eine Vielzahl von Anwendungen (nur auf 
Computern mit GSX-Software). 


Markt&echnik 
Schneider CPC- 
Software 


10) DIGITAL , 


CBASIC. 
Compiler 


FROM # DIGITAL RESEARCH" THE CREATORS OF CIYM 


Mm 


3"-Diskette für CPC 464, 664, 6128, 

Schnelle Ausführung 

Der CBASIC-Compiler kombiniert die 
Geschwindigkeit von Maschinencode mit 
der leichten Verständlichkeit der Sprache BASIC. Ein mit dem CBASIC-Compiler kompi- 
liertes Programm wird acht- bis zehnmal schneller ausgeführt als das gleiche interpre- 
tierte Programm. 


Joyce PCW 
Handbuch in englischer Sprache 


Grafikerweiterungen 


Der CBASIC-Compiler beinhaltet einen voll integrierten Satz von Grafikbefehlen und 
-funktionen. Geräteunabhängige Grafikfähigkeiten ermöglichen die Ausgabe von Grafi- 
ken auf jedem unterstützten Grafikausgabegerät (Bildschirm, Drucker, Plotter) ohne 
Neukompilierung eines Programms. 


Dezimal-Arithmetik 


Die 14stellige Dezimal-Arithmetik gewährleistet höchste Genauigkeit bei Berechnungen 
und stellt sicher, daß alle Geldbeträge auf den Pfennig genau stimmen. Rundungsfehler, 
wie sie bei binärer Arithmetik möglich sind, können nicht auftreten. 

Der CBASIC-Compiler unterstützt auch echte Integer-Arithmetik, so daß zur Erhöhung 
der Geschwindigkeit auch Integer-Variablen verwendet werden können. 


Mehrzeilige Funktionen 


Durch die Möglichkeit, mehrzeilige Funktionen zu erstellen, verfügt der CBASIC- 
Compiler über Fähigkeiten, die sich sonst nur in strukturierten Programmiersprachen 
wie PL/l oder Pascal finden. Innerhalb einer mehrzeiligen Funktion können lokale Varia- 
blen verwendet werden. 


Für professionellen Einsatz 


Der CBASIC-Compiler wurde für die hohen Ansprüche professioneller Softwareentwick- 
ler und erfahrener Anwender entwickelt. Der CBASIC-Compiler wird mit ausführlicher 
Dokumentation in englischer Sprache geliefert. 


Hardwarevoraussetzungen 


Der CBASIC-Compiler läuft auf Schneider CPC 464 mit Diskettenlaufwerk DDI-1, dem 
CPC 664, dem CPC 6128 und dem 8256 (Joyce). Für Grafikprogramme wird die GSX- 
Software benötigt, die nur mit dem CPC 6128 und PCW 8256 (Joyce) ausgeliefert wird. 
Die Grafiken können dann auf dem Bildschirm oder einem von GSX unterstützten 
Drucker oder Plotter ausgegeben werden. Es können zum Beispiel der NLQ 401- 
Matrixdrucker, ein Epson- oder kompatibler Drucker und HP- und HP-kompatible Plotter 
zur Ausgabe verwendet werden. 


Die Vorteile des CBASIC-Compilers auf einen Blick: 


hohe Geschwindigkeit der erzeugten Programme 
Grafikerweiterungen 

Dezimal-Arithmetik mit hoher Genauigkeit 
umfangreiche Stringverarbeitung 

Stringlänge bis 32 KByte 

mehrzeilige Funktionen 

keine Zeilennummern erforderlich 

®e Overlays durch CHAIN-Befehl 


DM 1 74,-* (sFr. 158,-16S 1680,-*) 


* inkl. MwSt. Unverbindliche Preisempfehlung 


Best.-Nr. MS 612 


Bestellungen im Ausland bitte an 
untenstehende Adressen. 


Schweiz: Markt&Technik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 
Österreich: Ueberreuter Media Handels- 


und Verlagsges. mbH, Alser Straße 24, 
A-1091 Wien, 02 22/48 1538-0 






























































or zwei Jahren kannte noch 

niemand den Namen Schnei- 

der in der Computer-Branche. 
Dann kam der CPC 464 und seitdem 
steht Schneider für preiswerte Geräte 
mit exellentem Basic, guter Hardware 
und einem unübertroffenen Gesamt- 
konzept. Aber nicht nur die Hardware ist 
auch für den kleinen Geldbeutel geeig- 
net. Fast die gesamte Software für 
Schneider hat sich auf einem Preisni- 
veau eingependelt, das bedeutend 
niedriger ist als für andere Computer. 
Man denke nur an die oft erwähnten 
CP/M-Programme wie Wordstar, dBase 
Il und Multiplan. Dank Schneider ist die 
ganze Preisfront ins Wanken geraten. 
Für uns, die Computer-Besitzer, kann 
das nur gut sein. 

Computer, die mehr als nur das 
eigene Betriebssystem beherrschen, 
können auf erheblich mehr Software- 
Produkte zurückgreifen. Zwei Betriebs- 
systeme (CP/M und Amsdos) verlangen 
von dem Benutzer aber auch mehr Wis- 
sen. Das softwareorientierte Konzept 
von Schneider erlaubt Eingriffe tief im 
Inneren der Firmware. Um Ihr Wissen zu 
erweitern, halten Sie mit unserem dfrit- 
ten Sonderheft wieder mehr als 130 
Seiten preiswerte Informationen in der 
Hand. 

Wer seinen Schneider erst neu ge- 
kauft hat, findet im großen Einsteigerteil 
alles nötige für den erfolgreichen 
Anfang, auch Antworten auf Fragen, die 
in keinem Handbuch beantwortet wer- 
den: Wie Sie in Basic programmieren 
können, welche trickreichen Befehle es 
unter dem Schneider-Basic gibt und 
wie Sie am besten Ihre Daten sichern, 
sowie vieles mehr. Manches davon ist 
auch für Profis wissenswert. 

CP/M heißt ein Verkaufsargument der 
Leute aus Türkheim. Bloß allein das 
Wort hilft niemandem. Massenhaft Pro- 
gramme soll es unter diesem Betriebs- 
system geben - aber das kann doch 
noch nicht alles sein. Richtig! Was es 
mit diesem neuen alten Standard auf 





sich hat, das lernen Sie in unserem 
Kurs. Auch wie Sie unter CP/M Dinge 
machen können, die Sie eigentlich nicht 
machen dürfen, wird Ihnen gezeigt. 
Denn die Firmware Ihres Schneiders 
läßt sich natürlich auch unter CP/M 
nutzen. 

Das letzte Sonderheft sei zwar sehr 
gut und informativ gewesen, haben 
viele unserer Leser geschrieben. Aber 
ein paar Spiele zum Abtippen, die hät- 
ten doch gefehlt. Wir haben uns das zu 
Herzen genommen und deshalb den 
Anteil der Spiele-Listings ganz gewaltig 
aufgestockt. Steuern Sie als Pilot Ihren 
Schneider über Deutschlands Luftstra- 
ßen. Oder experimentieren Sie mit 
einer mathematischen Spielerei: »Le- 
ben« simuliert die Entwicklungsge- 
schichte. Tips & Tricks sowie Software 
für »ernste Zwecke« ist natürlich auch 
vorhanden. Und alle Programme gibt es 
wieder auf Kassette oder Diskette. 

Daß es auch in nächster Zeit an der 
»Schneider-Front« nicht ruhig werden 
wird, ist abzusehen. Vortex will jetzt 
endlich seine schon lang angekündigte 
MS-DOS-Karte auf den Markt bringen. 
Und für den CPC 6128 soll eine Super- 
speicherkarte den RAM-Bereich auf 
über 1 MByte aufmotzen. Daß dabei 
auch gleich ein neuer Prozessor und 
verschiedene Schnittstellen eingebaut 
werden, ist fast schon nebensächlich. 

Und auch der Buchverlag in unserem 
eigenen Haus hat interessante Pro- 
dukte auf Lager. So wird die gesamte 
Literatur von Digital Research über 
CP/M-2.2 angeboten. Und auch das oft 
geschmähte Logo wird mit Büchern 
»umworben«. Die Programmpalette der 
preiswerten CP/M-Software wird von 
Markt&Technik ebenfalls erweitert. 
Auch andere Verlage bauen gute Pro- 
gramme vom Commodore 64 auf die 
Schneider-Computer um. Wo man hin- 
schaut: An allen Ecken und Enden 
wächst was für den Schneider. Da kann 
unser Hobby doch nicht langweilig 
werden! Andreas Hagedorn 
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Sum: N 
Auf die Anatomie der Schneider-Computer gehen unsere Grund- 
lagenbeiträge in diesem Schneider-Sonderheft ein. 


In ganz Deutschland können Sie mit unserem Flugsimulator auf 
jedem größeren Flughafen landen: »Bitte anschnallen und das 
Rauchen einstellen.« 82 


Wer keine Zeit oder keine Lust hat, alle 
Programme selbst in mühevoller Klein- 
arbeit abzutippen, kann wieder auf den 
bewährten Programm-Service zurück- 
greifen. Es sind hier sämtliche Programme 
des Sonderhefts auf einer Diskette oder 
Kassette erhältlich. 


Bestellnummer LH 8654 D 34,90 DM* 
Bestellnummer IH 8654 k 29,90 DM* 


(* inkl. MwSt.) 


Spieletest 

Schneider spielt weiter 
® 

Bastelei 

Das achte Bit 


Fix gelötet 


Eingabehilfe 
Keine Eingabefehler mit »Explora« 
Grundlagen 


Aus dem Schneider 
Das Innenleben des CPC 


Grafik maßgeschneidert 


Basic 
Basic-Programm: Stück für Stück 
Basic leichtgemacht 


Gekonnter Bildschirmaufbau 
Fensterin mit System 
Window-Programmierung 
Dem Datenrecorder aufs Bit geschaut 
Links herum, rechts herum 
Für welchen von den CPCs? 
Fehler im Basic! 

Neue Editorfunktionen 
Wirklich Zufall? 
ESCAPE-Taste blockiert 
Trickreiche Steuerzeichen 


Besseres Basic 


Grafik 


Grafik kompakt 

Blitzschnell umgeschaltet 

Auf Dauer nur Power 
Basic-Erweiterung 

Wandernde Balken 
Seidenweiche Bildverschiebung 
Mit Tricks an ROM-Routinen 


Flimmerkiste 


































Von CALL, RSX und anderen Spezialitäten 
Massenspeicher besser genutzt 
Serienbriefe - kein Problem 
Information total 


Geschwindigkeit ist keine Hexerei 


Spiele-Listings 


Faszination Leben 








Nur Fliegen ist schöner 
Flugsimulator 


Chopper 
Light-Cycles 


Zwei Strich Backbord 


Anwendungs-Listings 


Eröffnungen im Schach 
Schach-Tutor 


Mathematik anschaulich gemacht 
Daten parat 


Glatter Bruch 


CP/M-Kurs 


Weltstandard mit einem 8080-Assembler 
CP/M einfach lernen 














Einstieg in CP/M - es lohnt sich 


Aller Anfang ist leicht 





Programmieren unter'CP/M 
Z80 kontra 8080 
Firmware-Aufruf unter CP/M 
® 
Rubriken 
Einleitung 
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Die richtige Eröffnung im Schach entscheidet oft schon über den 
Ausgang des Spiels. Ob sizilianisch oder spanisch - unser 
Schach-Trainer hat für jeden etwas. 102 





Der CPC fungiert als Mathematik-Trainer. Sie bekommen in kürze- 
ster Zeit einen Blick dafür, wie zum Beispiel die zugehörigen Gra- 
phen zu eingehenden Funktionen auszusehen haben. 107 





Wer basteln kann, hat mehr von seinem Computer. Wir zeigen, 
wie Sie sich eine echte Centronics-Schnittstelle für Ihren CPC 
664 oder 6128 bauen können. 10 
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Das windowreiche Action-Adventure »Spellbound« 


unten anfangen - nämlich ganz 

unten in der Preis-Skala. Im Preis- 
bereich zwischen 10 und 20 Mark sind 
jetzt auch für Schneider CPCs einige 
rundum empfehlenswerte »Billig- 
Spiele« erschienen, bei denen nicht an 
der Qualität gespart wurde. 

Der größte Anbieter von Software- 
Preisbrechern, Mastertronic, hat in sei- 
ner neuen »MAD-Games«-Reihe jetzt 
auch einen Schneider-Titel. »Spell- 
bound« ist eine Umsetzung des 
Spectrum-Originals, das beim Test in 
jeder Hinsicht das blanke Entzücken 
hervorrief. Für 15 Mark erhält man ein 
spielerisch sehr ausgefeiltes Action- 
Adventure, bei dem Sie in der Rolle des 
Magic Knight (richtig, der aus »Finder’s 
Keepers«) im Schloß von Karn herum- 
fltzen und Ihren Zauberboß Gimbal 
befreien müssen. Durch klug aufge- 
baute Untermenüs, die als höchst 
attraktive Pracht-Windows auf dem Bild- 
schirm erscheinen, können Sie Gegen- 
stände aufsammeln und untersuchen, 


I: diesem Artikel wollen wir ganz 


Schneider 
spielt weiter 


Der Schneider CPC hat beileibe nicht »ausgespielt«; 
ganz im Gegenteil: Als Spiel-Maschine erfreut er sich 
immer größerer Beachtung der britischen Software- 
firmen. Brillante Billig-Spiele, gute Umsetzungen und 
Neuerscheinungen stellen wir Ihnen vor. 
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andere Spielfiguren beklauen, deren 
Charakter begutachten (ist's ein Guter 
oder ein Böser?) und vieles mehr. 

Ganz ohne Joystick (beziehungs- 
weise Tastatur) kommt man bei »Spell- 
bound« nicht über die Runden, aber der 
spielerische Schwerpunkt liegt bei der 
Abenteuer-Komponente: Nachdenken 
und ausprobieren heißt die Parole. Ein 
sehr ansprechendes Spiel, einfach zu 
bedienen, grafisch gelungen und aus- 
gesprochen preisgünstig - somit ein 
ganz heißer Kauf-Tip. 

In derselben Preisklasse liegt »Oylu«, 
ein Action-Adventure aus Firebird’s 
»Super Silver Range«. In der Rolle des 
Titelhelden müssen Sie in einem riesi- 
gen Labyrinth mit recht schmucker per- 
spektivischer Grafik 24 Gegenstände 
finden, zum Startpunkt zurückkehren, 
und damit den völlig aufgelösten 
»Master Computer« reparieren (Das hat 
man nun von der Technik!). Sperren, 
Teleporter-Felder und ähnliche Spezia- 
litäten des Hauses erschweren die 
Labyrinth-Suche. Außerdem müssen 
Sie immer wieder Ihren dahinschwin- 
denden Sprit-Vorrat ergänzen und kön- 
nen nur fünf Gegenstände gleichzeitig 
bei sich tragen. 

Auch dieses Programm ist eine 
geschickte Mischung aus Geschick- 
lichkeits- und Abenteuer-Spiel. Durch 
die etwas langsame Grafik ist es weni- 
ger für Action-Enthusiasten geeignet. 
Grafisch und spielerisch erinnert es 
allerdings sehr an die teureren Erfolgsti- 
tel»Knight Lore« und »Alien 8«. Vor Dop- 
pelkäufen sei gewarnt! 

Aus demselben Hause stammt das 
»Willow Pattern Adventure«. Mit einem 
richtigen Adventure hat das Programm 





»Knight Lore«-Verschnitt für wenig Geld: »Cylu« 



















































































eigentlich herzlich wenig zu tun; es ist 
ein unterhaltsamer Vertreter des uner- 
schütterlichen Genres der Geschick- 
lichkeits-Spiele. Die Story ist aus 
bewährten Zutaten zusammenge- 
strickt: 1. Spieler verkörpert Chang, 
den jungen Helden. 2. Liebliche Prin- 
zessin wird von Bösewicht entführt. 3. 
Junger Held zögert nicht und fegt los, 
um besagte Prinzessin zu retten. 

Sie müssen Ihren Chang durch ein 
Labyrinth steuern, das entfernt an 
»Sabre Wulf« erinnert. Beim Umherirren 
wird öfters der Weg von einem schwert- 
schwingenden Samurai versperrt. 
Wenn Sie vorher einen Säbel aufge- 
sammelt haben, können Sie den Wäch- 
ter mit einem Druck auf den Feuerknopf 
ausschalten. 

Für knapp 20 Mark erhält man diese 
nette Mischung aus Hüpf- und Action- 
Spiel. Vor allem für den preisbewußten 
Software-Käufer ein empfehlenswertes 
Programm, das gute Grafik sowie wohl- 
klingenden Sound bietet und nicht allzu 
schwierig ist. 

Ein weiterer empfehlenswerter Ver- 
treter der Abteilung »Viel Spiel fürs 
Geld« ist die Zusammenstellung »They 
sold aMillion«. Für 39 bis 59 Mark (Kas- 
sette und Diskette) erhält man gleich 
vier etwas ältere, aber immer noch spie- 
lenswerte Bestseller-Programme. Es 
handelt sich um das Geschicklichkeits- 
Spiel »Jet Set Willy«, den Action-Titel 
»Sabre Wulf« und die beiden Sport- 
Simulationen »Daley Thompson's 
Decathlon« (Leichtathletik) und 
»Rocco« (Boxen). Vor allem für Einstei- 
ger, die noch keines der vier Spiele 
haben, ist dieser Vierer-Pack eine loh- 
nende Anschaffung. 





Bei den immer noch sehr beliebten 
Sport-Spielen hat sich in den letzten 
Wochen eine ganze Menge getan. Acti- 
vision hat seine Box-Simulation mit dem 
ÜberlängenTitel »Barry McGuigan's 
World Championship Boxing« (Uff!) 
vom C 64 für den Schneider umge- 
setzt. Zur allgemeinen freudigen Über- 
raschung ist diese Adaption sehr gut 
gelungen. 

Sie starten als hoffnungsvoller New- 
comer in die rauhe Welt des Profi- 
Boxens. Sieg für Sieg klettern Sie die 
Top 20 der Weltrangliste empor, um 
eines Tages den Titelkampf gegen den 


britischen Box-Matador Barry McGui- 
gan zu bestreiten. Zu Beginn können 
Sie sich einen bestimmten Kämpfer-Typ 
aussuchen und dann im Trainingslager 
entscheiden, welche Kampfstärke Sie 
fördern wollen. Acht verschiedene 
Schlag- und Defensiv-Techniken stehen 
im Ring zur Verfügung. Sie sind nicht 
auf den Kampf gegen den Computer 
beschränkt, sondern können auch 
gegen einen Freund die Fäuste schwin- 
gen. 

»World Championship Boxing« ist ein 
Sportspiel von der anspruchsvollen 
Sorte. Eskommt auf Technik und Strate- 





Vier Fäuste für den Titelkampf: »World Championship Boxing« 


Fernöstliches Labyrinth-Verwirrspiel: »Willow Pattern Adventure« 


gie und nicht auf plumpes Draufhauen 
an. Das Programm hat derart viele Fein- 
heiten, daß es lange Zeit eine Menge 
Spaß macht. Grafisch ist es eine quasi 
identische Kopie des C 64-Originals. 
Die Programmierer haben sich für die 
CPC-Umsetzung die nötige Zeit gelas- 
sen, was dem Endprodukt sehr zugute 
kommt. Wer auch einmal in den Ring 
steigen will, ist mit 39 bis 59 Mark (Kas- 
sette und Diskette) dabei. 

Wenn es Sie mehr nach den fernöst- 
lichen Kampfsportarten gelüstet, dann 
dürfen Sie bei der Schneider-Version 
des Spielhallenautomaten »Yie Ar 
Kung-Fu« die Handkanten wirbeln las- 
sen. Zehn verschiedene Schläge und 
Bewegungen können Sie ausführen, 
während der Reihe nach acht grimmige 
Gegner auf Sie losgelassen werden. 
Jeder prügelwillige Kontrahent hat eine 
schurkige Spezialität. Da gibt es einen 
Burschen, der öfters mal einen Hecht- 
sprung durch die Luft macht, oder den 
Krieger, der auch mit einem Schwert 
zuschlägt. ' 
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Um die Motivation (und damit auch 
den Frust) erheblich zu steigern, kann 
man die Gegner nicht einzeln anwählen. 
Wenn Sie sich also bis zum großen 
Kung-Fu-Meister namens Blues durch- 
kämpfen wollen, müssen Sie mit dem 
Joystick schon ganz schön gewieft 
sein. Technisch ist das Spiel nicht so 
anspruchsvoll wie der Melbourne- 
House-Renner »Exploding Fist«, doch 
die unterschiedlichen Gegner und die 
wirklich schöne Grafik machen »Yie Ar 
Kung-Fu« sehr interessant. Es ist mehr 
ein Action- als ein Sport-Spiel und für 
Freunde von flotten Reaktionstests 
eine echte Herausforderung. 

Richtig hemmungslos geprügelt wird 
dann bei »Fighting Warrior«, wo Sie eine 
Prinzessin aus den Fängen des 
Standard-Bösewichts retten sollen. 
Besagter Unsympath (diesmal ist's ein 
fieser Pharao, schließlich befinden wir 
uns im alten Ägypten) hetzt nun einen 
greulichen Kämpfer nach dem anderen 
auf Sie. Da hilft nur eines: Hauen und 
nicht verhauen werden! 

Die Software-Sprites sind groß und 
gut animiert. Doch der Spielwitz kann 
nicht ganz mit der Grafik mithalten, 
denn auf Dauer wird die Klopperei doch 
etwas öde. Für die Sammler martiali- 
scher Kampfsport-Exzesse interes- 
sant, aber ansonsten eine etwas eintö- 
nige Angelegenheit. 

Wenden wir uns friedlicheren Dingen 
wie der Winterolympiade »Winter 
Sports« zu. Das ist eines von den Pro- 
grammen, die nur so lange einen guten 
Eindruck machen, bis man zu spielen 
beginnt. Die acht Disziplinen wie Eis- 
hockey und Biathlon sind alle schreck- 
lich langsam, grafisch plump, und den 


Sound sucht man gänzlich vergebens. 
Selbst wenn Sie Sportspiele heiß und 
innig lieben, sollten Sie von diesem ent- 
täuschenden Programm die Finger las- 
sen. Da lohnt es sich, auf die Schnei- 
der-Version des Epyx-Supersellers 
»Winter Games« zu warten, die uns zu 
Redaktionsschluß leider noch nicht vor- 
lag. 

Umsetzungen von C64-Spielen gab 
es in den letzten Wochen reichlich. 
Einige Softwarefirmen präsentieren 
immer noch erschreckend schwache 
Adaptionen, aber einige Titel beweisen, 
daß es auch besser geht. 


So ist das schwierige Action-Adven- 
ture »Hexenküche« von Palace sehr gut 
gelungen. Das fesselnde Spiel um eine 
Hexe, die stilecht auf einem Besenstiel 
durch die Lande düst, gehört grafisch 
und spielerisch zur Oberklasse. Das 
vergnügliche Programm istzudem noch 
zu recht fairen Preisen erhältlich: Je 
nach Datenträger (Kassette oder Dis- 
kette) kostet es zwischen 29 und 49 
Mark. 

Eines der Kult-Spiele überhaupt, 
»Elite«, liegt jetzt auch in der Schneider- 
Version vor. Die fesselnde Mischung 
aus Strategie-, Wirtschafts-, Action- 





Hau’ erbarmungslos zu bei »Yie Ar Kung-Fu« 


Vorne 


Ein Fest für Langzeit-Spieler: »Elite« 





Spiel und Flugsimulator stürmte in ganz 
Europa die Hitlisten und heimste Kriti- 
kerlob in rauhen Mengen ein. 

Im Vergleich zur C 64-Version sind die 
spektakulären 3D-Vektorgrafiken zwar 
langsamer, doch dafür werden mehr 
Farben verwendet. Inhaltlich blieb alles 
beim alten. Die Schneider-Version bie- 
tet sogar zwei der undurchsichtigen 
Geheim-Missionen mehr, mit denen Sie 
auf Ihrem Weg durch acht Galaxien 
betraut werden können. »Elite« gibt es 
in einer voll eingedeutschten Version. 
Außerdem läuft zur Zeit ein großer Wett- 
bewerb, den Happy-Computer zusam- 
men mit Firebird Software ausschreibt. 

Bei diesem erfreulichen Angebot 
müßte auch für Sie der eine oder 
andere Favorit dabei sein. Beim Kampf 
gegen Raumpiraten, Mittelgewichtsbo- 
xer & Co. wünsche ich Ihnen bis zum 
nächsten Schneider-Sonderheft viel 
Vergnügen und bruchsichere Joy- 
sticks! 


(Heinrich Lenhardt/hg) 
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Das Angebot dieser Ausgabe: 


Anwendungs-Programme: 


Chesstutor. Üben Sie Schach-Eröffnungen. Funktionsplot (nur CPC 464). 
Mathematische Funktions-Graphen auf Bildschirm und Papier. Division. Unent- 
behrlich für exakte Berechnungen von Brüchen. Dateiverwaltung. Der komfor- 


table Notizblock. 
Spiele: 


Faszination Leben. Mit »Life« dem Ursprung auf der Spur. Jetliner. Ein fantasti- 
scher Flugsimulator für alle CPCs. Chopper (nur CPC 464). Erkunden Sie die 
Höhlen des schrecklichen Dr. Argh. Schnellboot-Kommandant. Gefechte auf 
hoher See für echte Kämpfernaturen. Light-Cycles (nur CPC 464). Nur takti- 
sches Geschick und Reaktionsvermögen führen zum Ziel. Hohe Geschwindig- 
keit durch 100 Prozent Maschinencode. Plus sämtlicher Tips & Tricks-Listings. 


Kassette, Best.-Nr. LH 8654 K 


DM 29,90* sFr. 24,90165 299,- * 





Happy-Computer, Ausgabe 4/86 

Schneider CPC 

D-Mon. 

Daten auf Diskette Byte für Byte lesen und än- 
dern. FehlerhafteDateienkorrigierenundretten. 
GOTO XY (nur CPC 464). 

Eine mächtige RSX-Befehlserweiterung, die 
erlaubt, das Ziel von GOTO-GOSUB-Befehlen 
mit Hilfe einer Variablen zu bestimmen. 
Accept. 

Ein komfortabler Ersatz für den normalen 
INPUT-Befehl, mit dem sich jetzt die maximale 
Eingabe-Länge begrenzen läßt. 

Turbo-Screen (nur CPC 464). 

Mit dieser RSX-Erweiterung machen Sie der 
Bildschirmausgabe im Modus 2 Beine. 

Aus Ausgabe 2/86 


Explora. 

Mit diesem Prüfsummen-Generator entfällt die 
lästige und zeitaufwendige Fehlersuche. 
Stack-Manipulation (nur CPC 464). 
Basic-Programmierung mit vier RSX-Befehlen. 
Aus Ausgabe 3/86 


Tool-Basic. 

44 neue RSX-Befehle für Grafik-, Sprite-, 
Disketten- und Kassetten-Programmierung. 
Achtes Bit. 

Endlich Abhilfe für den Umstand, daß der 
Schneider CPC über die Drucker-Schnittstelle 
nur sieben Datenbits ausgibt. 

Mord im Computer. 

Das DFÜ-Spiel mit Adventure-Charakter. 

Aus Ausgabe 4/86. 

Best.-Nr. LH 8604 SK (Kassette) 

DM 29,90* sFr. 24,9016S 299,* 

Best.-Nr. LH 8604 SD (Diskette) 

DM 29,90*/sFr. 24,90/6S 299, 


Programme aus früheren Ausgaben: 


Diskette 3 Zoll, Best.-Nr. LH 8654 D 
DM 34,90* sFr. 29,50165 349,- * 





Happy-Computer, Ausgabe 3/86 
Commodore 64/Commodore 128 
Copter-Fight 

Ein interessantes Hubschrauber-Kampfspiel 
für zwei Personen. Geschicklichkeit und Reak- 
tionsvermögen sind Trumpf. 

Husky-Basic 

Die ‚mächtige Basic-Erweiterung für Grafik, 
Sound und strukturiertes Programmieren. 
Unser Sonnensystem 

Lernen Sie mit diesem Anwendungs-Programm 
alle Planeten unseres Sonnensystems kennen 
(mit Simons Basic) 

Wahlautomat 

Hardware-Bastelei. Lassen Sie Ihren C64 Tele- 
fonverbindungen anwählen! Zusatz zum Listing 
des Monats aus HAPPY 2/86. 

Softpaint 

Ein menügesteuertes Zeichen- und Malpro- 
gramm für den Commodore 128 im C 128- 
Modus (kein C 64-Programm) 

Bestell-Nr. LH 8603 CD 

DM 29,90* IsFr. 24,90/6S 299,* 





Happy-Computer, Ausgabe 2/86 
Commodore 64 

Oval Pattern 

Machen Sie die Kurvendiskussion auf dem 
C64 interessant und nutzen Sie gleichzeitig die 
tollen Grafikmöglichkeiten dieses Computers 
voll aus. 

Börse 

Lernen Sie das Börsengeschehen spielend 
kennen. »Börse« simuliert mit Grafik und Text 
die Abläufe und Vorgänge an der Börse. 





is 


Poster Hardcopy 

Dieses Programm fertigt auf Ihrem Drucker 
einen 75 x 56 cm großen Ausdruck des Com- 
modore-64-Grafik-Speichers an. 
Kassetten-Designer 

Eine hervorragende Hilfe bei der Archivierung 
von Ihren Computer- oder Musikkassetten. 
Super-Sprite 

Eine Maschinencode-Routine zur professionel- 
len Sprite-Bewegung. Machen Sie Ihren Com- 
modore zu einem Trickfilm-Generator. 

Transbit 

Das Listing des Monats ist ein Terminalpro- 
gramm der Spitzenklasse für Ihren Commodore 
64. Datenfernübertragung ist kein Problem 
mehr. 

Alle 6 Programme auf Diskette für den 
Commodore 64. 

Bestell-Nr. LH 8602 CD 

DM 29,90* sFr. 24,90/6S 299,* 





Happy-Computer, Ausgabe 1/86 
Commodore 64/Commodore 128 
Taxi. Aus Ausgabe 1/86. 

Musik und Farbe. Aus Ausgabe 12/85. 
SDB-Sprite Mover. Aus Ausgabe 1/86. 
ES-AE. Aus Ausgabe 1/86 

Ultraload. Aus Ausgabe 1/86 

Error 64. Aus Ausgabe 1/86. 

Scroll 64. Aus Ausgabe 1/86 
Schatzsuche. Aus Ausgabe 12/85. 
SLAD. Aus Ausgabe 12/84. 

Alle 9 Programme auf Diskette für den 
Commodore 64/128 

Bestell-Nr. LH 8601 CD 

DM 29,90* IsFr. 24,9016S 299,* 





Happy-Computer, Ausgabe 12/85 
Atari 800XL/130XE/800 
Bestell-Nr. LH 8512 B 

DM 29,90* /sFr. 24,90/6S 299,* 





Happy-Computer, Ausgabe 12/85 
Schneider CPC 

Programmtransfer leichtgemacht (zwei Pro- 
gramme, S. 72). »Tasword 464« mit DIN-Tastatur 
Bewegte Grafik mit drei Befehlen Maschinen- 
code-Routinen in BASIC umgesetzt. 

Aus Ausgabe 10/85 

Sam - (fünf Programme, $. 109). 

Aus Ausgabe 11/85. 

Deutscher Zeichensatz unter CP/M. Hardcopy. 
RSX-Befehle mit direkter Stringvariable. 

Aus Ausgabe 12/85. 

Alle 8 Programme auf einer Kassette oder 
Diskette für den Schneider CPC. 

Bestell-Nr. LH 8512 G (Kassette) 

DM 29,90* /sFr. 24,90/6S 299,* 

Bestell-Nr. LH 8512 D (Diskette) 

DM 34,90* sFr. 29,50/6S 349,* 





Happy-Computer, Ausgabe 11/85 
Commodore 64 

Bestell-Nr. LH 8511 A 

DM 29,90* sFr. 24,90/16S 299, 





Happy-Computer, Ausgabe 10/85 
Sinclair Spectrum 

Bestell-Nr. LH 8510 D 

DM 19,90* IsFr. 17,-18S 199, 
Atari 800XL 

Bestell-Nr. LH 8510 B 

DM 29,90* /sFr. 24,90/öS 299, 


Happy-Computer, Ausgabe 9/85 
Commodore 64 

Bestell-Nr. LH 8509 A (Diskette) 
DM 29,90* IsFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 8/85 
Schneider CPC 464 

Bestell-Nr. LH 8508 G (Kassette) 
DM 29,90* sFr. 24,9016S 299, 


Happy-Computer, Ausgabe 7/85 
Commodore 64 

Bestell-Nr. LH 8507 A (Diskette) 
DM 29,90* /sFr. 24,90/6S 299,* 


Happy-Computer, Ausgabe 6/85 
Commodore 64 

Bestell-Nr. LH 8506 A (Diskette) 
DM 29,90* IsFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 5/85 
Schneider CPC 464 

Bestell-Nr. LH 8505 G (Kassette) 
DM 29,90* IsFr. 24,9016S 299, 


Happy-Computer, Ausgabe 4/85 
Commodore 64 

Bestell-Nr. LH 8504 A (Diskette) 
DM 29,90* IsFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 3/85 
Schneider CPC 464 

Bestell-Nr. LH 8503 G (Kassette) 
DM 29,90* sFr. 24,90/6S 299, 





Happy-Sonderhefte 


Sonderheft 3/86: 68000 
Bestell-Nr. LH 86S3 D (Diskette) 
DM 29,90* sFr. 24,9016S 299,* 


Sonderheft 2/86: ATARI 
Bestell-Nr. LH 86S2 D (2 Disketten) 
DM 34,90* IsFr. 29,50/6S 349,* 


Sonderheft 1/86: Schneider 
Bestell-Nr. LH 8651 D (Diskette) 
DM 34,90* /sFr. 29,50/6S 349,* 
Bestell-Nr. LH 8681 K (Kassette) 
DM 29,90*/sFr. 24,9016S 299,* 


Sonderheft 2/85: Schneider 
Bestell-Nr. LH 85$2 D (3”-Diskette) 
DM 34,90* sFr. 29,50/6S 349, 
Bestell-Nr. LH 8552 V (5%”-Diskette) 
DM 34,90* IsFr. 29,50/6S 349,* 
Bestell-Nr. LH 8552 K (Kassette) 

DM 29,90* sFr. 24,90/6S 299, 


Sonderheft 1/85: Spectrum 
Bestell-Nr. LH 85S1 D (Kassette) 
DM 19,90* /sFr. 17,-16S 199, 


* inkl. MwSt. Unverbindliche Preisempfehlung 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 


Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 


















































ür die Besitzer der Schneider 

CPC 464 gibt es sie schon seit 

dem Sonderheft 2/85 von Hap- 
py-Computer: die vollwertige Centro- 
nics-Schnittstelle mit acht Bit. Der 
Umbau am Computer ist bei den großen 
Brüdern CPC 664 und 6128 der glei- 
che - wenn man vom unterschiedlichen 
Aufbau der Platine absieht. Wieder muß 
nur eine Drahtbrücke zwischen Pin 12 
des 8255-Ein-/Ausgabebausteins und 
der achten Datenleitung des Drucker- 
anschlusses gelegt werden. Kompli- 
zierter ist die Anpassung der Ausgabe- 
routine, da sich die Startadressen beim 
664 (und beim 6128 auch schon wie- 
der) geändert haben. 

Die Druckerschnittstelle der Schnei- 
der-Computer entspricht bis auf das 
fehlende achte Bit voll der Centronics- 
Norm. Damit kann man jeden Drucker, 
der dieser Norm entspricht (und das 
sind fast alle Geräte), ohne komplizier- 
tes Interface anschließen. Einfach ein 


Erweitern Sie die Centronics-Schnittstelle Ihres 
Computers auf acht Bit. Bei allen drei Geräten von 
Schneider muß jeweils nur ein Draht eingelötet 
werden. Eine kleine Maschinencode-Routine bindet 
den neuen Port vollwertig in das Betriebssystem ein. 


passendes Kabel besorgen, anschlie- 
Ben und schon werden mit »PRIN- 
TER#8« die Zeichen ausgegeben. 
Einen Fehler hat das Ganze aber noch. 
Da der Schneider über Pin 14 neben 
dem normalen Carriage Return 
(Wagenrücklauf) auch einen Line Feed 
(Zeilenvorschub) veranlaßt, die meisten 
Drucker dies aber von Haus aus am 
Ende jeder Zeile (nach Carriage Return) 
machen, entsteht zwischen zwei 
Druckzeilen immer eine Leerzeile. Die 
ist nur dadurch zu umgehen, daß man 
Leitung 14 am Centronics-Kabel unter- 
bricht. Spezielle für den Schneider 
angebotene Druckeranschlußkabel 
haben diese Unterbrechnung schon 
eingebaut. 

Ist der Drucker installiert, kann man 
über den normalen Centronics-Port alle 
Symbole mit einem ASCIl-Code unter 
127 problemlos ausgeben. Da das 
achte Bit aber immer O ist, können die 
höherwertigen Zeichen nicht ausge- 


druckt werden. Einzelnadelansteue- 
rung - zum Beispiel für Hardcopys - ist 
mit einer »kastrierten« Schnittstelle nur 
umständlich zu programmieren. 

Warum haben die Entwickler bei 
Amstrad auf dieses achte Bit verzich- 
tet? Der Grund ist einfach und im Kon- 
zept der Amstrad-(Schneider-)Compu- 
ter zu suchen. Um das Gerät so preis- 
wert wie möglich zu halten, wurde diese 
achte Datenleitung als Strobe-Signal 
genutzt. Aber mit Port C vom Ein-/Aus- 
gabe-Baustein 8255 kann man diesen 
Fehler beheben. Normalerweise dient 
er dem Kassettenrecorderanschluß. Da 
Drucker und Datenspeicher nie 
gemeinsam gebraucht werden, kann 
Port C als 8 Bit zweckentfremdet wer- 
den. Die richtige Auswahl der Daten, 
damit an das »achte Bit« nicht ver- 
sehentlich Druckerinformationen ge- 
schickt werden, wenn Daten gespei- 
chert werden sollen, besorgt unsere 
Routine (Listing 1). 

Verbinden wir jetzt Port C des 8255 
mit unserem Centronics-Port und 
ändern die Ausgabe-Routine im Be- 
triebssystem, so haben wir einen Com- 
puter mit vollwertigem Anschluß. Pro- 
bleme mit der Datenaufzeichnung auf 
dem Kassettenrecorder gibt es nicht, 
da der Drucker und das Tonbandgerät 
nie gleichzeitig angesprochen werden. 
Eventuelles Datenwirrwarr am Drucker 
(während der Arbeit mit dem Kassetten- 
recorder) oder am Kassettenrecorder- 
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Port (während der Arbeit mit dem 
Drucker) stört nicht. 

Alles was Sie für den Umbau brau- 
chen, ist ein Lötkolben, Draht (4 Zenti- 
meter beim 664 und 10 Zentimeter 
beim 6128) und etwas handwerkliches 
Geschick. Zuerst lösen Sie die sechs 
Schrauben an der Unterseite des 
Gehäuses und entfernen den Teil mit 
der Tastatur. Die Stecker können beim 
späteren Zusammenbau nicht falsch 
verbunden werden, da sie farblich 
gekennzeichnetsind und außerdem nur 
in eine Richtung passen. 

Am Centronics-Port zählen Sie nun 
von links den neunten Platinenfinger ab. 
Beim 6128 nehmen Sie den neunten 
Verbindungsdraht zwischen Stecker 
und Platine (siehe auch Bild 1 und 2). 
Dieses achte Bit ist beim Schneider auf 
Masse gelegt und erscheint damit dem 
Drucker immer als nicht gesetzt. 

Beim 664 müssen Sie jetzt die Leiter- 
bahn zu diesem Finger mit einem Leiter- 
bahnunterbrecher (oder einem schar- 
fen Messer) auftrennen. Beim 6128 
machen Sie das einfach, indem Sie den 
Draht mit einer Zange abkneifen. An 
den Stecker wird jetzt unser Kabel 
angelötet. Besonders beim 664 ist zu 
beachten, daß später der Stecker noch 
richtig angeschlossen werden kann. 


“ X Ms 
I AI 


Alle Programme sind in Small-C geschrieben, der Quellcode wird 
mitgeliefert. So können Sie das Entwicklungssystem nach eigenen 
Wünschen und Erfordernissen erweitern und modifizieren. 


Das Programmpaket enthält: 
e Small-C-Compiler 


e Small-Mac: Assembler und Utilities 
e Small-Tools: Editor und Text-Tools 


Hardware-Anforderungen: 


Schneider-Computer mit mindestens 56 KByte TPA und einem Dis- 
kettenlaufwerk. Bei den Modellen CPC 464 und 664 ist eine Spei- 


chererweiterung notwendig. 


Bestell-Nr. MS 484 (3 -Diskette) 


Für aur DM WB- rs: 132,-/65 14390,-) 


inkl. MwSt., unverbindliche Preisempfehlung. 


P; \ 
Markt&fTechnik 


Unternehmensbereich Buchverlag 





® 
Achtung C-Programmierer aufgepaßt! 
Jetzt gibt es Small-C, ein komplettes Entwicklungssystem im CP/M- 


Modus für die Schneider-Computer CPC 464/664/6128 und Joyce. 
Mit Editor, Compiler, Linker und vielen weiteren Utilities. 
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Bild 1. Der Draht beim 664 
ist vier Zentimeter lang 


Bild 2. 10 Zentimeter Draht 
und das achte Bit 
ist auch beim G 128 da 


Man darf also nicht zu weit am Rand der 
Platine löten. Das zweite Ende der 
Drahtbrücke kommt an Pin 12 des 
8255-Bausteins. Im Bild erkennen Sie 
deutlich, wo dieser Chip sitzt. Er ist 
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Schneider CPC- 
Software 


Small-C 


Entwicklungssystem 


8080-/Z80-Makro-Assembler : Linker/Loader 
Bibliotheksverwalter : Editor/Text-Tools 


Für Schneider-Computer 
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außerdem mit der Zahl 8255 gekenn- 
zeichnet. Die Beinchen der ICs sind ab 
der Einkerbung gegen den Uhrzeiger- 
sinn durchnummeriert. Für uns bedeu- 
tet das, daß wir die Platine so legen, daß 
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013200 
CD1B08 
3007 
10F9 
OD 
20F6 


&AO0O 


&0848; für 664 
&0858; für 6128 


&AOOF 
&AO1C 
bc,&32 
busy 
nc,send 
warte 

c 
nz,warte 
a 


be 
b,&F6 
156 
z,weiter 


WEITER 


MEMORY &PFFF 


FOR 

READ 
NEXT 
FOKE 
POKE 
DATA 
DATA 
DATA 


z=L ABRD TO %LAQD3& 


b:POKE z,b 


&BDF2,%0 
&BDF3,&AQ 


%21,%352,280,&c0,%48,.%98,%30,%07 
%10,%9,:04,%20,%6,%67,%c9,%c5 
&B6 ,ufb,%chb „a7 .,&28,%06, 445, %3e 


;MC BUSY PRINTER 


;Beginn der 8-Bit-Routine 
;BC Register retten 

;8255 Port C 

;Bit 7 im Akku gesetzt? 
;wenn nicht normal weiter 
;Datenbyte retten 

;Bit 5 setzen und 

;und an Port C ausgeben 
;Datenbyte zurueck 


;Byte ohne Strobe 
;an Drucker 
;Strobe Bit setzen 


;Strobe ein 
;Strobe zuruecksetzen 


;Strobe aus 


;Port C 
;ausschalten 
;Bit5 anPort C 


[8AS6] 
[38534] 
[FAd4] 
[B785] 
[EEF4] 
C[B&7A] 
[FE60] 
LE8BQA]I 
[C21C9 


100 DATA %20,%ed,%79,%#1,&Q6b,kef ,Leds,%7f 


[76D4] 


118 DATA %ked,%79,%46,%80,%&f3,%ed,%79, keb 


[7@F4] 


128 DATA &7f ,%fb,%&ed,%&77,45,&064, 16, &Ie 


138 DATA %BQO,Led,%79,%41,%c1,%37,%c9 


Listing 2. Der Basic-Lader für den CPC 664 


78 DATA %&21,%32.%00,%cd,&58,428,%30,%07 





tEZ48] 
[C294] 





[4B62] 


Listing 3. Für den CPC 6128 muß Zeile 70 geändert werden 


denken, daß bei einer Temperatur von 
270 Grad maximal 10 Sekunden am IC- 
Anschluß gelötet werden darf. Also 
nicht das »arme« IC mit dem Lötkolben 
»braten«. Jetzt montieren Sie Ihren 
Schneider wieder zusammen und der 
Umbau ist fertig. 

Über eins müssen Sie sich vor dem 
Zusammenbau im Klaren sein: Sobald 
Sie Ihren Computer auseinanderneh- 
men, erlischt Ihr Garantieanspruch für 
das Gerät. Da der Eingriff aber sehr ein- 
fach ist, kann nomalerweise nichts 
passieren. 

Einen ersten Test können wir von 
Basic aus vornehmen. Mit »OUT 
&7600,32« wird Bit 5 (Port Cam 8255) 
gesetzt. Eine Schleife »FOR i=128 TO 
255:PRINT #8 CHR$(i);:NEXT i« bringt 
nun den gesamten Grafikzeichensatz 
des Schneiders zu Papier. Vorausge- 
setzt, Sie benutzen einen Drucker, der 
diese Symbole im ROM gespeichert 
hat. Das sind in aller Regel die Geräte, 
die den Namenszusatz »CPC«, »für 
Schneider« oder ähnliches tragen. 
Andere Drucker geben jeweils ihren 
eigenen speziellen Zeichensatz aus, 
der bei ihnen im ROM gespeichert ist. 
Benutzen Sie ein Gerät, das mit einem 
frei definierbaren RAM-Zeichensatz 
arbeitet, so können Sie hier die Sym- 
bole des Schneiders speichern und mit 
unserem Umbau benutzen. Wie Sie die 
Zeichen in den Speicher des Druckers 
bekommen, entnehmen Sie dem Hand- 
buch, da dieser Vorgang bei jedem 
Gerät anders ist. 

Mit »OUT &F600,0« setzen Sie das 
achte Bit wieder zurück. Nun wird der 
normale ASCII-Code an den Drucker 
geschickt. Unsere Maschinencode- 
Routine (Listing 1) bewirkt dieses 
Umschalten automatisch. Die Routine 
ist für beide Computer (den 664 und 
6128) bis auf den Aufruf der Firmware- 
Routine MC-BUSY-PRINTER _ gleich. 
Listing 2 zeigt den Basic-Lader für den 
664 und Listing 3 die Zeile 70, die für 
den 6128 zu ändern ist. Nach dem Ein- 
tippen müssen Sie das Programm ein- 
mal mit »RUN« starten, damit es hinter 
die Adresse AO0OO hex geschrieben 
wird. Bis zum Ausschalten (oder bis zu 
einem Reset mit ESC, SHIFT und CTRL) 
des Computers bleibt die Betriebssy- 
stemveränderung im Speicher stehen. 
Den Basic-Lader dürfen Sie natürlich 
löschen. 

Wenn ein 464-Besitzer jetzt auf den 
Geschmack gekommen ist und seinen 
Computer auch mit einem echten 
Centronics-Port versehen will, dann 
muß er auf das erste Schneider- 
Sonderheft von Happy-Computer (Aus- 
gabe 2/85) zurückgreifen. Dort ist der 


gleiche Umbau für den Schneider CPC 
464 beschrieben. 


(Michael Bauer/hg) 


der 8255 mit seiner Nase (Einkerbung) rechts 12 Beine ab und schon haben 
nach links vor uns liegt. Nun zählen wir wir den gesuchten Port C. Beim Anlöten 
an der unteren Reihe von links nach des Drahtes muß man unbedingt daran 
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Keine Einga- 
befehler mit 
»Explora« 


Mit einer Prüfsumme wird jede Zeile, 
die Sie eingeben, überwacht. Fehler 
im Listing sind damit fast unmöglich. 
Aber auch Sonder- und Leerzeichen 
sind besser zu lesen. 








enn Sie das Programm »Explora« abtippen, 

haben Sie eine wertvolle Eingabehilfe. Eine 

Maschinencode-Routine überwacht Ihre Arbeit 
daraufhin, ob sämtliche Zeichen (auch Steuersymbole) 
sowie Leerstellen und Zeilennummer korrekt im Speicher 
stehen. Nach Beenden einer Zeile mit ENTER, wird direkt in 
die untere linke Ecke des Bildschirms die vierstellige Hexa- 
dezimalzahl angezeigt, die Sie im Listing in der eckigen Klam- 
mer neben jeder Programmzeile finden. 

Voraussetzung für die Überwachfunktion ist allerdings, daß 
Sie die Programmzeile genauso eingeben, wie sie abge- 
druckt ist. Abkürzungen, die vom Interpreter auch verstan- 
den werden, dürfen Sie nicht benutzen (also kein »?« für 
»PRINT«). Auch müssen Sie große undkleine Buchstaben wie 
vorgegeben eintippen. Der Interpreter würde für »PRINT« 
auch »print« akzeptieren — Explora hingegen nicht. Steuer- 
zeichen und mehrere Leerzeichen, die in Strings aufeinander 
folgen, sind in geschweiften Klammern im Klartext angege- 
ben. So bedeutet [5 Space), daß an dieser Stelle fünfmal die 
Leertaste gedrückt werden muß. |CTRL A} bedeutet, daß die 
Ctrl-Taste gemeinsam mit dem »A« gedrückt werden muß 
(siehe im Beispiellisting Zeile 430 und 440). Aber Vorsicht, 
daß Sie solch ein übersetztes Zeichen nicht mit dem ASCIl- 
Sonderzeichen »|« beziehungsweise »}« verwechseln. Die 
Bedeutung der geschweiften Klammer erkennen Sie aber 
leicht, denn als ASCII-Sonderzeichen steht sie meist allein. 
Im anderen Fall umschließt sie Control-Zeichen oder Leerfel- 
der. Der AUTO-Befehl darf übrigens nicht verwendet werden, 
da sonst die Prüfsumme falsch berechnet wird. 

Alle Listings sind mit dem ASCIlI-Zeichensatz ausgedruckt. 
Deutsche Sonderzeichen werden dabei als Klammern oder 
andere amerikanische Sonderzeichen interpretiert. Benut- 
zen Sie eine deutsche Tastatur, so dürfen Sie an Stelle dieser 
Zeichen die deutschen benutzen. Explora merkt dies. Wel- 
che amerikanischen und deutschen Zeichen sich entspre- 
chen, finden Sie in der Tabelle. Das Zeichen » ” « (für das »B«) 
wird mit CTRL 2 aufgerufen. 

Listing 1 ist die Routine für die Prüfsumme. Diese liegt ab 
Adresse 40960 im Speicher. Das Basic-Lader darf gelöscht 
werden. Eingeschaltet wird Explora mit »POKE & AD1F,&F5«, 
ausgeschaltet mit »POKE &AO1F,&C9«. Probleme kann es 
nur bei Listings geben, die ein Maschinencode-Programm 
(das sind die Basic-Lader) erzeugen. Eventuell funktioniert 
der MEMORY-Befehl nicht richtig. In diesem Fall darf er 
ersatzlos gestrichen werden. Beim Speichern der Binärfel- 
der müssen alle Adressen aber genau beachtet werden. 

Der Übersicht halber sind die Zeilen-Nummern nach links 
herausgezogen. Die eigentlichen Befehle beginnen immer 
nach einer Leerstelle hinter der Zeilennummer. Listing 2 zeigt 
fünf Zeilen als Beispiel. Übrigens: Alle Programme können 
auch, wie gewohnt, ungeprüft eingegeben werden. (hg) 











Sonderzeichen 
amerikanische 
@ 


deutsche 
[ 

N 

] 

f 

q 

I 

} 

J 


Das Symbol »"« steht für »!« 


Tabelle. Die deutschen und die amerikanischen 
Sonderzeichen im Vergleich 
ME = = © 2 2 2 22202 2 22 02727272712 2 12 2272712121222 7277 


Fuer Schneider CPC 
464, 664 und 612B: 


Happy-Computers 


(ce) Martin Kotulla 


EEE SE Ze Z2 Ze 22 2 22 ze 2 2 ze 


EINE 
158 MEMORY 48959 
en i=489658 TO 41894:READ a:POKE i,a 
3 ä 
178 POKE &168,&CD:POKE &161,%&B:POKE &162 
‚&B9:POKE %163,%3A 
188 POKE &164,&2:POKE &165,&CQ:POKE &166 
‚%32:POKE &167,&6D 
198 POKE &168,&1:POKE &169,&C9:CALL %160 
288 cpcversion=PEEK (&16D) 
218 IF cpcversion=B THEN 298 
228 IF cpcversion<‘>1 THEN 248 
2358 POKE &ABB5,%5B:POKE &AB13,%&5B:POKE & 
AB19,&5C 
248 POKE &AB24,&8A:POKE &ABS5,&BA 
258 GOTO 298 
268 IF cpcversion<>2 THEN PRINT "Kein CP 
C-464/664/6128'":END 
278 POKE &ABB65 ,&5E:POKE &AB13,%&5E:POKE & 
AB19,%&5F 
288 FPOKE &AB24,%&BA:POKE &ABSS5,&BA 
298 PRINT:PRINT:PRINT "Checksummer ist a 
ktiviert!" 
388 PRINT:PRINT 
„&FS" 
318 PRINT:PRINT 
‚&C9"=: PRINT 
328 CALL &AB85S ° Checksummer einschalten 
338 DATA %&900,%:20,%:20,%:20,&:00,%21,&3A,&BD 
‚%&11,%&82,&AB,%&01,&03,&B80,&ED,&B® 
348 DATA &3E,&C3,832,%3A,&BD,&21,&1C,&AB 
‚%&22,&3B,&BD,&C9,&CD,%&92,&AQB,&FS5 
358 DATA &C5,%&D5,%E5,&01,&A4,&AC,&21,%&00 
‚&00,&BA,%&SF,%&165,2808,%&19,%&903,&FE 
360 DATA" &00,%&20,%&F6,&DD,%21,%&A4,&AC,&B1 
‚%80,&088,%&DD,&7E,&OD,&5F, Ki6, ‚208 
378 DATA 19, xD4, &F5, LAB, &47,&F1,&089,&DD 
‚&23,&FE,&00, ‚220, &ED,&SE,&OD,&CD 
388 DATA &5A,&BB, &3E , &OA,&CD,&5A,&BB,&3E 
‚%&S5B,&CD,&%S5A,&BB,&7C,&CD,&76,&AB 
398 DATA %&7C,&CD,&7A,&AB,&7D,&CD,&76,%&AQ 
‚&7D,&CD,%7A,&AB,&IE,&5D,&CD ,&5A 
408 DATA &BB,&E1,&D1,%C1,&F1,&C9,%1F,&1F 
„siF,&1F,&Eb,&OF ,%C5,%3B0,&FE,&3A 
418 DATA &38,&92,&C6,%&87,&C3,&5A,&BB 
428 END 


"Einschalten: POKE &AB1F 


"Ausschalten: POKE &ABIF 





Listing 1. »Explora« macht Fehler fast unmöglich 


DATA &BB,&E1,%&D1,&C1,&F1,&C9,%1F,&iF 

„HiIF,&1F,&E6,&BF ,&C6,&30,&FE,&3A 

DATA %&38,%82,%&C6 ,%&B7 ,&C3,&5A,&BB 

NEW 

PRINT "{CTRL AF{CTRL Y3{CTRL Y3{CTRL 
Ar" L8DBB] 

PRINT "{5 SPACE>WWFC" L8CDE] 


£[C4C0] 
[&53C] 
CEE48] 


Listing 2. Im Beispiel müßten Sie die Zeile 400 wie folgt ein- 
geben (MODE 1): 
400 DATA &BB,&E1,&D1,&C1,&F1,&C9,&1F,&1F 
‚SAF,&1F,&E6,&0F,&C6,&30,&FE,&3A. 

Zeile 430 besteht in der PRINT-Anweisung aus den vier 
Tastendrucken Ctri A, Ctri Y, Ctrl Y und Ctrl A. Zeile 440 aus 
dem String ” wwi” 
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Sound- 
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Z80-Prozessor ULA 
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Fan. 





ROM Video- 


Controller 


Aus dem Schnei 


4 Anders als 

ı viele ihrer Vorfahren 
zeichnet die 
Schneider-Compu- 
ter ein sehr 
starkes Basic aus. Aber auch 
ihr elektronisches Innenleben 
bietet reichhaltigen Stoff. 


chon bei der ersten, anfängli- 
chen Betrachtung stößt man auf 
eine der Besonderheiten. Da 
wird beispielsweise die Hinter- und Vor- 
dergrundfarbe nicht direkt über einen 
Farbcode eingegeben, sondern sie 
müssen erst mit »INK« Farbregister defi- 
niert werden. Es stellt sich natürlich die 
Frage, warum diese etwas ungewöhnli- 
che Methode? Wir wollen einmal versu- 
chen, diesen Spezialitäten auf den 
Grund zu gehen. Beginnen wir mit 
einem groben Überblick. Als Grundlage 
unserer Betrachtungen dient dabei das 
Blockschaltbild der Schneider-Compu- 
ter (Bild 1). Es stellt ein Prinzip- 
Schaltbild der Computer dar, ist also 
eine grobere, aber dadurch auch über- 
sichtlichere Variante eines Schaltplans. 
Beschäftigen wir uns zunächst einmal 
mit den einzelnen Baustein-Gruppen, 
aus denen der CPC besteht. 
Herzstück des Systems ist ein Z80A- 
Prozessor, auch als CPU (Central Pro- 
cessing Unit = zentrale ProzeBßeinheit) 
bezeichnet. Dieser Baustein stellt quasi 
das Gehirn unseres Computers dar. 
Seine Aufgabe besteht in der Kontrolle 
und Ausführung des internen und exter- 
nen Datentransfers und in der Durch- 
führung arithmetischer und logischer 
Funktionen. 





RAM 


Zur Durchführung dieser Aufgaben 
benötigt ein Prozessor zunächst einmal 
Anweisungen, ein Maschinencode- 
Programm also, die sogenannte Firm- 
ware. Dieses Programm muß in einem 
externen Speicher vorliegen und dort 
wenigstens teilweise ständig verfügbar, 
also resident, sein. Daneben benötigt 
er Speicherplatz zur Ablage von Zwi- 
schenergebnissen und Kommunika- 
tionsmittel zum Datenaustausch mit sei- 
ner Umwelt, Verbindungsglieder zur 
Tastatur, zum Bildschirm und natürlich 
auch zu Massenspeicher-Medien (Kas- 
sette oder Diskette). 


Auch Computer 
brauchen 
Kommunikation 


Die beim Schneider verwendete 
Z8OA-CPU unterscheidet dabei zwei 
Arten von peripheren Bausteinen, 
Memory- und I/O-Bausteine. Bei den 
Memory-Bausteinen handelt es sich 
vereinfacht gesagt um Speicher; also 
um RAM und ROM. Die nicht flüchtigen, 
permanenten ROM-Bausteine (Read- 
Only-Memory = Nur-Lese-Speicher) 
enthalten dabei alle Anweisungen für 
den Schneider, um die verschiedenen 
Systemfunktionen auszuführen. Dazu 
gehört die Ausgabe von Zeichen an den 
Bildschirm genauso wie das Laden von 
Programmen undandere grundlegende 
Operationen. Dazu kommt noch eine 
Vielzahl von Konstanten, wie beispiels- 
weise die Ursprungs-Definition aller 
Zeichen, die Anfangsbelegung der 


Tastatur aber auch der auf zehn Stellen 


Schneider CPC 464 


genaue Wert der Zahl »Pl«. In den RAM- 
Bausteinen werden veränderliche Infor- 
mationen abgelegt (»Random-Access- 
Memory« bedeutet Schreib-/Lese- 
Speicher mit beliebigem Zugriff«), wie 
beispielsweise der Bildschirminhalt, ein 
eingegebenes Basic- oder CP/M-Pro- 
gramm. 

Alle anderen Bausteine, wie I/O- 
Chips, die die Kommunikation mit der 
Außenwelt sicherstellen oder die 
Video-Bausteine zur Ausgabe von Bild- 
schirminformation über den Monitor, 
werden als I/O angesprochen. Das Kür- 
zel »I/O« steht dabei für Input/Output, 
also Ein-/Ausgabe-Baustein. 


Wenn Sie das Blockschaltbild be- 
trachten, können Sie eine grobe Dreitei- 
lung des Systems vornehmen. Ganz 
unten finden Sie die CPU. Darüber liegt 
die I/O-Gruppe und im oberen Teil des 
Bildes dann der Memory-Bereich. Hier 
gibt es allerdings eine Einschränkung: 
Das ganz oben liegende ULA (mehr zu 
seinen Aufgaben im zweiten Teil dieses 
Artikels) wird als I/O-Gerät angespro- 
chen. 

Alle Bausteine sind durch einen gro- 
Ben Leitungsstrang, den sogenannten 
Bus, verbunden, der sich in drei Teile 
gliedert: 

- Der Adreßbus: 

Er besteht aus 16 Leitungen (=16 
Bit) und dient zur Adressierung, das 
heißt Auswahl eines bestimmten I/O- 
Bausteins, beziehungsweise einer 
Adresse im Speicher. Hierbei handelt 
es sich um reine Ausgabeleitungen. Die 
CPU setzt eine Adresse und erwartet 
dann von dieser Speicherstelle Daten, 
beziehungsweise sendet an diese 
Informationen. Die 16 Adreßleitungen 
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haben Nummern von O bis 15. AO 
(Adreßleitung Nummer O) stellt dabei 
das niederstwertige Bit dar, A15 das 
höchstwertige. Mit 16 Leitungen lassen 
sich 2'° verschiedene Kombinationen 
darstellen, oder in diesem Fall 2'% 
=65536 verschiedene Speicherstel- 
len adressieren. 

- Der Datenbus: 

Er bestehtaus acht Leitungen (=8 Bit) 
und kann wahlweise auf Eingabe, das 
heißt den Empfang von Daten oder Aus- 
gabe programmiert werden. Dies 
geschieht jeweils durch den Prozessor 
bei der Ausführung eines Maschinen- 
befehls. Beim Z80A werden immer 8 
Bit (= 1 Byte) parallel gesendet bezie- 
hungsweise empfangen. Die Datenbus- 
Leitungen tragen Nummern von Obis 7. 
Die O stellt wieder das niederstwertige, 
die 7 das höchstwertige Bit dar. 

- Der Steuerbus: 

Beim Steuerbus handelt es sich um 
einige weitere Leitungen, die steuernde 
Funktionen wahrnehmen. Wir haben 
bei der Beschreibung des Adreßbus- 
ses schon errechnet, daß die CPU 
maximal 64 KByte (= 65536) ver- 
schiedene Speicherstellen direkt 
adressieren kann. Dies reicht normaler- 
weise nicht aus. Denn schon das RAM, 
der variable Speicher unseres Compu- 
ters, belegt 64 KByte; beim CPC 6128 
sind es sogar 128 KByte. Deshalb hat 
man bei der Entwicklung des Z8OA- 
Prozessors die schon beschriebene 
Trennung in l/O- und Memory-Bau- 
steine eingeführt. Durch zwei Leitun- 
gen im Steuerbus wird angezeigt, ob 
die CPU einen Ein-/Ausgabe-Baustein 
oder ein Speicher-IC ansprechen will. 
Dadurch steht die doppelte Anzahl von 
Speicherstellen zur Verfügung. Jeder 
Baustein im System ist nämlich mit einer 
der beiden Leitungen verbunden und 
nur, wenn neben dem Adreßsignal auch 
noch diese Freigabe-Leitung den richti- 
gen Wert aufweist, schaltet er sich in 
die Kommunikation ein. Nun ist Kommu- 
nikation eine schwierige Sache. Irgend 
jemand muß beispielsweise einem 
Speicherbaustein ja auch noch sagen, 
ob dieser »zuhören«, das heißt Daten 
empfangen oder »sprechen«, also 
Daten senden soll. Dazu existieren zwei 
weitere Leitungen im Bus: eine, die ein 
Schreibsignal (aus Sicht des Prozes- 
sors!) ausgibt, eine andere, die Informa- 
tionen anfordert. Daneben gibt es im 
Steuerbus noch weitere Verbindungen 
zur Abstimmung des Datenaustau- 
sches zwischen den einzelnen Baustei- 
nen, also zur Synchronisation. 

Daten-, Adreß- und Steuerbus verbin- 
den als Leitungsstrang alle wesentli- 
chen Baugruppen des CPC. Inunserem 
Schaubild symbolisiert ein Balken in der 
Bildmitte den Bus. 

Wenn im Schneider CPC nun bei- 


spielsweise ein Wert an einen I/O- 
Baustein ausgegeben werden soll, läuft 
folgendes ab: 

Der Z80 gibt auf dem Adreßbus den 
Code des anzusprechenden Ausgabe- 
bausteins aus. Gleichzeitig wird auf 
dem Steuerbus angezeigt, daß ein Ein-/ 
Ausgabe-Baustein aktiv werden und 
Daten empfangen soll. Die Daten wer- 
den fast gleichzeitig auf dem Daten-Bus 
zur Verfügung gestellt. 

Betrachten wir nun einmal, was die 
einzelnen Bausteine im Zusammenwir- 
ken alles leisten. 


Centronics-Port als 
Eingabe-Schnittstelle 


Die Z80-CPU als Schaltzentrale der 
Schneider-Computer haben wir mit 
ihren verschiedenen Funktionen schon 
kennengelernt. Als nächstes wollen wir 
uns daher mit den im Blockschaltbild 
darüber liegenden Bausteinen 
beschäftigen, den Schaltkreisen des 
V/O-Bereichs. 

Da wäre zunächst einmal der Druk- 


Der 


Video- 
controller 
6845 


Grafik- 
Speicher 


Kassette 


kerausgang, auch als Centronics-Port 
bezeichnet. Dieser Ausgang stellt die 
Schnittstelle zum Drucker dar, kann 
jedoch auch als allgemeiner Steueraus- 
gang benutzt werden. Die Ausgabe von 
Informationen an den Drucker erfolgt 
nicht direkt, sondern unter Zwischen- 
schaltung eines 8-Bit-Schieberegi- 
sters. Dieses Register ist als 8-Bit- 
Ausgaberegister geschaltet. Es über- 
nimmt auf Kommando, bei Anlegen 
eines Taktsignals, Daten vom Datenbus 
und speichert diese bis zum Auftreten 
des nächsten Taktes zwischen. Leider 
werden schaltungsbedingt nur 7 Bit 
ausgegeben. Wie diesem Problem bei- 
zukommenist, darüber wurde bereits im 
letzten Sonderheft (Ausgabe 1/86) aus- 
führlich berichtet. Hier wollen wir daher 
auf einen anderen Bereich genauer ein- 
gehen: Die Benutzung des Druckeraus- 
gangs als universellem Ausgabekanal. 
Der Centronicsport stellt eine sehr 
einfach zu bedienende, universelle 
Aus- und, was noch meist unbekannt 
ist, Eingabeschnittstelle dar. Neben 
den sieben Datenleitungen und dem 
Strobe-Signal steht am Printerport näm- 
lich auch noch ein 1-Bit-Eingabekanal 


Firmware 
ROM 


es 


Printer 
Latch 





Bild 1. So sind die einzelnen Bausteine verbunden. Das abstrakte Blockschaltbild 
zeigt einen groben Überblick über die Verbindung der einzelnen Bausteine. 
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zur Verfügung, der Busy-Eingang. 
Nomalerweise wird dieser Eingang vom 
Drucker benutzt, um anzugeben, daß er 
mehr Zeichen empfangen hat, als er 
aktuell auswerten kann, und der Com- 
puter sich doch bitte etwas mit der wei- 
teren Ausgabe gedulden möge. Man 
kann diesen Kanal jedoch auch extern 
beschalten und dann für universelle 
Eingabe verwenden. 

Um den Centronicsport zu benutzen, 
muß man sich zunächst einmal überle- 
gen, wo die verschiedenen Signale zur 
Verfügung stehen. Dazu genügt ein kur- 
zer Blick in den Anhang Ihres Benutzer- 
handbuches, in dem auch die Belegung 
des Druckerausgangs beschrieben ist. 

Wenn Sie sich den Schneider von hin- 
ten ansehen, liegt Pin 1 dabei auf der 
Oberseite der Platine, beziehungs- 
weise beim CPC 6128 ganz rechts 
außen. Von rechts nach links nehmen 
dann die Pin-Nummern zu. Pin 1 liefert 
dabei das Strobe-Signal. Die nächsten 
sieben Pins stellen die Datenleitungen 
dar. Pin 9, die achte Datenleitung, ist 
beim Schneider permanent auf O 
gelegt. Pin 10 wird nicht genutzt und 
Pin 11 ist mit dem Busy-Eingang ver- 
bunden. 

Nachdem wir nun wissen, wie die 
Ausgänge beschaltet sind, können wir 
uns dem eigentlichen Datentransfer 
zuwenden. Die Nutzung des Centro- 
nicsports ist in Basic mit dem OUT- 
Befehl problemlos möglich. 

»OUT &EFFF,<Wert>« gibt den 
»Wert« an den Druckerausgang aus. 
Dieser bleibt dort solange erhalten, bis 
wir ihn überschreiben. Wenn Sie also 
beispielsweise »OUT &EFFF&x1100 
1100« eingeben und dann mit einem 
Meßinstrument Pin 4 testen (Masse 
des Instruments muß dabei auf der 
Unterseite der Platine liegen), lesen Sie 
hier +4 Volt ab, also eine logische 1. 


Z80-Prozessor 


ULA Schneider CPC 6128 


9V-Batterie + 


BC237 0A. 


9V-Batterie - 


Unterseite Steckverbinder 





Bild 2. Der CPC läßt eine Leuchtdiode munter blinken 
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Bild 3. Eine universelle Steuerung am Druckerport mit wenigen Bauteilen 
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Professionelle Grafikprogramme 











für Schneider CPC 6128 + Joyce 


80) DIGITAL RESEARCH’ 


DR Draw: Macht aus Ihren Ideen ein Kunstwerk 


Verwenden Sie DR Draw, um Organisations-Diagramme, Flußdiagramme, Logos, techni- 
sche Zeichnungen, Schaubilder, Platinenentwürfe und jede nur erdenkliche Art von 
Linien- und Formgrafiken zu entwerfen. Und jeder Bestandteil Ihrer Zeichnung kann auf 
vielfältige Weise durch Farben und Schraffuren hervorgehoben werden. 


Einfachste Bedienung 


DR Draw verwendet leichtverständliche Menüs zur Steuerung seiner Funktionen und 
Erstellung einer Zeichnung. Sie können aus vorprogrammierten Figuren wie Kreisen, 
Quadern, Rechtecken, Kreisbögen, Polygonen und Linien auswählen oder Ihre eigenen 
Figuren entwerfen oder die bestehenden verändern. An beliebigen Stellen kann erläu- 
ternder Text in eine Zeichnung eingefügt werden. Außerdem haben Sie die Wahl zwi- 
schen mehreren Schriftarten. 


Flexibilität bei der Gestaltung 


Jeder Teil einer Zeichnung kann auf Tastendruck überarbeitet und verändert werden: 
Figuren können mit Farben oder Mustern gefüllt werden; sie können vergrößert oder ver- 
kleinertoder an eine neue Position verschoben oder kopiert werden. Ebenso können die 
Schriftarten, Größen, Farben und Positionen mit wenigen Tastendrücken geändert 
werden. 


Vergrößerungen und Ausschnittdarstellungen 


Mit Hilfe einer besonderen Funktion von DR Draw können Sie Einzelheiten Ihrer Zeich- 
nung vergrößern, um Details besser bearbeiten zu können. 


Ausgabe auf Papier, Transparentfolie oder Film 


Was immer Sie erstellen, kann gespeichert oder zu Berichts- und Präsentationszwecken 
auf Papier, Transparentfolie oder Film geplottet oder gedruckt werden. DR Draw druckt 
Ihre Zeichnung exakt auf eine DIN-A4-Seite. 


Hardwarevoraussetzungen 


DR Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
zweiDiskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 


® Erstellung beliebiger Zeichnungen 

® vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, Kreisbögen, Polygone 
und Linien 

® freie Wahl der Gestaltungselemente wie Farben, Muster und Schriftarten 

® Vergrößerungen und Ausschnittdarstellungen 

® Teile einer Zeichnung können kopiert, verschoben oder gelöscht werden 

© Grafiken können gespeichert, geplottet oder gedruckt werden 

® einfache Bedienung durch Menüauswahl 


DM 1 99,-* (sFr. 178,-16S 1890,-*) 


Best.-Nr. MS 613 


In Vorbereitung: 


Fakturierung 
Ein dBASE-II-Anwenderprogramm, das folgende Möglichkeiten bietet: Angebots- 


schreibung und Rechnungsschreibung, Artikelverwaltung, Adreßverwaltung, Nach- 
kalkulation. Der dokumentierte Quellcode wird für individuelle Programmanpassun- 


gen mitgeliefert. 
DM 94,-* (sFr. 82,-16S 940,-*) 


Best.-Nr. MS 616 
* inkl. MwSt. Unverbindliche Preisempfehlung 





Markt&dechnik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


Diese Markt & Technik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser und 
in Computershops. 


DR Graph 


DR Graph: Präsentationsgrafiken mit professionellem Niveau 


DR Graph stein interaktives Softwarepaket, mit dem Sie Ihren Mikrocomputer zur Erstel- 
lung von Geschäftsgrafiken und Text-Charts verwenden können. DR Graph macht es 
leicht, komplexe geschäftliche oder wissenschaftliche Daten in übersichtliche und aus- 
sagekräftige Grafiken zu verwandeln. 


Ein Bild sagt mehr als tausend Worte 


Eine gut dargestellte Grafik weckt das Interesse und die Aufmerksamkeit des angeziel- 
ten Personenkreises eher als andere Kommunikationsarten. Grafisch dargestellte Fak- 
ten können leichter analysiert, verstanden und behalten werden. 


Einfachste Bedienung 


Mit DR Graph können Sie die Grafik dem Computer schnell und leicht beschreiben. Zur 
Erstellung einer Grafik werden die gewünschten Optionen ganz einfach aus übersichtli- 
chen Menüs ausgewählt. DR Graph kann von jedermann bedient werden, der mit einfa- 
chen Grundlagen der Mikrocomputerbedienung vertraut ist. 


Flexibilität bei der Gestaltung 


Zusätzlich zur vorhandenen Computerschrift stehen drei verschiedene Schriften für 
Titelzeilen, Legenden und Anmerkungen zur Verfügung. Auch bei der Gestaltung der 
Grafiken kann aus zahlreichen Linientypen, Linien- und Balkenbreiten und acht Schraffu- 
ren gewählt werden. 


Ansehen, speichern und drucken 


Mit DR Graph können Sie auf dem Bildschirm immer genau sehen, wie Sie Ihre Grafik 
gestalten. Anschließend können Sie sie drucken oder auf Diskette speichern, um sie 
später weiter zu bearbeiten. 


Hardwarevoraussetzungen 


DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 


® Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Grafiken, Strich- 
Histogramme, Punkte-Grafiken und Text-Grafiken 

® freie Wahl der Gestaltungselemente wie Beschriftungen, Titelzeilen, Legenden, 

Farben, Schriftarten und Ränder 

frei wählbare Skalierung 

variable Linien- und Balkenbreite 

Schnittstelle zu anderen Programmen 

beliebig positionierbare Anmerkungen 

Grafiken können gespeichert, geplottet oder gedruckt werden 

einfache Bedienung durch Menüauswahl 


DM 1 99,-* (sFr. 178,-16S 1890,-*) 


Best.-Nr. MS 614 


Finanz-Buchhaltung 

Das Komplett-Paket für den Schneider CPC 6128 und Joyce. Erstellen von Konten- 
plänen, Umsatzsteuerauswertung und Einnahmen-/Überschußrechnung. Betriebs- 
wirtschaftliche Auswertungen wie Journalschreibung und Kostenstellenrechnung 


möglich. 
DM 94,-* (ser. 2-15. 920,) 


Best.-Nr. MS 615 





Bestellungen im Ausland bitte an 
untenstehende Adressen. 

Schweiz: Markt&Technik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 
Österreich: Ueberreuter Media Handels- 

und Verlagsges. mbH, Alser Straße 24, 
A-1091 Wien, 02 22/48 1538-0 
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Ebenso an dem danebenliegenden Pin 
5, während die ersten beiden Datenlei- 
tungen (Pin 2 und Pin 3) keine Span- 
nung aufweisen. Wenn Sie nun »OUT 
&EFFF,&Xx00110011« ausgeben, so 
werden die untersten beiden Pins 
gesetzt und die nächsthöheren zwei 
gelöscht. Für die vier oberen Bit gilt 
natürlich dasselbe. Pin 9, also die 
Datenleitung D8, können Sie mit dieser 
Methode nicht verändern, da diese, wie 
schon weiter oben gesagt, permanent 
auf O gesetzt ist. 


Universelle 
Steuerungen 


Sie sollten natürlich bei diesen Expe- 
rimenten strengstens darauf achten, 
keinen KurzschlußB zu verursachen. 
Eine unabsichtliche Verbindung zwi- 
schen einem Pin, der eine »1« führt und 
einem, der auf Masse gelegt ist, kann 
Ihren Computer zerstören! 

In Bild 2 und 3 finden Sie zwei einfa- 
che Schaltungen, mit denen Sie den 
Schneider schnell als Steuercomputer 
für eine Eisenbahnanlage oder andere 
Anwendungen verwenden können. 
Wenn Sie nur mit dieser Möglichkeit 
experimentieren wollen, genügt die 
kleine Schaltung in Bild 2, deren Bau- 
teile für nur wenige Mark zu haben sind. 
Hier steuert Ihr Schneider eine Leucht- 
diode. Ist Ihnen dann das Prinzip klar, 
können Sie mit der anderen Schaltung 
arbeiten. Dort schaltet der Schneider 
ein kleines Relais, mit dessen Hilfe Sie 
problemlos Stromverbraucher kontrol- 
lieren können. Hierzu noch ein Hinweis: 
Erstens sollten Sie niemals direkt am 
Computer, also beispielsweise ein 
Kabel auf eine Leiterbahn der Platine, 
löten. Mit Sicherheit ist in Ihrer Nähe ein 


RAM ULA 


Schneider CPC 6128 


Elektronik-Fachgeschäft, wo Sie für 
diese Experimente einen Stecker für 
den Druckerausgang kaufen können! 
Auch sollten Sie von solchen Experi- 
menten ablassen, wenn Ihnen nicht 
alles klar ist. Im Zweifelsfall ziehen Sie 
lieber einen befreundeten Hobbyelek- 
troniker zu Rate, als Ihren Computer zu 
ruinieren. 


Nehmen wir einmal an, Sie wollen 
eine einfache serielle Schnittstelle auf 
Ihrem Computer realisieren. Auch dies 
ist von der Hardwareseite her mit dem 
Druckerausgang möglich. Eine serielle 
Schnittstelle benötigt nämlich im Prin- 
zip nur zwei Leitungen, eine Eingabe- 
Leitung und eine Ausgabe-Leitung. 
Daneben muß bei einer solchen 
Schnittstelle auch noch eine Masse- 
Leitung vorhanden sein, aber die haben 
wir ja sowieso auf der Unterseite unse- 
rer Platine reichlich zur Verfügung. Die 
Ausgabeseite bereitet keine Probleme. 
Wir benutzen hier einfach eine Daten- 
leitung, wie schon bei den Steueran- 
wendungen. Die Eingabe soll mit Hilfe 
des Busy-Eingangs vonstatten gehen. 
Die Ansteuerung der Ausgabeseite ist 
ebenfalls nicht schwierig. Sie setzen 
beispielsweise die unterste (DO) Daten- 
leitung auf 1, wenn eine 1 ausgegeben 
werden soll, beziehungsweise Sie 
löschen sie, wenn das Gegenteil der 
Fall ist. In Basic sind die zugehörigen 
Befehle: 

»OUT &EFFF,1« bei Ausgabe einer 1 
und 
»OUT &EFFF,O« bei Ausgabe einer O 

Wie sieht es nun mit der Eingabe aus? 
Das Eingabesignal müssen wir an Pin 
11 der Steckerleiste anlegen. Die 
Abfrage gestaltet sich hier allerdings 
etwas schwieriger, als bei der Ausgabe, 
weil das Busy-Signal nur über einige 
Umwege greifbar ist. Es wird nämlich 





Disketten- 
Laufwerk 


mit Hilfe des universellen I/O-Bausteins 
8255 (links in unserem Blockschalt- 
bild) aufgenommen. In Basic sind dazu 
mehrere Befehle erforderlich, auf die 
wir noch bei der Beschreibung dieses 
Bausteins zurückkommen. Es gibt je- 
doch auch noch die Alternative, zur 
Auswertung mit Maschinensprache- 
Routinen zu arbeiten. Für eine schnelle 
Abfrage oder Sendung von Daten ist 
dies sowieso unumgänglich. Im Firm- 
ware-Bereich der Schneider-CPCs exi- 
stieren zwei Routinen, die sich für 
unsere Zwecke bestens eignen: 
»MC-BUSY-PRINTER« (RAM-Adresse 
BD2E hex) und 

»MC-PRINT-CHAR« (BD2B hex). 

Die erste Routine überprüft, ob ein 
Signal am Busy-Eingang anliegt. Ist dies 
der Fall, wird das Carry-Flag auf 1 
gesetzt, ansonsten gelöscht. Durch 
regelmäßigen Aufruf dieser Routine 
und Auswertung des Carry-Flags kön- 
nen wir also zu jedem Zeitpunkt den 
Busy-Eingang überprüfen und damit 
Daten von unserer seriellen Schnitt- 
stelle übernehmen. Wenn wir dagegen 
Daten senden wollen, benutzen wir die 
zweite Routine. Dazu brauchen wir nur 
den auszugebenden Wert in den Akku- 
mulator zu laden. Alles weitere erledigt 
die Routine. 


Mit einem kleinen Hilfsprogramm in 
Maschinensprache können wir aller- 
dings MC-BUSY-PRINTER auch von 
Basic aus benutzen: 


CALL MC-BUSY-PRINTER CD 2E BD 
JR NC,$+4 38 04 
LD (42020) ,A 32 24 A4 
RET c9 
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3E 01 
32 24 A4 
T c9 


Sie können dieses Programm an 
jeder Stelle im RAM ablegen, beispiels- 
weise ab Adresse 42000. Dazu dient 
der nachfolgende Basic-Lader. 


10 MEMORY 41999 

20 FOR i=42000 TO 42014:READ a$: 
POKE i,VAL(”&”+a$) :NEXT 

30 DATA CD,2E,BD,38,04,32,24,A4, 
09,3E,01,32,24,A4,C9 


Wenn Sie nun den Busy-Eingang 
abfragen wollen, geben Sie einfach 
»CALL 42000:PRINT PEEK(42020)« 
oder »CALL 42000:var=PEEK 
(42020)« ein. Sie erhalten dann auf 
dem Schirm, beziehungsweise in der 
Variablen »var«, den aktuellen Zustand 
des Busy-Eingangs. Mit einer wieder- 
holten Abfrage können Sie eine lau- 
fende überwachung realisieren und die 
am Eingang anliegenden Signale einle- 
sen. 

Auch im »normalen Hausgebrauch« 
läßt sich das kleine Maschinenpro- 
gramm gut verwenden, nämlich zur 
Abfrage der Druckerbereitschaft. Wenn 
Sie mit »PRINT # 8« einen String an den 
Drucker ausgeben und dieser nicht 
empfangsbereit (zum Beispiel nicht ein- 
geschaltet) ist, wartet der CPC gegebe- 
nenfalls ewig auf ein Freigabe-Signal 
vom Drucker und stoppt bis dahin sämt- 
liche Aktivitäten. Rufen Sie aus Ihrem 
Basic-Programm aber vor dem Drucken 
obige Routine mit »CALL 42000« auf 
und testen dann, ob »PEEK(42020)« 
=1 ist, können Sie das verhindern. 

Daneben findet das Hilfsprogramm 


allerdings auch noch in einem anderen 
Zusammenhang Anwendung: bei der 
parallelen Druckausgabe. Wir haben 
schon gesagt, daß der CPC solange 
wartet, bis der Drucker empfangsbereit 
ist. Während er Daten an den Drucker- 
ausgang sendet, kann er nichts ande- 
res tun. Dies ist besonders dann stö- 
rend, wenn eine große Menge von 
Daten gleichzeitig auf dem Schirm und 
dem Drucker ausgegeben werden soll. 
Da die Drucker-Ausgabe meist relativ 
langsam vor sich geht - der CPC liefert 
die Daten bis zu zehnmal schneller, als 
der Drucker diese aufs Papier bringen 
kann - könnte der Computer eigentlich 
neben der Druckeransteuerung noch 
viele andere Funktionen wahrnehmen. 

Die meisten Drucker verfügen über 
einen relativ großen Zwischenspeicher, 
der alle ankommenden Daten erst ein- 


Geschwindigkeit 


durch einen 
Druckerpuffer 


mal puffert. Es ist daher problemlos 


möglich, den Pufferspeicher vollzula- 
den - wenn dieser voll ist, meldet der 
Drucker »Busy« -und dann den Drucker 
arbeiten zu lassen, während der CPC 
sich mit der Bildschirmausgabe be- 
schäftigt. Ist der Druckerspeicher dann 
wieder leer, was sich zeitlich abschät- 
zen läßt (je nach Drucker dauert es zwi- 
schen 3 und 20 Sekunden), kann die 
Druckausgabe fortgesetzt werden. 
Unsere Hilfsroutine macht es möglich: 
Sie schicken einfach solange Daten an 
den Drucker, bis dieser »Busy« zurück- 


Port A Daten ausgeben 
Port B Daten ausgeben 
Port C Daten ausgeben 
Steuerport schreiben 


Datenflußrichtung Kanal C (Co - Ca) 
1 = Eingabe O0 = Ausgabe 


Datenflußrichtung Kanal B 
1 = Eingabe O0 = Ausgabe 


Datenflußrichtung Kanal C (C4 - Cr) 
1 = Eingabe 0 = Ausgabe 


Datenflußrichtung Kanal A 
1 = Eingabe 


0 = Ausgabe 





Bild 4. Zusammensetzung eines Steuerwortes 


gibt. Dann gehtesin einen anderen Pro- 
grammteil, aus dem Sie nach einer Zeit- 
verzögerung wieder in die Druckaus- 
gabe zurückkehren. Die Rückkehr kön- 
nen Sie dabei mit dem EVERY-Befehl 
veranlassen. Als Beispiel nehmen wir 
ein Textverarbeitungsprogramm. Sie 
wollen einen Text, der aus 500 Strings 
besteht und zeilenweise in dem Varia- 
blenfeld z$(1) bis z$(500) gespeichert 
ist, ausgeben. Gleichzeitig beabsichti- 
gen Sie aber, zum Beispiel mit einer 
Editier-Routine, in diesem Programm an 
einem anderen Text Änderungen vor- 
nehmen. Dazu könnten Sie eine Pro- 
grammkonstruktion benutzen, die fol- 
gendermaßen aussieht: 

10 EVERY 200,2 GOSUB 10000 

20 j=0 

30 REM restliches Programm 

AO here 
10000 'Unterprogramm 

10010 j=j+1 

10020 IF j) 500 THEN REMAIN 

(2) :RETURN 

PRINT#8,z2$(j) 

CALL 42000:IF PEEK(42020) 
=1 THEN RETURN 

10050 GOTO 10010 

Durch den EVERY-Befehl erfolgt alle 
vier Sekunden ein Sprung in das Unter- 
programm, solange, bis der Zeitzähler 
dort durch den REMAIN-Befehl der 
Druckroutine zurückgestellt wird. Das 
Druckprogramm selbst gibt in Abhän- 
gigkeit von »j« die einzelnen Zeilen 
nacheinander aus. Nach jeder Zeile ist 
ein Aufruf der Maschinen-Routine in 
Adresse 42000 vorgesehen, der über- 
prüft, ob der Speicher des Druckers voll 
ist. Ist dies der Fall, kehrt die Druckrou- 
tine ins Hauptprogramm zurück und 
sendet dem Drucker für eine Zeitlang 
(bis zum nächsten EVERY-Befehl) 
keine neuen Daten. 

Nachdem wir uns relativ ausführlich 
mit dem Druckerport beschäftigt 
haben, kommen wir nun zum Hauptbau- 
stein im I/O-Bereich: Dem 8255, einem 
sehr vielseitigen IC, das in vielen 
Z80-Systemen Verwendung findet. Der 
8255 ist von seiner Hauptfunktion her 
ein Schnittstellenbaustein. Er spielt die 
Rolle eines »Verkehrspolizisten«, legt 
also fest, welcher Ein-/Ausgabeteil 
(Tastatur, Kassettenrecorder etc.) mit 
der CPU verbunden wird und gibt dabei 
auch die Datenflußrichtung an. Auf der 
einen Seite ist der 8255 direkt mit der 
CPU beziehungsweise dem Datenbus 
verbunden. Auf der anderen Seite ste- 
hen 24 I/O-Leitungen für die Kommuni- 
kation mit der Außenwelt zur Verfügung. 
Diese sind in drei Registern mit den 
Bezeichnungen A, B und C zusammen- 
gefaßt. Jedes der drei Register kann 
wahlweise auf Ein- oder Ausgabe pro- 
grammiert werden. Daneben können 


10030 
10040 
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die Register zu Gruppen zusammenge- 
faßt werden, um Steuerleitungen zur 
Übertragung von Koordinations-Impul- 
sen bei der Datenübertragung, die 
sogenannten Hand-Shaking-Signale, 
zu definieren. Die Schneider-Computer 
machen allerdings von dieser Möglich- 
keit keinen Gebrauch, so daß wir hier 
auf eine nähere Beschreibung verzich- 
ten. 

Es wurde bereits erwähnt, daß der 
8255 drei Kanäle öffnen kann, die 
jeweils wahlweise als Input oder Output 
definiert werden können. Es stellt sich 
die Frage, wie all diese Betriebsarten 
und Ein-/Ausgabedefinitionen dem 
Chip mitgeteilt werden. Dazu wurde bei 
der Entwicklung im 8255 ein soge- 
nanntes Steuerregister integriert. 
Durch Senden eines Datenwortes in 
das Steuerregister wird festgelegt, in 
welcher Betriebsart der 8255 arbeiten 
soll und in welcher Richtung die einzel- 
nen Ports dabei wirken sollen. Das For- 
mat für ein Steuerwort ist in Bild 4 dar- 
gestellt. 


»Verkehrspolizist« 
im Datenstrom 


Der 8255 verfügt über zwei Adreßlei- 
tungen, die angeben, ob der Datenbus 
mit dem Port A, B, C oder dem Steuerre- 
gister verbunden werden soll. Damit 
ergeben sich die Adressen für die 
Ansteuerung der Ports beziehungs- 
weise des Steuerregisters, die in der 
Tabelle zu sehen sind. 

Bevor wir jedoch auf einen Port des 
8255 zurückgreifen können, muß erst 
die Ausgaberichtung im Steuerregister 
festgelegt sein. Nehmen wir an, wir wol- 
len die Ports A und B als Eingabekanäle 
betreiben, C jedoch in der umgekehr- 
ten Richtung. Das zugehörige Steuer- 
wort lautet: 10010010 bin. 

Mit »OUT &F7FF&X10010010« ist 
diese Aufgabe erledigt. Ihnen wird 
dabei vielleicht aufgefallen sein, daß für 
die Angabe des Registers C zwei Defi- 
nitionen (Bits) nötig sind. Dies hat mit 
den bereits erwähnten anderen Be- 
triebsarten des 8255 zu tun. Wenn Sie 
die Datenflußrichtung des 8255 defi- 
nieren, setzen Sie immer beide Halb- 
ports dieses Registers gleich. Wie 
gehen wir nun konkret vor, wenn wir 
Daten aus einem Port einlesen oder an 
diesen ausgeben wollen? »OUT &F6FF, 
&x11001100« gibt beispielsweise den 
Wert 11001100 bin auf Register C aus. 
»A=INP(&F5FF)« liest die aktuell am 
Port B anliegenden acht Datenbit ein. 
Damit sind wir nun endlich in der Lage 
eine direkte Abfrage des Busy-Ein- 
gangs auch in Basic zu realisieren. Das 
Busy-Signal, das wir am Druckerport 
auf Leitung 11 eingeben, wird nämlich 





Im CPC 6128 sind die vier Draht-Brücken 
(LK 1 bis LK4) etwas versteckt über 
dem Schnittstellen-Baustein erkennbar 


zum 8255 weitergeleitet und zwar ist 
es mit Port B, Datenbit D6 verbunden. 
Mit folgendem Experiment können Sie 
sich die Wirkung anschauen: 

10 A=INP(&F5FF):PRINT BIN$(A,B): 
GOTO 10 

Wenn Sie diese Schleife laufen las- 
sen, erhalten Sie zunächst die Ausgabe 
»01011010«. Das zweite Bit von links ist 
gesetzt, der Drucker damit empfangs- 
bereit. Wir simulieren nun einmal einen 
vollen Druckspeicher. Dazu verbinden 
wir Leitung 11 auf der Platinenoberseite 
mit der Unterseite der Platine, einem 
Massepol. Jetzt werden Sie die fol- 
gende Ausgabe erhalten: »00011010«. 
Das zweite Bit von links, also D6, istnun 
auf Null gesetzt. Mit 
»IF (INP(&F5FF) AND &x01000000) 
=8&x010000000 THEN« 
läßt sich auf sehr einfache Art und 
Weise überprüfen, ob der Drucker der- 
zeit empfangsbereit ist oder nicht. 

Dieselbe Abfrage können Sie aber 
auch für andere 1-Bit-Eingaben verwen- 
den. Die Eingabeeinheit muß einfach 
nur den Busy-Eingang auf Masse legen. 
Damit läßt sich beispielsweise eine 
Alarmanlage konstruieren. Man legt 
einen sehr dünnen Draht vom Busy- 
Eingang auf Masse, reißt dieser, verän- 
dert sich das Signal und das Programm 
löst einen Alarm aus. 

Der Busy-Eingang ist jedoch nur 
eines von den insgesamt 24 Bits, die 
uns am 8255 für /O-Operationen zur 
Verfügung stehen. Was machen nun die 
anderen? 

Das Blockschaltbild zeigt uns, daß 
das IC mit einer Vielzahl von Baugrup- 
pen in Verbindung steht. Port B ist fest 
als Eingang programmiert. Über ihn lau- 
fen alle Abfragen, außer der Tastaturab- 
frage. Die einzelnen Bits haben dabei 
folgende Belegung: Bit O ist für den 
Benutzer von geringerem Interesse. 
Hier ist der Zustand des SYNC-Im- 
pulses des CRTC abfragbar. Etwas für 
Ästheten sind die nächsthöheren vier 
Bit. Durch Drahtbrücken wird hier der 
auf dem Bildschirm aufgezeigte Firmen- 
name fixiert. 

Wollen Sie einen Freund oder eine 
Freundin durch einen neuen Computer 





Deutlich erkennbar liegen die Draht- 
Brücken für die Einschaltmeldung des 
CPC 664 rechts oberhalb des »8255« 


beeindrucken? Oder klingt Ihnen der 
Titel »Schneider« gar zu deutsch und 
wäre Ihnen das originale »AMSTRAD« 
oder vielleicht »ORION« oder »SOLA- 
VOX« lieber? Der folgende Absatz hilft 
Ihnen bei dieser kleine Trickserei. 


Vier Computer 
in einem 


Auf der Platine befinden sich neben 
dem 8255 vier Plätze für Drahtbrücken. 
Diese sind mit LK 1 bis LK 4 bezeich- 
net. Jede dieser Brücken legt genau 
einen Eingang, eine Datenleitung, von 
Port B auf Masse. Der Zustand der 
Datenleitungen D1 bis D4 wird beim 
Einschalten vom Betriebssystem abge- 
fragt und erzeugt den entsprechenden 
Firmennamen auf den Bildschirm. 
Brücke 2 veranlaßt, daß der CPC als 
»Schneider« erscheint. Wenn Sie nun 
Brücke 2 auslöten und durch eine 
andere Verbindung ersetzen, verändert 
der Computer seine Einschaltmeldung. 
Bei diesem Experiment sollten Sie aller- 
dings beachten, daß mit der Änderung 
der Brücke, wegen des damit verbun- 
denen Eingriffs in die Maschine, natür- 
lich die Garantie erlischt. 

Bit 5 ist mit der Exp-Leitung des 
»Expansion-Connectors« verbunden. 
Setzt man Pin 48 dieses Erweiterungs- 
anschlusses (siehe Anhang des Bedie- 
nerhandbuches) auf Low-Pegel, so 
kann diese Veränderung durch Testen 
des Bit 5 in Kanal B festgestellt werden. 


Bitweise durch den 
Input-/Output- 
Bereich 


Die Abfrage geschieht dabei analog 
zu »Busy«. Über diesen Eingang kann 
ein externes Gerät dem CPC seine Exi- 
stenz mitteilen. Daneben dient dieser 
Eingang natürlich auch zur Realisierung 
von Steueranwendungen am Expan- 
sion-Port oder einer seriellen Schnitt- 
stelle, wie beim Druckausgang be- 
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Auch im CPC 464 sind die Brücken, wie 
beim 664, frei zugänglich in der Nähe 
des I/O-Controllers zu finden 


Bit 6 kennen wir bereits. Hier liegt das 
Busy-Signal an. Bit 7 und damit die 
letzte noch verbliebene Datenleitung 
auf diesem Port, ist mit dem Kassetten- 
recorder verbunden (beziehungsweise 
mit dem entsprechenden Pin des 
Steckverbinders). Uber diesen Kanal 
liest der Computer Daten vom Recor- 
der. 

Kommen wir nun zum Port C, der im 
CPC fest als Ausgang definiert ist. Die 
unteren drei Bit steuern die Tastaturma- 
trix. Die Tastatur ist in zehn Reihen zu je 
acht Spalten angeordnet. Durch Deco- 
dierung der unteren vier Bit mit Hilfe 
eines BCD-Dezimaldecoders wird eine 
Tastaturreihe auf Low-Pegel gelegt. 


Drückt man nun irgendeine Taste, so 
wird das Low-Signal von einer Reihe auf 
eine Spalte weitergeschaltet; die restli- 
chen Spalten bleiben High. Der CPC 
tastet jede fünfzigstel Sekunde alle 
zehn Reihen durch Anlegen verschie- 
dener Werte an diese vier Bits ab und 
überprüft dann, ob und welche Informa- 
tionen er in den Spalten wiederfindet. 
So analysiert er die gedrückten Tasten. 

Mit Bit 4 wird der Motor des Kasset- 
tenrecorders bedient. Bit 5 stellt die 
Ausgabeleitung für die Datenübergabe 
an den Kassettenrecorder dar. Hier 
wird das Tonfrequenz-Signal übertra- 
gen. Die Bits 6 und 7 dienen als Steuer- 
signale für den Soundchip. 


Verbindung für den 


guten Ton 


Port A wird beim CPC sowohl für die 


Dateneingabe wie auch für die Ausgabe 
benutzt. Sollen Daten in den Soundpro- 
zessor geschrieben werden, so ist 
Kanal A auf Ausgabe programmiert. Die 
zu übermittelnden Daten werden in Port 
A abgelegt, danach wird mittels Bit 6 
und 7 von Kanal C ein Steuercode aus- 
gegeben, der den Soundprozessor zur 
Datenübernahme veranlaßt. 


Nun zur Eingabeseite: Der Soundge- 
nerator verfügt über einen 8-Bit-Port, 
der wahlweise auf Ein- oder Ausgabe 
programmiert werden kann. Im CPC ist 
er auf Eingabe programmiert. Auf die- 
sem Kanal liegen die acht Spalten unse- 
rer Tastaturmatrix. Die mit dem Register 
C angewählte Reihe (vergleiche Kanal 
C) führt bei Tastendruck zu einem Set- 
zen irgendeines Bits im 8-Bit-Port des 
programmierbaren Soundgenerators 
(PSG). Indem der Computer nun nach- 
einander alle acht Spalten durchtastet 
und die entsprechenden Reihen ab- 
fragt, kann er feststellen, welche Taste 
gedrückt wurde. 

Sie sehen also, daß auch die Schnei- 
der-Computer verborgene Reize besit- 
zen, die sich erst bei genauerem Hinse- 
hen offenbaren. Aber die richtige Faszi- 
nation der Computer entsteht nur durch 
diesen tiefen Einblick. Und viele Dinge 
sind im Basic - sei es auch noch so gut 
und umfangreich - einfach nicht durch- 
führbar. Eslohnt wirklich, sich ein wenig 
Zeit zu nehmen und dem Schneider 
aufs Bit zuschauen, um bald mit ihm auf 
du und du zu stehen und so seine 
Fähigkeiten bis ins letzte auszuloten. 


(Carsten Straush/ja) 


Grafik maßgeschneidert 


Im ersten Teil die- 
ses Artikels (»Aus 
dem Schneider«) 
ging es um die 
Kommunikation 
zwischen CPU und Außenwelt. 
Jetzt geht es um die Arbeit 

mit dem wichtigsten Ausgabe- 
gerät, dem Bildschirm, und um 
die Ansteuerung der Speicher- 
bausteine. 


erfen wir zunächst zur gro- 
ben Orientierung einen 
Blick auf den Blockschalt- 


plan im ersten Teil dieses Artikels, dies- 
mal allerdings auf das obere Drittel. 
Der Videoteil des CPC besteht im 
wesentlichen aus dem ULA und dem 
Videocontroller. Sie erkennen diese 
beiden Bausteine im oberen Teil unse- 
rer Abbildung. Quer über den Speicher- 
bausteinen thront das ULA. Links dane- 
ben sehen Sie den Videoprozessor. 
Das ULA erfüllt so vielfältige Aufgaben, 





daß ihm im Rahmen des Systems neben 
der eigentlichen CPU fast die Rolle 
eines Hilfsprozessors zukommt. Tech- 
nisch gesehen handelt es sich bei 
einem ULA um eine Matrix aus Wider- 
ständen, Kondensatoren und Transisto- 
ren (insgesamt mehr als 2200 Einzel- 
komponenten), die mit Hilfe des techni- 
schen Verfahrens der Maskenprogram- 
mierung miteinander verbunden wer- 
den können. Das Kürzel ULA steht 
dabei für »Uncomitted-Logic-Array«, 
also unverbundene logische Gatter. 
Durch die Herstellung von Verbindun- 
gen ist es nun für einen Computerher- 
steller ohne größere Schwierigkeiten 
möglich, auf einem solchen Baustein 
zum Teil sehr verschiedenartige Funk- 
tionen zu integrieren. 

Dies ist der Grund dafür, daß man 
beim CPC nur sehr wenige hochent- 
wickelte Standardbausteine neben 
einigen Hilfschips findet, jedoch kaum 
nichtintegrierte Bauteile. Fast alles ist 
im ULA zusammengefaßt. 

Das Array nimmt beim CPC im 
wesentlichen drei verschiedene Aufga- 
ben wahr. In Zusammenarbeit mit dem 


CRTC-Controller gibt es das Bildsignal 
aus. Der Gatterbaustein ist dabei für die 
Auswahl der abzubildenden Farbe 
eines Punktes zuständig und stellt 
überdies die unterste Adreßleitung zur 
Auswahl des Bildschirmspeichers zur 
Verfügung. Der eigentliche Videochip, 
der CRTC (Cathod-Ray-Tube-Control- 
ler) adressiert immer zwei Byte gleich- 
zeitig und fragt damit die in ihnen enthal- 
tene Farbinformation ab. Welches Byte 
dann am Schluß bearbeitet wird, legt 
das ULA fest. Daneben enthält das, 
auch Gate-Array genannte, ULA eine 
Reihe von Registern, die für die Zwi- 
schenspeicherung der aktuellen Kom- 
bination von INKs, also der verwende- 
ten Farben, benutzt werden, mit deren 
Hilfe der Baustein die jeweils auszuge- 
bende Farbkombination für einen Bild- 
punkt bestimmt. 

Die zweite Aufgabe des ULA besteht 
in der Auswahl von Bildschirm-Modus 
und Speicherbereichsverteilung. Dazu 
verfügt es über ein weiteres Register 
(das MODE-Register), in dem einzelne 
Bits als Kennzeichen für die Speiche- 
rung des Bildschirmzustands benutzt 
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werden. Der Bildschirm-Modus ist für 
das ULA eine Kenngröße, anhand der 
es entscheidet, ob ein anstehendes 
Datenbyte als komplexe Farbinforma- 
tion oder als mehrere Bildschirmpunkte 
zu interpretieren ist. 

Der dritte wichtige Aufgabenbereich 
des ULA ist die zeitliche Koordination 
der Arbeit der anderen Bausteine. Das 
ULA erzeugt mit Hilfe einiger Gatter und 
eines Quarzes den Hauptsystemtakt 
von 16 Megahertz und liefert, indem es 
den Takt aufteilt, fast alle anderen vom 
System benötigten Intervalle. So zum 
Beispiel den Prozessor-Takt mit 4 
Megahertz, die Takte für den Videocon- 
troller und den Soundgenerator mit je 1 
Megahertz. Daneben ist das ULA auch 
für den Hauptinterrupt-Takt zuständig, 
der auch als FAST TICKER bezeichnet 
wird. Das ist eine Unterbrechung, die 
300mal pro Sekunde auftritt und im 
Betriebssystem für den Aufruf ständig 
wiederkehrender, schneller Ereignisse, 
benutzt wird. Eine nochmalige Teilung 
durch 6 liefert einen weiteren Unterbre- 
chungstakt, den sogenannten TICKER, 
der für den Aufruf von zeitlich unkriti- 
schen Routinen, wie zum Beispiel der 
Tastaturabfrage, verwendet wird. 


Das ULA ergänzt und steuert dabei 
die anderen Bausteine; im Videobe- 
reich ist dies besonders der Videocon- 
troller. 

Dieser Baustein liest aus dem frei 
wählbaren 16 KByte großen Bereich 
des Bildschirm-RAM Byte für Byte die 
Bildinformation aus und übersetzt diese 
in das Bildsignal für den Monitor. Dabei 
ist der Videocontroller in weiten Berei- 
chen programmierbar. So können zum 
Beispiel die Anzahl der Zeichen pro 
Zeile oder ähnliche für den Bildaufbau 
notwendige Daten softwaremäßig 
gesteuert werden. Dies geschieht, 
indem in interne Register des Video- 
controllerss geschrieben wird. Der 
Benutzer braucht sich mit diesen Regi- 
stern normalerweise nicht auseinan- 
derzusetzen, weil sie vom Computer 
bei der Initialisierung auf die notwendi- 
gen Werte gesetzt werden und eine 
Änderung meistens nicht sinnvoll ist. 
Eine Ausnahme bilden die Register 12 
und 13, die die Bildschirm-Steuer- 
adresse enthalten. Für eine sinnvolle 
Manipulation der Register benötigt man 
jedoch umfangreiches Wissen über 
den Aufbau des Grafikspeichers. 

Betrachten wir uns also, wie die ein- 
zelnen Bausteine zusammenarbeiten, 
um das Bild auf dem Monitor zu erzeu- 
gen, beziehungsweise, um eine kor- 
rekte Freischaltung der einzelnen Spei- 


cher zu erreichen. Beginnen wir mit 
dem letzteren. Worum handelt es sich 
bei dem Begriff »Freischaltung«? 

Wir haben schon im ersten Teil dieses 
Artikels angerissen, daß die im CPC 
verwendete CPU, der Z80-Prozessor, 
maximal 65536 verschiedene Adres- 
sen über den Adreßbus unterscheiden 
kann. Dies sind genau alle Kombinatio- 
nen, die sich ergeben, wenn man die 
verschiedenen Leitungen des Adreß- 
busses wahlweise auf O oder 1 setzt. 
Nun verfügt der CPC bereits über 64 
KByte RAM, so daß für die Adressie- 
rung des ROM (weitere 32 KByte) 
eigentlich kein Adreßbereich mehr zur 
Verfügung steht. Man müßte sich also 
bei der Speicher-Auswahl des Schnei- 
der-Computers etwas einfallen lassen. 
Die Lösung sieht folgendermaßen aus: 
Beim Schreiben wird immer das RAM 
adressiert, da nur Inhalte von RAM- 
Bausteinen wertmäßig geändert wer- 
den können. Soll dagegen ein Lesevor- 
gang ausgeführt werden, so muß ent- 
schieden werden, ob die Information 
aus dem ROM oder dem RAM kommen 
soll. Diese Auswahl übernimmt das 
ULA. Dazu beinhaltet es ein sogenann- 
tes Multifunktionsregister, wo in zwei 
Bits gespeichert ist, ob RAM oder ROM 
betroffen sind. Die Speicherbausteine 
verfügen jeweils über einen Freigabe- 
(ENABLE-)Eingang. Nur wenn dieser 
gesetzt ist, wird ein adressierter Spei- 
cher auch aktiv. Es findet also, je nach- 
dem womit man arbeiten will (ROM oder 
RAM), eine Umschaltung zwischen den 
beiden Speicherbereichen, das soge- 
nannte Bank-Switching, statt. Beim 
CPC 464 und 664 wird das Bank- 
Switching nur für die Umschaltung zwi- 
schen ROM und RAM benötigt. Der 
CPC 6128 dagegen geht auf diesem 
Weg noch ein Stückchen weiter. Er 
kann mit dem auf der Diskette mitgelie- 
ferten Programm »Bankman« auch noch 
zwischen zwei verschiedenen RAM- 
Blöcken umschalten. 


Je nach dem Inhalt seines Multifunk- 
tionsregisters wählt das ULA über die 
Freigabeleitung entweder RAM oder 
ROM aus. Ein direkter Zugriff auf dieses 
Register in Basic ist nicht besonders 
sinnvoll, da der Computer selbst teil- 
weise mehrmals bei der Übersetzung 
eines Basic-Befehls auf parallel lie- 
gende Speicherbereiche zurückgreift. 
Wenn er beispielsweise einen Grafikbe- 
fehl wie PLOT ausführt, muß er 
zunächst in den Basic-Interpreter, denn 
dort decodiert er ja erst einmal den 
Befehl. Dann muß er den, parallel zum 
Grafikspeicher liegenden, Basic- 


Interpreter ausschalten, um die Ände- 
rung im Grafikspeicher auch durchfüh- 
ren zu können. Gegebenenfalls schal- 
tet er danach wieder auf das obere 
ROM zurück. Eine Änderung unserer- 


seits in Basic wäre daher nur von kurzer 
Dauer und damit absolut nutzlos. 

Für den Maschinensprache-Pro- 
grammierer hält die Firmware des CPC 
jedoch fünf Routinen bereit, die zur 
Umschaltung zwischen ROM und RAM 
dienen. Der ROM-Bereich ist in zwei 
Blöcke mit je 16 KByte aufgeteilt, die an 
der Unter- beziehungsweise Ober- 
grenze des Adreßraums liegen. Der 
obere Teil des ROM enthält dabei im 
wesentlichen den Basic-Interpreter, 
während der untere Bereich die 
Firmware-Routinen bereitstellt. Wenn 
Sie ein Maschinen-Programm mit 
»CALL« aufrufen, ist normalerweise der 
untere ROM-Bereich eingeschaltet, 
der obere dagegen nicht. Zum 
Umschalten dienen folgende Routinen: 

KL-U-ROM-ENABLE (schaltet obe- 
res ROM ein und den darunter liegen- 
den Grafik-Speicher aus) Adresse: 
B900 hex 

KL-U-ROM-DISABLE (schaltet das 
obere ROM aus und gibt den darunter 
liegenden Grafik-Speicher zum Lesen 
frei) Adresse: B903 hex 

KL-L-ROM-ENABLE (schaltet unte- 
res ROM ein und den darunter liegen- 
den Basic-Speicher aus) Adresse: 
B906 hex 

KL-L-ROM-DISABLE (schaltet das 
untere ROM aus und den darunter lie- 
genden Basic-Speicher wieder ein) 
Adresse: B909 hex 

KL-L-ROM-RESTORE _ (stellt den 
ROM/RAM-Zustand, der vor dem letz- 
ten Wechsel bestand, wieder her. Man 
kann natürlich auch mit »KL-U-ROM- 
DISABLE« ein »KL-U-ROM-ENABLE« 
wieder aufheben. War das obere ROM 
jedoch vor dem »ENABLE<« bereits ein- 
geschaltet, wird durch diesen Aufruf 
der Originalzustand nicht wieder herge- 
stellt. Besser ist daher diese Routine. 
Adresse: B9OC hex 


Multi-Talent 


Mit der Freischaltung kennen Sie nun 
den Weg, der dem CPC überhaupt den 
Zugriff auf den Grafikspeicher ermög- 
licht und diesen vom parallel liegenden 
ROM trennt. Damit können wir uns den 
einzelnen Bereichen der Bilddarstel- 
lung zuwenden. Wir beginnen mit der 
Farbdecodierung. 

Obwohl das ULA mit der Speicherum- 
schaltung schon eine Menge zu tun hat, 
ist das Bank-Switching nur ein kleiner 
Teil seiner Aktivitäten. Sein Hauptaufga- 
bengebiet ist die Bildschirmdarstellung 
und hier speziell die Auswahl der Far- 
ben. Wenn Sie vor Ihrem Schneider 
schon auf anderen Heim- oder Personal 
Computern gearbeitet haben, wird 
Ihnen beim Schneider sicher zuerst die 
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etwas seltsame Art der Farbwahl auffal- 
len. Der Computer gibt die Farbwerte 
der einzelnen Bildpunkte nicht direkt 
an, sondern definiert sie indirekt mit 
Hilfe der sogenannten INK-Register. 
Insgesamt existieren 16 solcher Farb- 
register. Alle haben ihren Sitz im Inne- 
ren des ULA. Es liegt jedoch auch noch 
eine Kopie von ihnen im Speicher des 
CPC. Dies hat folgenden Grund: Sie 
wissen sicher, daß der CPC Farben 
blinkend darstellen kann. Wenn Sie 
etwa definieren »INK 1,11,6«, wechselt 
der Cursor ständig zwischen rot und 
blau. Nun ist es aber nicht so, daß der 
CPC Farben manchmal blinkend und 
dann wieder stehend definiert. Im 
Gegenteil. Farben werden im 
Schneider-Computer prinzipiell blin- 
kend definiert. Wenn Sie also einen gel- 
ben Buchstaben auf dem Bildschirm 
sehen, so ist dies in Wirklichkeit ein 
Buchstabe, dessen Farbe ständig von 
»Gelb auf Gelb« wechselt. Allerdings 
wirkt sich dies optisch nicht aus, da 
statt eines wirklichen Wechsels ständig 
derselbe Farbwert gesetzt wird. Tech- 
nisch sieht die Lösung folgendermaßen 
aus: Die CPU schreibt zunächst den 
ersten Farbwert für jedes durch »INK« 
definierte Register in die Farbregister 
des ULA. Nach einer vorgegebenen 
Zeitspanne werden diese Farben 
gegen die zweite Farbkombination aus- 
getauscht und die Farbregister im ULA 
mit den neuen Farbwerten geladen. 
Normalerweise geschieht dies in Inter- 
vallen von 0,2 Sekunden, das heißt jede 
fünftel Sekunde wird die Farbe gewech- 
selt. Wenn Sie zwei Farbwerte für ein 
INK-Register eingeben, wird auf die 
andere Farbe umgeschaltet, ansonsten 
bleibt die alte Farbe erhalten. Deshalb 
gibt es auch keinen Unterschied zwi- 
schen INK 1,24 und INK 1,24,24. Intern 
verarbeitet der Computer den ersten 
Fall grundsätzlich so wie den zweiten. 
Ein Direktzugriff auf die Farbregister 
des ULA ist deswegen auch relativ 
schwierig, denn jede fünftel Sekunde 
erfolgt ja ein automatisches Laden der 
Farbregister des ULA. Um sich hier 
dennoch einen kurzen Einblick zu ver- 
schaffen, führen Sie folgendes Experi- 
ment durch: 

Das ULA wird über die Adresse 7FFF 
hex als I/O-Baustein angesprochen. 
Um ein Farbregister zu setzen, sind 
zwei Schritte nötig. Zuerst muß dem 
ULA die Nummer des zu ändernden 
Registers mitgeteilt werden: 
»OUT&7FFF,&x0000nnnn«. 

Die Unterscheidung zwischen den 
einzelnen Registern des ULA erfolgt 
bitorientiert, das heißt die obersten bei- 
den Bits geben an, ob die Farbnummer 
(00) oder der Farbwert (01) übergeben, 
oder das Multifunktionsregister (10) 
angesprochen werden soll. Die durch 


»nnnn« bezeichneten Stellen nehmen 
dabei die Nummer des Farbregisters als 
Binärzahl auf. Sie können diesen Wert 
errechnen, indem Sie »PRINT 
BIN$(<Nummer>,4)« eingeben. Bei 
Farbregister (INK) 1 wäre das beispiels- 
weise 0001, bei 2 0010 und so weiter. 
Nun müssen wir die auszugebende 
Farbe übermitteln: 
»OUT&7TFFF,&xO10fffff« 

Die fünf »f« enthalten als Binärzahl 
den Farbcode. Wollen Sie also zum Bei- 
spiel »INK 1,11« simulieren, muß die 
Befehlsfolge so aussehen: 
»OUT&7FFF&X0O0000001:0UT& 
7FFF&x01001011« 


Es geht auch 
ohne Basic 


Dabei ist 01011 bin, der hintere Teil 
des zweiten Wertes, die Dezimalzahl 11. 
Wenn Sie diese Zeile nun eingeben, 
wird sich möglicherweise nichts 
ändern; beziehungsweise werden Sie 
wegen des sofortigen Wechsels nach 
einer fünftel Sekunde nur ein kurzes 
Aufblitzen der neuen Farbe wahrneh- 
men. Zwei Änderungen verbessern 
unser Experiment: Zum ersten können 
Sie mit »SPEED INK 255,255« die 
Umschaltung verzögern. Die Rück- 
schaltung erfolgt dann erst nach 5 
Sekunden. Oder aber, Sie schlagen 
den CPC mit seinen eigenen Waffen. 
Wenn Sie nämlich permanent die OUT- 
Kommandos in einer Schleife wieder- 
holen, überschreiben Sie damit jeweils 
die Anderung des Computers und Ihre 
Farbwahl setzt sich durch. Die erforder- 
liche Schleife dazu sieht so aus: 

»10 OUT&7FFF,&x00000001:0UT& 
7FFF&x01001011:GOTO 10« 
Noch ein Tip am Schluß für die Besit- 


zer eines Grün-Monitors. Der Effekt 
wird besser sichtbar, wenn Sie vorher 
die Schriftfarbe mit »INK 1,4« abdun- 
keln. 

Sie wissen nun, wie die Farbdefinition 
beim Schneider vor sich geht. Diese Art 
der Farbfestlegung hat Konsequenzen 
für den Aufbau des Bildschirmspei- 
chers. Während dort bei vielen anderen 
Computern die einzelnen Farbpunkte 
durch Farbcodes repräsentiert werden, 
stehen im Schneider-Computer hier die 
zu verwendenden INK. Bis zum Grafik- 
speicher operiert der CPC also immer 
noch mit PEN und PAPER. Erst das ULA 
übersetzt dann die Registercodes in die 
eigentlichen Farben. Dies ist auch der 
Grund dafür, daß sich bei einer INK- 
Definition der gesamte Bildschirmin- 
halt, der mit dieser Farbe beschrieben 
wurde, ändert. Im Bildschirmspeicher 
sind nur die Register abgelegt, aus 
denen die einzelnen Punkte dann ihren 
Farbwert erhalten sollen. 

Der Bildschirmspeicher wird durch 
zwei Zeiger grob untergliedert, die Bild- 
schirmbasis und den Bildschirmoffset 
(Bild 1). 

Die Bildschirmbasis gibt an, in wel- 
chem Bereich des RAM sich der Bild- 
schirmspeicher befindet. Das RAM des 
CPC kann, wenn wir einmal die Grund- 
variante betrachten (also ohne die 
zweite 64-KByte-Bank des CPC 
6128), in vier Blöcke zu je 16 KByte auf- 
geteilt werden. Im untersten RAM- 
Block liegen die für das Starten des 
Betriebssystems benötigten RESTART- 
Anweisungen. Ein weiterer Teil des 
Speichers wird für die Zwischenspei- 
cherung der aktuellen Basic-Zeile bei 
der Eingabe benutzt. Ebenfalls hier 
beginnt der Basic-Quelltext, also das 
noch nicht in Maschinenbefehle über- 
setzte Basic-Programm. Es folgt ein 
weiterer 16-KByte-Bereich, der, je 


Bildschirmoffset 
SCR-SET-OFFSET 


Bildschirmbasis 
| SCR-SET-BASE 







































































nach Ausdehnung des Basicpro- 
gramms, auch noch von diesem belegt 
wird, ansonsten aber frei zur Verfügung 
steht. Er reicht von Adresse 4000 hex 
bis 7FFF hex. Block 3 wird von System- 
vektoren und -variaben genutzt und ist 
somit nicht als Bildschirmspeicher 
geeignet. Bei der Initialisierung definiert 
der CPC den Bereich zwischen COOO 
hex und FFFF hex, also den vierten und 
letzten Block, für die Speicherung der 
Bildinformationen. 


Wie wär’s mit 


zwei Bildschirmen? 


Die Wahl des Bildschirmspeichers 
verläuft über den Video-Chip. Dafür 
stellt das Betriebssystem auf Adresse 
BCO8 hex die Routine SCR-SET-BASE 
bereit. Beim Aufruf dieser Routine muß 
der Akkumulator, Register A der CPU, 
das signifikante Byte der Speicher- 
adresse enthalten. 

Signifikantes Byte bedeutet, daß für 
die Auswahl nur die obersten beiden Bit 
der übergebenen Adresse benutzt wer- 
den. Wir müssen also lediglich das 
High-Byte der Anfangsadresse des 
ausgewählten Speicherbereiches an 
das Betriebssystem übergeben. Für 
Block 2 ist A mit 40 hex zu laden, denn 
dieser Bereich beginnt ja ab Adresse 
4000 hex. Wir wollen unser Wissen 
gleich einmal anhand eines einfachen 
Beispiels testen. Zuvor beschäftigt uns 
jedoch noch eine weitere Routine, die 
für die Organisation innerhalb des Gra- 
fikspeichers zuständig ist. Mit SCR- 
SET-OFFSET (Adresse BCO5 hex,) wird 
der obere linke Eckpunkt des Bild- 
schirms festgelegt. Wir haben es also 
beim CPC nicht mit einem festen Spei- 
cher zu tun, bei dem Bildpunkte genau 
definierten Speicherstellen zugeordnet 
sind. Um die Wirkungsweise dieser bei- 
den Routinen klarzumachen, gibt es nur 
eines: Ausprobieren. 

Eine sinnvolle Anwendung für »SCR- 
SET-BASE« ist die Definition eines zwei- 
ten Grafikspeichers. Wir haben aber 
bereits einen Grafikspeicher. Wozu also 
einen zweiten? Nehmen Sie einmal an, 
Sie wollten ein Zeichenprogramm 
schreiben, das über den ganzen Bild- 
schirm malen kann. Wo wollen Sie nun 
Erklärungen und Anweisungen oder 
auch nur ein einfaches Menü, das die 
Strichstärke ihres Pinsels festlegt, aus- 
geben. Schon wenn Sie nur ein einzi- 
ges Zeichen auf dem Bildschirm ausge- 
ben, zerstört es die gerade so mühsam 
erstellte Grafik. Oder stellen Sie sich 
vor, daß Sie in einem Programm, das 
verschiedene Bilder in hochauflösen- 
der Grafik benutzt (beispielsweise 
einem Spiel), durch eine einzige kurze 


Anweisung auf den anderen Bildschirm 
umschalten und damit fast ohne zeitli- 
che Verzögerung ein neues Bild zur 
Verfügung haben. Nicht zuletzt wäre es 
auch denkbar, im Grafikspeicher Num- 
mer 1 ein fehlerhaftes Listing parat zu 
halten, während man parallel dazu in 
Grafikspeicher 2 das Ergebnis des Pro- 
grammlaufs betrachte. Genügend 
Anwendungen für einen zweiten Grafik- 
speicher gibt es also. Überlegen wir 
also, wie wir ihn mit Hilfe der Spei- 
cherumschaltung realisieren können. 

Erster Grafikspeicher soll der nor- 
male Bereich von COOO hex bis FFFF 
hex bleiben. Als zweiten Block sehen 
wir den Bereich von 4000 bis 7FFFhex 
vor. 

Geben Sie »POKE &D700,&FF« ein, 
und Sie erhalten, etwa in der Mitte des 
Bildschirms, einen gelben Strich. Als 
nächstes tippen Sie den folgenden 
Vierzeiler ein: 

10 MEMORY &3FFF 

20 DATA 38e,40,cd,08,bc,c9 

30 FOR i=42000 TO 42005:READ 
a$:POKE i,VAL(”&” +a$):NEXT 

40 CALL 42000 

Zunächst setzt dieses Programm die 
Speicherobergrenze auf 3FFF hex 
herab, um Kollisionen mit dem Basic, 
speziell den Stringvariablen, zu vermei- 
den. Danach wird ein kleines Maschi- 
nen-Programm in den Speicherstellen 
42000 bis 42005 erzeugt und aufge- 
rufen. 

Dieses wiederum lädt den Akkumula- 
tor mit dem Wert 40 hex, ruft SCR-SET- 
BASE auf und kehrt wieder ins Basic 
zurück. Löschen Sie jetzt den Schirm 
mit »CLS« und setzen Sie dann ein paar 
Punkte mit dem oben benutzten 
»POKE«. Nichts passiert. Dies ist auf 
den ersten Blick natürlich verwunder- 
lich. Wenn wir das Ganze durchdenken, 
so wird der Sachverhalt aber relativ 
schnell klar. Durch die Verschiebung 
der Bildschirmbasis liegt der Punkt in 
der Mitte des Bildschirms nicht mehr 
bei D700 hex, sondern 32 KByte tiefer, 
auf der Adresse 5700 hex, so daß ein 
»POKE« an diese Speicherposition wie- 
der den gewünschten Strich erzeugt. 


Ändern Sie nun in Zeile 20 die »40« 
auf »FO« ab und lassen das Programm 
laufen, so erhalten wir nochmals die 
ursprüngliche Bildschirmanzeige. Auf 
diese Weise läßt sich auf zwei völlig 
voneinander unabhängigen Bildschir- 
men arbeiten. Veränderungen im 


»Neben«-Bildspeicher bei eingeschal- 
tetem »Haupt«-Bildspeicher sind aber 
nur durch direkten Speicherzugriff 
möglich. 


Wir müssen uns daher mit der Spei- 
cherstruktur etwas näher befassen. 
Wichtig dabei ist erst einmal die genaue 
Kenntnis der Routine SCR-SET-OFF- 
SET und der damit zusammenhängen- 
den Hardwaregrundlagen. Wir hatten 
ihre grundsätzliche Bedeutung bereits 
angerissen. Sie legt den Anfangspunkt 
des Bildschirms (also die linke obere 
Ecke) im Speicher fest. Dies geschieht 
über die Anderung von zwei Registern 
im CRTC (den Registern 12 und 13). Vor 
dem Aufruf der Routine müssen wir in 
das Registerpaar HL den Wert des 
neuen Öffsets schreiben. Die obersten 
beiden Bit werden dabei vernachläs- 
sigt. 

Bevor wir uns mit einer Änderung des 
Offset-Zeigers beschäftigen, sollten 
wir uns erst einmal klarmachen, wozu er 
genau dient. Eigentlich wäre es viel ein- 
facher, wenn dieser Punkt als erste 
Stelle im Bildschirmspeicher, beispiels- 
weise als Byte COOO hex oder 4000 
hex festgelegt wäre. Um der Sache auf 
den Grund zu gehen, machen wir am 
besten einige Experimente. 


Video-Genie 


Dafür greifen wir direkt auf den Video- 
prozessor beziehungsweise seine bei- 
den Register zu. Der CRTC läßt sich 
über vier Adressen ansprechen, wovon 
allerdings nur zwei sinnvoll nutzbar 
sind. Zunächst muß über das Adreßre- 
gister des CRTC die Nummer des inter- 
nen Datenregisters gewählt werden, 
bevor man dieses dann mit Daten füt- 
tern kann. 

Das Adreßregister erreichen wir 
unter der Adresse BCXX hex, wobei die 
»XX« bedeuten, daß diese beiden Stel- 
len nicht benötigt werden. 

»OUT&BCFF,13« teilt dem Videoge- 
nerator mit, daß wir auf sein internes 
Register 13 zurückgreifen wollen; die 
unteren, niederwertigen 8 Bit des 
Offset-Zeigers. Über die Adresse BDFF 
hex können wir nun Daten an das aus- 
gewählte Datenregister senden. 

Normalerweise sollten Sie diesen 
Direktzugriff mit OUT nur in absoluten 
Ausnahmefällen benutzen, weil keine 
Rückmeldung an das Betriebssystem 
erfolgt. Da der CPC aber für die Organi- 
sation des Bildschirms auf die genauen 
Werte für Basis und Offset angewiesen 
ist, ist höchste Vorsicht geboten. Bei 
den nachfolgenden Experimenten soll- 
ten Sie daher auch kein wichtiges Pro- 
gramm mehr im Speicher haben; es 
könnte sonst ein Opfer Ihrer Experi- 
mente werden. 

Der CPC verwendet den Offset- 
Zeiger für den sogenannten Hardware- 
Scroll. Tippen Sie einmal das folgende 


kleine Programm ein: Fortsetzung auf Seite 26 
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Massenspeicher 
der Zukunft 


cD Ro ve Ein Wunder an 
- Speicherkapazität 
auf kleinstem Raum! 


Für wenig Geld ein halbes Giga- 
byte (das wären z.B.: sämtliche 
Daten einer 26-bändigen Enzy- 
klopädie) bieten die ersten 
CD-ROMs. Auch Festplattenlauf- 
werke werden immer preiswerter. 
Die Happy-Computer-Mai-Ausga- 
be vermittelt Ihnen das technische 
Know-how und sagt im Detail was gen 

der Markt bietet. Superprozessoren? 


2. großes Thema — Programmier- 
sprachen: Mit welcher Sprache 
beginnen? Dazu eine umfassende 
Marktübersicht und hilfreiche 


Basic 





Tips. | Erweiterungen 
| für Schneider 
3. großes Thema — 68000er- im Vergleich 
Prozessor: Eine Übersicht, Ver- BE Programmier- 
gleiche und Tips helfen Ihnen bei IF sprachen 


der Wahl Ihres Computers mit die- 
sem Prozessortyp. 


Außerdem finden Sie Tips, Tricks | 
und Hilfen im Umgang mit 
CP/M-Programmen — Den neuen 
$pectrum 128 im Test — Einen 
großen excellenten Spieleteil mit 
Tips, Tricks und Trends — Eine 
Hardware-Bastelei, mit der Sie Ih- 
ren User-Port »verdoppeln« kön- 
nen und den Wetterbericht mal 
ganz privat: Meteosat mit Atari 


So geht's 


Das Listing des Monats heißt 
»Toolbasic 1.1«: Sehr hohe Bild- 
schirmauflösung (640 x 400 Bild- 
punkte) für alle Schneider-Com- 
puter. 





erhalten Sie Mitte jedes Monats 
bei Ihrem Zeitschriftenhändler. 
Die Mai-Ausgabe erscheint 

am 7. April 1986. 





















































10 CLS:LOCATE 10,10:PRINT” PRO- 
BETEXT” 

20 FOR i=1 TO 3 
30 OUT&BCFF, 13:0UT&BDFF,i*80 
40 FOR t=1 TO 500:NEXT t 
50 NEXT i 

Nach »RUN« wird zunächst der Bild- 
schirm gelöscht und »Probetext« in der 
Mitte des Schirms ausgegeben. In der 
Schleife wird der untere Teil dieses Zei- 
gers in 80er-Schritten erhöht. Was Sie 
jetztsehen, ist der Hardware-Scroll, wie 
ihn der CPC immer dann anwendet, 
wenn der Editor auf derletzten Textzeile 
angelangt ist und neuen Platz benötigt. 
Eine Verschiebung des Bildschirmspei- 
cheranfangs um 80 Byte erzeugt also 
Scrolling um eine Zeile. Wie sieht es 
aber aus, wenn wir den Offset-Pointer 
nur um einen geringeren Betrag verän- 
dern, beispielsweise in 2-Byte-Schrit- 


Schiebung 


ten? Ändern Sie die Gesamtzahl der 
Schritte in Zeile 20 auf beispielsweise 
40 und ersetzen den Multiplikator »80« 
in Zeile 30 durch eine 2. Der Text wan- 
dert nun langsam nach links. Wenn Sie 
dieses Spiel nun mit mehreren versetz- 
ten Texten wiederholen, wird irgend- 
wann der Text mitten im Bildschirm 
abgehackt und an einer ganz anderen 
Stelle fortgesetzt. 

Zur näheren Erklärung dieses Phäno- 
mens macht man sich am besten den 
Aufbau des Bildschirm-RAM mit Hilfe 
einer kleinen Grafikroutine klar. Verset- 
zen Sie den Computer mit <CTRL> 
<SHIFT> <ESC> in den Ausgangs- 
zustand und tippen Sie nach »CLS« die 
folgende Zeile ein: 

»FORI=&C000 TO &FFFF:POKE I,&FF 
:LOCATE 1,1:PRINT HEX$(i):NEXT« 

Sie lädt den Bildschirmspeicher ab 
Speicherstelle CO0O hex mit dem Wert 
FF hex. Wenn Sie sich den Ablauf 
anschauen, werden Sie schnell die 
Speicherstruktur erkennen. Das 
Schreiben beginnt in der linken oberen 
Ecke, wie nicht anders zu erwarten war, 
da der Offset nach dem Einschalten 
immer O ist. Es werden jetzt rote Linien 
untereinander auf dem Bildschirm 
gezeichnet, und zwar für jede Textzeile 
zuerst die oberste von acht Bildschirm- 
zeilen. 

Der Wert in der linken oberen Ecke 
gibt dabei die gerade beschriebene 
Speicherstelle an. Bei dem Wert C800 
hex, beginnt der CPC mit der Ausgabe 
der zweiten Bildschirmzeile. Bei DOOO 
hex folgt die nächste und so weiter. Der 
Abstand entspricht also immer 2048 
(800 hex). 

Jede Bildschirmzeile besteht aus 
640 Bildpunkten, so daß wir für ihre 
Speicherung jeweils 80 Byte belegen. 


MODE 0 
Bits 1,5,9,7 


Pixel 
Linkes Pixel 


Bits 0,4,2,6 





MODE 1 
Bits 3,7 


MODE 2 
Bit 7 


Bits 2,6 
Bits 1,5 


Bits 0,4 
Bit O 


Tabelle. Organisation der drei Bildschirm-Modi 


Block 1 C000 


0 = 80 Bytes 8 = 80 Bytes 
= 640 Punkte = 640 Punkte 


Block 2 C800 


1 = 80 Bytes 9 = 80 Bytes 
® = 640 Punkte = 640 Punkte 


Block 8F800 


7 = 80 Bytes 15 = 80 Bytes 
= 640 Punkte = 640 Punkte 





Bild 2. Adreßverteilung im Grafikspeicher 


25 Textzeilen zu je 80 Byte für die Dar- 
stellung einer Bildschirmzeile ergeben 
einen Block von 2000 Byte, der alle 
obersten Bildschirmzeilen beziehungs- 
weise alle zweiten Bildschirmzeilen und 
so weiter enthält (vergleiche Bild 2). 
Nun wissen Sie auch, warum die Ver- 
schiebung des Bildschirm-Offsets um 
80 Byte ein Scrollen um genau eine 
Zeile bewirkt, beziehungsweise, warum 
es bei einem Scrollen um zwei oder 
zehn Byte zu den beschriebenen selt- 
samen Zerstückelungseffekten kommt. 


Wo sind die Bytes? 


Dies sind jedoch nicht die einzigen 
Besonderheiten des Bildschirmauf- 
baus. Wir haben es ja schließlich bei 
unserem Bildschirmspeicher nicht mit 
16000 Byte zu tun, sondern mit 16 
KByte (16384 Byte). Das führt dazu, 
daß nach dem Ende jedes 2000-Byte- 
Blocks 48 Byte frei bleiben. Sie können 
das verfolgen, indem Sie kurz vor dem 
Sprung von einer Bildschirmzeile zur 
nächsten auf den Zähler in der linken 
oberen Ecke schauen. Er läuft 48 Byte 
weiter, ohne daß auf dem Bildschirm 
eine Änderung eintritt. Erst nach Über- 
schreiten der 2048er-Grenze tut sich 
wieder etwas auf dem Monitor. Nun 
könnte man meinen, hier sei eine 
Menge ungenutzter Speicherplatz, der 
nur darauf wartet, entdeckt und (zum 
Beispiel zur Ablage von Maschinenpro- 
grammen) genutzt zu werden. Leider ist 
dies aber nicht der Fall. Denn mit jeder 


Bildschirmlinie Bildschirmlinie 


Bildschirmlinie Bildschirmlinie 


Bildschirmlinie Bildschirmlinie 


Bildschirmlinie 48 


192 = 80 Bytes freie 
= 640 Punkte Bytes 


Bildschirmlinie 48 CFFF 
193 = 80 Bytes freie 
= 640 Punkte Bytes 


Bildschirmliie 48 _FFFF 


freie 
Bytes 


199 = 80 Bytes 
= 640 Punkte 


Änderung des Bildschirmanfangs über 
den Offset ändert sich auch der Anfang 
der acht 2000-Byte-Blöcke und damit 
liegt der Überhang von 48 Byte an einer 
anderen Stelle im Speicher. _ 

Nach so viel Schieberei und Überlap- 
pung sollte man eigentlich denken, daß 
kaum eine Steigerung mehr möglich ist. 
Weit gefehlt! Mit der internen Speiche- 
rung der Farben für die einzelnen Bild- 
punkte setzt der CPC noch einen drauf. 

Im Bildschirm-Modus 2 ist alles noch 
relativ einfach. Hier entspricht jedes Bit 
einem gesetzten Bildpunkt. Wenn Sie 
also einen Bildpunkt in diesem Modus 
durch Direktzugriff ändern wollen, so 
müssen Sie nur seine Position im Spei- 
cher mit Hilfe des Bildschirm-Offsets 
berechnen. Greifen Sie aber für die 
praktische Arbeit auf die Firmware- 
Routinen zurück, da diese die notwen- 
digen Verschiebungen bereits durch- 
führen, Ihnen also viel Arbeit ersparen. 

Etwas schwieriger gestaltet es sich 


‚dagegen, wenn wir in den beiden ande- 


ren Modi operieren möchten. Die bes- 
seren farblichen Möglichkeiten werden 
dabei durch gleichzeitiges Setzen meh- 
rerer Bildpunkte erreicht. So werden 
zum Beispiel im Modus 1 immer zwei 
Bildpunkte nebeneinander auf dieselbe 
Farbe gesetzt. Da man nun nicht mehr 
für jeden Bildpunkt ein eigenes Bit zur 
Speicherung braucht, können jetzt in 
zwei Bit die möglichen vier Farben 
codiert werden. Steht in den beiden Bit 
00, so wird Ink O benutzt, beim Wert 01 
dagegen Ink 1. 

Nun wäre es schön und eigentlich 
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INK 
linke Pixel 


INK 
rechte Pixel 


binär 0000 = O dez. binär 1111 = 15 dezimal 


Farbbyte 





linke zwei Bildpunkte 

‚Bildpunkte Mitte links 
INK O INK 3 

= schwarz = grün 


Bildpunkte rechte zwei 
Mitte rechts Bildpunkte 
INK 3 
= grün 


Bild 3. Gewöhnungsbedürftig: Farbcodierung im CPC 


auch logisch, anzunehmen, daß Bit 6 
und 7 zusammengefaßt die Farbinfor- 
mationen für die beiden linken Bild- 
punkte liefern, Bit 5 und Bit 4 für die 
nächsten beiden Bildpunkte (Pixels) 
und so weiter. Doch was einfach wäre, 
istbeim CPC noch lange nicht natürlich. 
Die Tabelle zeigt die wahre Zuordnung 
der verschiedenen Bits zu den Bild- 
punkten. Da die Farbcodierung auf den 
ersten Blick etwas konfus wirkt, wollen 
wir einige Beispiele durchexerzieren. 
Im Modus O soll folgendes Farb-Byte 
vorliegen (in binärer Schreibweise): 
01010101. Als Farben ergeben sich 
nun für das linke Pixel Ink O und für das 


rechte Pixel Ink 15 (vergleiche Bild 3). 
Vollziehen Sie es einmal in Gedanken 
nach! 

Nun soll eine grüne Strichellinie auf 
dem Bildschirm dargestellt werden. 
Dazu werden jeweils im Modus 1 vier 
Bildpunkte gesetzt, und danach vier 
Bildpunkte ausgelassen. Zunächst wird 
mit »INK 3,21« als Vordergrundfarbe 
Grün bestimmt. Wir gehen einmal davon 
aus, daß die linken und die rechten zwei 
Bildpunkte auf Hintergrundfarbe, die 
mittleren dagegen auf Vordergrund- 
farbe gesetzt werden sollen. Somit 
ergibt sich der Byte-Wert 01100110 
bin. 


Wir nehmen eine Länge von 20 Zei- 
chen für die Linie (beginnend mit dem 
zehnten Zeichen) in der dritten Zeile 
des vierten 2000-Byte-Blocks. 

Jetzt rechnen wir ein wenig. Der 
vierte Block beginnt bei Adresse D800 
hex (dezimal 55296). Wenn wir ein Off- 
set von Null zugrundelegen, kommen 
jetzt 160 Byte für die beiden Zeilen, die 
wir überspringen müssen, sowie wei- 
tere 30 Byte, damit unser 20 Byte lan- 
ger Strich in der Mitte steht. Als Start- 
adresse für unsere Linie erhalten wir so 
55486 und damit folgende Programm- 
zeile: 

»INKO,0:INK3,21:FOR i=55486 TO 
55506:POKE i,&X01100110« 

Probieren Sie nun einmal, die Linie 
selber auf andere Farben zu setzen 
oder eine senkrechte Linie oder ein 
Rechteck auf dem Bildschirm mit 
Direktzugriff zu zeichnen. Eines müs- 
sen Sie dabei aber beachten. Das Ver- 
schieben von Textzeilen beim CPC 
geschieht durch eine Manipulation des 
Offset-Zeigers, vorausgesetzt man 
arbeitet auf dem Gesamtbildschirm. 


Hard- und 
Soft-Scroll 


Mit jedem Scrollen verändern sich 
damit die Anfangskoordinaten des Bild- 
schirms. Die einzige Möglichkeit, dies 
zu umgehen, ist, den Bildschirm in zwei 
Windows aufzuteilen. Zum Beispiel 
könnte man die Zeilen 1 bis 12 und 13 
bis 25, als Window O beziehungsweise 
Window 1 definieren. Dadurch wird der 
CPC zum sogenannten Software-Scrol- 
ling gezwungen. Bei dieser Art des 
Scrollings tauscht der Computer den 
Inhalt zweier Speicherbereiche gegen- 
einander aus, beziehungsweise füllt er 
den betreffenden Bereich mit INK O 
(Hintergrundfarbe). 

Das führt zwar bei Bildschirmbewe- 
gungen zu erheblichem Geschwindig- 
keitsverlust (vergleichen Sie einmal die 
Ausführungsgeschwindigkeit eines 
»LIST« auf dem Gesamtbildschirm mit 
»LIST« in einem Window), hat dafür aber 
den Vorteil, daß der Wert des Offset- 
Zeigers konstant bleibt. Definieren Sie 
also direkt nach dem Einschalten des 
Computers auf diese Weise zwei Fen- 
ster, bleibt die linke obere Bildschirm- 
Ecke stets an der Position COOO hex. 

Sie sehen: Der CPC muß ganz schön 
»schuften«, um kunstvolle Grafik auf 
den Bildschirm zu zaubern. Wie Sie 
gesehen haben, ergeben sich aber 
auch, beispielsweise mit dem 
Hardware-Scroll, immense Möglichkei- 
ten. Experimentieren Sie daher ruhig 
ein wenig. Es lohnt sich! 

(Carsten Straush/ja) 
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Is Lernbeispiel für Basic dient 
uns ein kleines Spiel, an dem 
Sie sehen können, welche 
grundsätzlichen Probleme es beim Pro- 
grammieren geben kann. Hier lernen 
Sie, wie man sie beheben kann und 
zwar Schritt für Schritt. Das vollständige 
Spiel finden Sie nebenstehend als 
Listing. Damit Sie aber etwas lernen 
können, sollten Sie das Programm nicht 
nur eintippen und erst dann weiterle- 
sen, sondern »step by step« mit jeder 
besprochenen Zeile diese erst dann 
eintippen. Da unser Programm weitge- 
hend linear aufgebaut ist - was man 
zuerst immer machen sollte - steht am 
Programmanfang das, was zuerst aus- 
geführt werden soll. 
Jedes etwas umfangreiche Pro- 
gramm, das auch von Außenstehenden 
benutzt werden soll, muß über eine 


asic-Pro 
Stück für Stück 





Meist sind die Erklärungen zu Basic-Programmen 
so dürftig, daß man als interessierter Einsteiger 
nicht viel lernen kann. Wir zeigen Ihnen 

deshalb Befehl für Befehl, wie man auf dem 
Schneider programmiert. 


Erklärungsroutine (einen Programmteil, 
der sagt, was das Programm so alles 
kann) verfügen. Normalerweise benö- 
tigt ein einfaches Spiel keine großarti- 
gen Erklärungen. Die Einleitung dient 
hier eher als Beispiel, wie man solche 
Texte auf den Bildschirm bringen kann. 
Außerdem erspart sie dem Schreiber 
dieser Zeilen die Arbeit, Ihnen zu erklä- 
ren, wie das Spiel funktioniert. Tippen 
Sie also zuerst einmal die Zeilen 10 bis 
190 ein und lassen Sie dann das 
Rumpf-Programm laufen. 

Am Anfang finden Sie einige REM- 
Zeilen. Neben dem Basic-Befehl REM 
kennt der Schneider ein Kurzzeichen 
für diesen Befehl, das Apostroph (»«). 
Hinter diesem kann man beliebige Texte 
speichern. Diese werden vom Compu- 
ter immer ignoriert. Für den Benutzer 
bilden sie aber eine Orientierungs- und 





Erinnerungshilfe. Damit kann man ein 
Programm strukturieren und erkennt an 
der Überschrift sofort, um welches 
Listing es sich handelt. Besonders bei 
mehreren ähnlichen Routinen, bei- 
spielsweise geänderten Programmver- 
sionen, ist das sehr nützlich. Man 
erkennt gleich am Anfang, was für ein 
Listing man eigentlich vor sich hat. Da 
der Computer bei REM-Markierungen 
nichts macht, können Sie diese natür- 
lich auch weglassen. Das Programm 
wird dadurch aber unübersichtlicher. 

In Zeile 110 stoßen Sie auf den Befehl 
»MODE 1«. Da der Schneider in ver- 
schiedenen Bildschirmmodi arbeiten 
kann (MODE 0=20 Zeichen pro Zeile, 
MODE 1=40 Zeichen pro Zeile, MODE 
2=80 Zeichen pro Zeile) ist es immer 
sinnvoll am Programmanfang definierte 
Ausgangsbedingungen zu schaffen. 
Dies ist deshalb wichtig, da farbliche 
Kombinationen und auch die Zeichen- 
positionen (-koordinaten) von diesen 
Rahmenbedingungen abhängen. 

Als nächstes wird der Einleitungstext 
mit einer Reihe von PRINT-Befehlen 
ausgegeben. Dazwischen eingefügte 
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PRINTs ohne nachfolgenden Text sor- 
gen für den notwendigen Zeilenab- 
stand und damit für einen interessanten 
Bildschirmaufbau. In Zeile 150 sehen 
Sie dann, wie man auch Zeichen, die 
nicht direkt über die Tastatur verfügbar 
sind, auf den Schirm bekommt. Die 
Symbole für die Cursortasten werden 
mit »+« und mit Hilfe der CHR$(x)- 
Funktion in die Ausgabezeichenketten 
eingebunden. Wir werden CHR$ in 
Folge noch häufiger verwenden. Dieser 
Befehl bringt ein Zeichen mit einer 
angegebenen Nummer (durch das x 
symbolisiert) - dem Zeichencode - auf 
den Monitor. Die Zuordnung von Zei- 
chen und Codes finden Sie im Anhang 
des Handbuches, wo die einzelnen Zei- 
chen (mit ihren Nummern) abgebildet 
sind. 

Will man einen längeren Text ausge- 
ben, zum Beispiel über mehrere Bild- 
schirmseiten, muß man irgendeine 
Abfrage einbauen, damit der Betrachter 
zur nächsten Seite gelangt. Eine auto- 
matische Weiterschaltung nach einer 
festgelegten Zeit ist dabei nicht emp- 
fehlenswert, da jeder Mensch unter- 
schiedlich lange zum Lesen braucht. 
Der eine müßte warten, während der 
andere noch nicht bis zum Ende vorge- 
“ drungen ist. Das Optimum bildet eine 
einfache Abfrage, bei der nur eine Taste 
gedrückt werden muß, um zur nächsten 
Seite zu gelangen. Sinnvollerweise 
benutzt man dazu eine möglichst große 
Taste, beispielsweise die SPACE-Taste. 
Die Anweisung dazu wird in Zeile 180 
ausgegeben. Die Überprüfung steht in 
der nächsten Zeile. Mit INKEY$ wird 
dabei die gerade gedrückte Taste in die 
Variable z$ gelesen. Wenn keine Taste 
gedrückt wird oder eine andere als die 
Leertaste, dann steht in z$ entweder 
nichts (””) oder etwas anderes als ein 
Leerzeichen (” ”). Der Schneider bleibt 
sozusagen ewig in dieser Zeile hängen, 
zumindest solange, bis die richtige Ein- 
gabe erfolgt. 

Mit dem ersten »RUN« haben Sie jetzt 
den Einleitungstext gelesen und wis- 
sen in groben Zügen, worum es geht. 
Hier noch ein paar zusätzliche Informa- 
tionen: Die eigentliche Spielhandlung 
besteht darin, durch Abschießen eines 
Balles, die aus dem ganzen Bildschirm 
verstreuten Freßwaren (durch Herz- 
chen gekennzeichnet) »abzuschie- 
Ben«, damit Ihr lieber Gegner, ein nicht 
allzu großes Monster, Sie nicht fressen 
wird. Mit einer Art Armbrust, im Spiel 
durch einen Strich symbolisiert, die Sie 
in der untersten Bildschirmzeile seitlich 
bewegen können (mit Cursor rechts 
und Cursor links) und deren Abschuß- 
richtung (nach rechts mit SHIFT und 
Cursor rechts, beziehungsweise links 
mit Cursor links und SHIFT) Sie bein- 
flussen können, schießen Sie Ihren Ball 


ab. Mit Druck auf COPY fliegt der Ball 
los. Seine Flugbahn ist nicht ganz ein- 
fach, da sich neben der Nahrung noch 
andere Gegenstände, die als Hinder- 
nisse wirken, auf dem Bildschirm befin- 
den und den Ball unvorhersehbar 
reflektieren. Diese Hindernisse werden 
durch einfache Rechtecke symboli- 
siert. 

Soweit zur Spielhandlung. Doch lei- 
der beginnt ein Programm nicht mit den 
Höhen der Programmtricks, sondern in 
den Niederungen von Farbdefinition 
und Bildschirmaufteilung. Die dazu not- 
wendigen Zeilen finden Sie bis Zeile 
280. Nicht nur der Bildschirm muß in 
einer definierten Ausgangsposition 
sein, sondern auch die Werte der ver- 
schiedenen Variablen. Dazu dient der 
Befehl CLEAR. Er setzt alle Variablen 
auf Null. Es folgt ein weiteres Initialisie- 
rungskommando: DEFINT. Da wir in 
unserem Spiel ausschließlich ganze 
Zahlen benutzen, definieren wir spei- 
cherplatzsparende Integer-Variablen 
(Ganzzahlen). Wozu sollen wir Spei- 
cherplatz und Schnelligkeit verschwen- 
den? Mit DEFINT werden alle Variablen 
als Integer-Variablen definiert. Eine 
Integer kann Werte zwischen -32768 
und 32767 annehmen und benötigt 
dabei deutlich weniger Speicherplatz 
als die normalen (Real-)Variablen. Sie 
können vom Computer bedeutend 
schneller verarbeitet werden. 


Erst die Arbeit 


Als nächstes folgen einige Bild- 
schirmbefehle. Der Bildschirm soll in 
seiner Breite etwas verringert werden, 
um neben dem eigentlichen Spielfeld 
noch Erklärungen ausgeben zu kön- 
nen. Dazu definieren wir den Hauptbild- 
schirm als WINDOW # O miteiner Breite 
von 35 Zeichen (Spalte 1 bis Spalte 
35), und ein weiteres WINDOW #1 mit 
den Spalten 36 bis 40. Die Höhe beider 
Windows beträgt dabei 25 Zeilen (die 
volle Bildschirmhöhe). Nun brauchen 
unsere Bildschirmfenster (die Win- 
dows) eine Farbdefinition, damit der 
Computer weiß, mit welcher Farbe er in 
den beiden Fenstern schreiben soll. 
Dazu müssen wir vier Farbregister defi- 
nieren. Dazu dient das Kommando INK. 
Register O wird mit schwarz (Farbe O), 
Register 1 mit gelb (24), Register 2 mit 
blau (10) und Register 3 mit rot ( Farbe 
6) belegt. Den Rand setzen wir eben- 
falls auf blau (10). Wenn wir nun mit 
PAPER und PEN den beiden Windows 
ihre Register für die Hintergrund- bezie- 
hungsweise Vordergrundfarbe zuwei- 
sen, und dabei die Hintergrundfarbe für 
Window zwei aus Register 2 entneh- 
men (»PAPER#1,2«), so wird beim 
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nächsten Löschen der Bereich dieses 
Fensters mit der »PAPER«-Farbe be- 
schrieben. In Window #1 sollen später 
der Spielstand und die Punkte ausge- 
geben werden. Mit »CLS« löschen wir 
gleichzeitig beide Windows. 

Mit der Definition der Anfangswerte 
für den Bildschirm sind wir fertig. Aber 
unser Programm braucht nun auch 
noch ein paar Variablen. Diese müssen 
zu Anfang gesetzt werden. Wir haben 
gesagt, daß verschiedene Gegen- 
stände auf dem Bildschirm postiert wer- 
den sollen. Nun ist dies zwar eine für 
einen Menschen ausreichende Be- 
schreibung, der Schneider benötigt 
aber die Informationen in anderer Form. 
Eine Möglichkeit dazu ist ein Datenfeld 
- ein sogenannter Array. 

Ein solches wollen wir als nächstes 
definieren. Es soll zwei Koordinaten 
enthalten. Die X-Koordinate soll von 1 
bis 40, entsprechend den 40 Bild- 
schirmspalten, laufen. Die Y-Koordinate 
soll angeben, zu welcher Zeile der 
gespeicherte Wert gehört. In Wirklich- 
keit läuft das Feld über 41 Spalten (O bis 
40) und 26 Zeilen (O bis 25). Aber 
unser zu groß definiertes Feld ist über- 
sichtlicher als das kleinere. 

Die Abbildung eines Zeichens, bei- 
spielsweise eines Freßsymbols auf 
dem Bildschirm, geschieht in zwei Stu- 
fen. Einerseits wird das Zeichen mit 
Hilfe von LOCATE an einer bestimmten 
X,Y-Position auf dem Schirm ausgege- 
ben, zum anderen wird unter derselben 
Koordinate ein Eintrag im Datenfeld 
0(40,25) gemacht. Dieser zeigt an, ob 
sich an dieser Stelle ein Freßsymbol 
befindet oder nicht. Um zu sehen, wie 
dies in der Praxis erfolgt, sollten Sie nun 
das Programm bis einschließlich Zeile 
440 eingeben und dann laufen lassen. 

Jedes Array muß dimensioniert wer- 
den. Dazu dient der DIM-Befehl. In den 
folgenden beiden Zeilen werden wei- 
tere Variablen auf festgelegte Anfangs- 
werte gesetzt. Dann erfolgt unser Spiel- 
bildschirmaufbau. Zuerst werden die 
Hindernisse definiert. Die Position ist 
dabei dem Zufall überlassen. Insgesamt 
sollen 40 Barrieren auf dem Bildschirm 
verstreut werden. Dies geschieht in 
einer Schleife. Mit RND(1) bestimmen 
wir eine Zufallszahl zwischen O und 1. 
Die Multiplikation mit 33 - beziehungs- 
weise 21 - und Hinzuzählen von 2 lie- 
fert uns Werte zwischen 2 und 35 - 
beziehungsweise 2 und 23. An die so 
entstandenen Zufallskoordinaten (a,b) 
setzen wir mit LOCATE und CHR$ das 
Rechteckzeichen (Zeile 380). Gleich- 
zeitig wird in dem Array o(a,b) die ent- 
sprechende Position mit 2 besetzt (Pro- 
grammzeile 370). Anhand der 2 stellt 
der Computer später bei gegebenen 
Koordinaten fest, ob an dieser Stelle ein 
Hindernis steht oder nicht. 
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Alsnächstes kommen die Futtermittel 
für unser Tierchen. Davon gibt es etwas 
mehr als von den Hindernissen (60 statt 
40), so daß die FOR-TO-Schleife in Zeile 
400 einen höheren Grenzwert besitzt. 
Die Wertzuweisung und der Ausdruck 
auf dem Monitor funktionieren analog, 
nur daß wir das Zeichen 228 (Pro- 
grammzeile 430) an der mitLOCATE a,b 
ausgewählten Koordinate setzen. Zur 
Unterscheidung von den Hindernissen 
wird eine 1 in o(a,b) eingetragen. Die 
Elemente des Arrays o können also drei 
Zustände annehmen. Istbei den Koordi- 
naten x,y o(x,y)=0, so ist die betref- 
fende Position auf dem Bildschirm leer. 
Bei o(x,y)=1 befindet sich an dieser 
Stelle ein Freßsymbol, bei o(x,y)=2 ist 
es ein Hindernis für den Ball. 


Der Bildschirm 
nimmt Form an 


Sie sollten nun wieder ein paar Zeilen 
weiter eintippen - bis einschließlich 
540 - damit Sie den Rest des Bild- 
schirmaufbaus zu Gesicht bekommen. 
Es handelt sich dabei um die Ausgaben 
im rechten Teil des Bildschirms - Punk- 
testand und Schußzahl. Insgesamt 
haben Sie drei Versuche pro Spiel, in 
denen Sie versuchen müssen, mög- 
lichst viele »Freßherzchen« zu treffen. 
Die Punkte werden dabei in der Varia- 
blen »pu« gezählt. Je Freßsymbolgibtes 
einen Punkt. Der Punktestand wird lau- 
fend ausgegeben. Zeile 450 gibt mit 
einem weiteren LOCATE, diesmal auf 
die rechte Seite des Schirms (im 
Window # 1), den Text »Pkte.« und drei 
Zeilen darunter »Schuß« aus. Da wir das 
»B« nicht auf der Tastatur finden, müs- 
sen wir auf einen Trick zurückgreifen, 
den wir schon vom Einleitungstext her 
kennen - die CHR$-Funktion. Mit die- 
ser können wir auf alle Zeichen im Zei- 
chensatz des CPC zurückgreifen, so 
auch auf das griechische Beta mit der 
Symbolnummer 177, das dem »ß« so 
ähnlich sieht, daß wir es hier problemlos 
verwenden können. Es wird an das 
»Schu« angehängt und dann positions- 
richtig ausgegeben. Mit Zeile 460 
endet dann auch der Vorbereitungsteil. 
Wir gelangen zur eigentlichen Spiel- 
handlung. 

Dazu müssen wir allerdings zunächst 
einige Variablen erklären. Zwei Koordi- 
naten sind für das Spiel von Bedeutung: 
- die aktuelle Position des Abschußge- 
rätes (gespeichert in xf und yf), 

- die aktuelle Position des Balles, 
(gespeichert in x und y). 

Daneben muß natürlich auch noch die 
Abschußrichtung vorgegeben sein. 
Diese wird in »ri« abgelegt. Die Anfangs- 
werte dieser Variablen werden in den 


zwei Zeilen 330 und 340 im Vorberei- 
tungsteil gesetzt. 

In unserem Hauptbildschirm fehlt 
noch das Abschußgerät. Seine Position 
ist durch xf, yf bestimmt. Indem wir 
diese Koordinaten setzen - und mit »ri« 
bestimmen, in welche Richtung gezielt 
werden soll - wird entweder ein nach 
links oder ein nach rechts geneigter 
Strich gezeichnet (Zeile 480 und 490). 
Mit Zeile 500 beginnt dann die Spiel- 
steuerung. Drei Versuche sind vorge- 
geben, weshalb die Schleife in Zeile 
500 von 1 bis 3 läuft. Vor jedem Spiel 
muß dabei natürlich der Punktestand O 
betragen (pu=0). In Zeile 510 und 520 
wird nun dieser Stand und die Nummer 
des aktuellen Schusses (1, 2 oder 3) 
ausgedruckt. Anschließend werden 
zwei Unterprogramme aufgerufen und 
dann der nächste Versuch durch das 
NEXT in Zeile 540 gestartet. Es folgt 
die Endauswertung, wobei in Abhängig- 
keit von den erreichten Punkten ein 
passender Kommentar ausgegeben 
wird. Diese Art der Ausgabe kennen Sie 
ja bereits aus der Einleitung. Wir brau- 
chen sie daher nicht weiter zu bespre- 
chen. Wichtig istnur, daß nach der Aus- 
gabe jeden Kommentares mit Hilfe des 
GOTO 630 zur Zeile 630 verzweigt 
wird, wo der letzte Punktestand ausge- 
geben wird. Mit einer Endabfrage wird 
zum Schluß geprüft, ob ein weiteres 
Spiel gewünscht wird oder der ganzen 
Sache ein Ende bereitet werden soll. 

Die Eingabeauswertung finden Sie 
dabei in Zeile 650. Mit INKEY$ wird ein 
Zeichen in die Variable z$ eingelesen. 
Die LOWER$-Funktion ist dabei von 
größtem Nutzen. Sie wandelt einen 
Buchstaben in den dazugehörenden 
Kleinbuchstaben (beispielsweise »B« in 
»b«). Wie Sie vielleicht wissen, unter- 
scheidet der Schneider bei der Abfrage 
zwischen Klein- und Großbuchstaben. 
Wenn Sie also statt des geforderten 
kleinen »j« den zugehörigen Großbuch- 
staben eingeben, erkennt der CPC das 
»j« nicht und bleibt in der Abfrage- 
schleife hängen. Denn der Computer 
sucht ein kleines »n« - in diesem Fall 
beendet er das Programm durch END- 
oder ein kleines »j« - was eine Rückkehr 
zur Zeile 230 bewirkt. Alle anderen Ein- 
gaben, also auch die entsprechenden 
Großbuchstaben, führen nur wieder 
zum Zeilenanfang - zu einer erneuten 
Abfrage, zurück. Durch LOWER$ wer- 
den alle Großbuchstaben in Kleinbuch- 
staben umgewandelt und damit auch 
die Großbuchstaben für die Eingabe 
akzeptiert. 

Nun werden Sie sich sicher fragen, 
wo die Steuerung des Balles und des 
Abschußgerätes geblieben ist. Dazu 
gehen wir einige Zeilen zurück, bis zum 


"Aufruf der beiden Unterprogramme in 


Zeile 530. Hier findet die Steuerung für 


Ball und Armbrust statt. Vor dem 
Abschuß des Balles muß zunächst die 
»Rampe« gesetzt und gerichtet werden. 
Die dazu notwendigen Funktionen fin- 
den Sie in dem Unterprogramm ab Zeile 
690. 

Wir haben das Abschußgerät in den 
Zeilen 470 bis 490 bereits erstmalig 
dargestellt. Es soll nun aber möglich 
sein, vor jedem Schuß die Armbrust auf 
einen neuen Punkt zu setzen. Daneben 
soll auch zwischen Schießen nach 
rechts und nach links unterschieden 
werden. Wie dies zu machen ist, das 
sehen Sie ab Zeile 690. 

Hier sind allerdings zunächst einige 
Hintergrundinformationen zur Tastatur- 
abfrage notwendig. Wenn wir mit 
INKEY$ ein Zeichen vor der Tastatur 
einlesen, beispielsweise ein »n«, so ent- 
hält der Zeichenstring z$ nachher die- 
ses Symbol. Mit »ASC(z$)« können wir 
dann den zugehörigen Code feststel- 
len. Bei »n« wäre das 110. Wenn Sie nun 
im Anhang Ihres Bedienerhandbuchs 
nachschlagen, sehen Sie, daß das Zei- 
chen 110 die Zeichenmatrix für das »n« 
enthält. Mit »PRINT CHR$(110)« wird 
deshalb auch ein kleines »n« darge- 
stell. Nun sind aber nicht nur den 
Tasten für Zahlen, Buchstaben und 
Sonderzeichen solche Zeichen zuge- 
ordnet. Auch die Cusorsteuertasten 
machen hier keine Ausnahme. Die 
Cursor-rechts-Taste liefert bei der 
INKEY$-Abfrage einen Pfeil nach links 
(Zeichen Nummer 242). Bei Cursor- 
links ist es ein Pfeil in der umgekehrten 
Richtung. Die COPY-Taste ist mit dem 
Zeichencode 224 verbunden. Wenn 
wir also z$ mit INKEY$ laden und dann 
mit ASC den Zeichencode feststellen, 
so können wir überprüfen, ob und wenn 
ja, welche Cursortaste gedrückt wurde. 


Bei z=ASC(z$)(=242) (Cursor 
links) wird xfn - beim Aufruf der Routine 
ist dieser Wert gleich der X-Koordinate 
der Armbrust - um eins vermindert, 
dann mit dem ersten LOCATE in Zeile 
760 die alte Stellung der Abschuß- 
rampe gelöscht, Ihre X-Koordinate auf 
den neuen Wert gesetzt (Programm- 
zeile 770) und danach die Rampe an 
der neuen Position dargestellt (Zeile 
790 oder 800). Analog läuft die Aus- 
gabe bei Cursor-rechts ab. Hier wird die 
X-Koordinate um eins erhöht, dann wie- 
der die alte Position gelöscht und die 
Rampe an der neuen dargestellt. 

Wenn wir gleichzeitig mit den beiden 
Cursortasten SHIFT drücken, erhöhen 
sich die Zeichencodes um 4. Aus 242 
wird damit 246 und in diesem Fall wird 
die Richtungsvariable ri umdefiniert 
(Zeile 740 und 750). Da danach die 


Fortsetzung auf Seite 32 
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Spitzen-Softwure für 
Schneider-Computer 
und Commodore 128 PC 


WordStar 3.0 mit MailMerge oe: Bestseller unter den Textverarbei- 
tungsprogrammen für PCs bietet Ihnen bildschirmorientierte Formatierung, deutschen 
Zeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie 
Serienbriefe mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben 
und auch die Adreßaufkleber drucken 

WordStar/MailMerge für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 101 (3”-Diskette) 

Bestell-Nr. MS 102 (5'/, ”-Diskette im VORTEX-Format) 

WordStar/MailMerge für den Schneider CPC 6128 

Bestell-Nr. MS 104 (3”-Diskette) 

WordStar/MailMerge für den Schneider Joyce PCW 8256 

Best.-Nr. MS 105 (3 -Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664 *, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* Der Standard-Speicherplatz beim CPC 464/664 erlaubt ohne Speichererweite- 
rung Blockverschiebe-Operationen nur bedingt und Simultan-Drucken gar nicht 
WordStar/MailMerge für den Commodore 128 PC 

Bestell-Nr. MS 103 (5'/, "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


dBASE 1, Version 2.41 dBAse II, das meistverkaufte Programm unter 
den Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datei- 
handhabung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän- 
dert werden. Der Datenzugriff erfolgt sequentiell oder nach frei wählbaren Kriterien, die 
integrierte Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, Lagerverwaltung, Betriebsabrechnung usw 

dBASE Il für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 301 (3” -Diskette) 

Bestell-Nr. MS 302 (5'/, "-Diskette im VORTEX-Format) 

dBASE Il für den Schneider CPC 6128 

Bestell-Nr. MS 304 (3 -Diskette) 

dBASE II für den Schneider Joyce PCW 8256 

Best.-Nr. MS 305 (3 -Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664 *, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* dBASE Il für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. Diese erhalten Sie direkt bei der Firma VORTEX oder bei 
Ihrem Computerhändler 

dBASE II für den Commodore 128 PC 

Bestell-Nr. MS 303 (5'/, "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


MULTIPLAN, Version 1.06 wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 
satt haben, dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenblät- 
ter«, genau das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellenkal- 
kulationsprogramm kann bei allen Analyse- und Planungsberechnungen eingesetzt wer- 
den wie z.B. Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- 
matierungs-, Aufbereitungs- und Druckanweisungen ermöglichen außerdem optimal auf- 
bereitete Präsentationsunterlagen! 

MULTIPLAN für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 201 (3”-Diskette) 

Bestell-Nr. MS 202 (5',"-Diskette im VORTEX-Format) 

MULTIPLAN für den Schneider CPC 6128 

Bestell-Nr. MS 204 (3 ”-Diskette) 

MULTIPLAN für den Schneider Joyce PCW 8256 

Best.-Nr. MS 205 (”-Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664 *, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* MULTIPLAN für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. 

MULTIPLAN für den Commodore 128 PC 

Bestell-Nr. MS 203 (5'/, "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


Sie erhalten jedes WordStar-, dBASE Il- und MULTIPLAN-Programm für Ihren Schneider- 
Computer oder Commodore 128 PC fertig angepaßt (Bildschirmsteuerung). Jeweils 
Originalprodukte! Jedes Programmpaket enthält außerdem ein ausführliches Handbuch 
mit kompakter Befehlsübersicht. Die VORTEX-Speichererweiterung für den Schneider 
CPC 464 erhalten Sie direkt bei der Firma VORTEX oder bei Ihrem Computerhändler 
Diese Markt & Technik-Softwareprodukte erhalten Sie in den Computer-Abteilungen 
der Kaufhäuser, bei Ihrem Computerhändler oder im Buchhandel. 

Wenn Sie direkt beim Verlag bestellen wollen: gegen Vorauskasse durch Verrechnungs- 
scheck oder mit der eingehefteten Zahlkarte. 

Bestellungen im Ausland bitte an untenstehende Adressen. 

Schweiz: Markt& Technik Vertriebs AG, 

Kollerstrasse 3, CH-6300 Zug, ® 042/415656 

Österreich: Überreuter Media, Handels- und Verlagsges. mbH, 

Alser-Str. 24, A-1091 Wien, ® 0222/48 1538-0 

Für Auskünfte steht Ihnen Herr Teller, Telefon 089/46 13-205, gerne zur Verfügung. 
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WordStar für den Schneider CPC 
Best.-Nr. MT 779, ISBN 3-89090-180-8 
WordStar fürden Commodore 128PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 








Schneider CPC 464/664 


3” Schneider-Format 


dBASE Il für den Schneider CPC 

Best.-Nr. MT 837, ISBN 3-89090-188-3 
dBASE Il für den Commodore 128 PC 
Best.-Nr. MT 838, ISBN 3-89090-189-1 
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MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für den Commodore 128 PC 
Best.-Nr. MT 836, ISBN 3-89090-187-5 


Jedes Buch kostet DM 49,- 
(sFr. 45,1016S 382,20). 
Erhältlich bei Ihrem Buchhändler. 
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BASIC 





Ausgabe-Routine der Armbrust steht 
und diese von riabhängt (Zeile 790 und 
800), wird auch die Richtungsände- 
rung sofort auf dem Bildschirm sichtbar. 
Nach dem Setzen geht es zurück zur 
Abfrage in Zeile 690. Hier wird festge- 
stellt, ob die Schußrichtung der Arm- 
brust (oder ihre Position) verändert wer- 
den sollen. Dann wird wieder das 
Abschußgerät ausgegeben. Der ein- 
zige Ausweg aus dieser Endlosschleife 
ist die COPY-Taste. Sie ist mit dem Zei- 
chencode 224 belegt. Wenn Sie also 
auf COPY drücken, wird z=ASC(z$) 
(=224) gesetzt und dann kehrt das 
Programm (Zeile 730) zurück in die 
Hauptroutine. 

Der zweite Befehl in Zeile 530 ruft 
aber schon wieder ein Unterprogramm 


(diesmal Ball) auf. Das Drücken der 
COPY-Taste ist ja für den Computer das 
Signal, daß der Ball freigegeben ist 
(Abschußposition und -richtung liegen 
vor). Der nun folgende Programmteil 
stellt im wesentlichen eine Simulation 
dar. Der Schneider simuliert den Flug 
des Balles anhand der Reflexionsge- 
setze und überprüft in der Routine, ob 
der Ball auf ein Herzchen oder ein Hin- 
dernis trifft. 

Das sieht auf den ersten Blick sehr 
schwierig aus - ist es aber nicht. 
Schauen wir uns an, was wir bereits zur 
Verfügung haben. Ausgangspunkt der 
Flugbewegung ist die Abschußrampe 
mit den Koordinaten xf, yf. Auf diese 
Position setzen wir den Ball (Koordina- 
tenxundyin Zeile 850). Nun überlegen 


wir uns, in welche Richtung der Ball 
abgestoßen werden soll. In jedem Fall 
soll er von unten nach oben fliegen. Da 
der Schneider die Zeilen von oben nach 
unten zählt (Zeile 1 istalso die oberste), 
müssen wir - um von einer Zeile zur 
nächsthöherliegenden zu kommen - 
von der Zeilenangabe, der Koordinate y, 
eins abziehen. Die Bewegung in Y- 
Richtung wird daher in Programmzeile 
860 durch -1 ersetzt. Nun kann der Ball 
aber sowohl nach rechts als auch nach 
links fliegen. Die Flugrichtung ist in der 
Variablen ri festgelegt. Diese kennen 
Sie schon aus dem ersten Unterpro- 
gramm. Sie legt die Richtung unserer 
Abschußrampe fest. Bei ri=-1 ist sie 
nach links geneigt, ansonsten nach 
rechts. ri gibt damit also auch den Wert 


I ee ze ze 2 2 
"** Monsterfressen ## 
j ** 
*%* 
*%* 
.'#** Carsten Straush#* 
I a a ee 2 2 2 2 22 
RE 
'** Einleitungstext *# 
RE 
MODE 1 
PRINT 
FRINT"Sie sind einem boesen Monster 
in die groben Pfoten gefallen. Entwe 
der Sie besor-gen dem Kleinen etwas 
zu fressen, oder{2 SFACE}es wird mit 
Ihnen Vorlieb nehmen!" 
FRINT:FRINT"An der Decke haengen meh 
rere Esswaren,„{Z SFACE}die Sie mit e 
inem Ball treffen koennen. 
FRINT:FRINT"Den Ball schiessen Sie m 
it COFY ab. Mit "+CHR$(242)+" und "+ 
CHR$ (243)+" wird die Abschusslanze{2 
SPACE}bewegt. Bei gleichzeitigem Dr 
uecken von{2 SPACE}Shift{2 SPACE}die 
Richtung geaendert." 
FRINT:PRINT"Doch denken Sie daran: D 
er {2 SPACE}?Hunger {2 SFACE}des Tierch 
ens ist grosssssss!!" 
FRINT 
FRINT"Antfang mit <Space>" 
z$=INKEY$: IF z$<>" " THEN 190 
RE 
"*%* Anfangsparameter ** 
ee ee 222 22 22222222 
CLEAR:DEFINT a-z 
INK 8,8: INK 1,24: INK 2,10:INK 3,6:BO 
RDER 18 
FAFER B:FEN 1 
WINDOW#8,1,35,1,25:WINDOW#1 ,36,48,1, 
25 
FAFPER#1 ,2:PEN#1,1 
CLS: CLS#1 
ee Se 2 ee 22 222 
"** Vorbereitung #* 
RR 
DIM 0(40,25) 
ri=1 
x+=20: yf=25:x=xf:v=yfiıxfn=xf 
FOR i=1 TO 408 
a=RND (1) #33+2:b=RND (1) #21+2 
ola,b)=2 
LOCATE a,b:FPRINT CHR$ (232) 
NEXT . 
FOR ı=1 TO 68 
a=RND (1) #33+2:b=RND (1) #21+2 
ola,b’=1 
LOCATE a,b:FRINT CHR# (228) 
NEXT 
LOCATE#1,1,3:PRINT#1,"Pkte." 
LOCATE#1,1,6:FRINT#1 ,"Schu"+CHR$ (177 


RE 

"*%* Endauswertung #% 
HERRN 

MODE 1 

IF pu<15 THEN FRINT"Sıe sind so unfa 
ehıg, dass es mir{2 SPACE}rich-tigen 
Spass machen wird, Sie zu fertil- g 
en!":6G0OTO 45380 [ABLE] 
IF pui25 THEN FRINT"Satt{2 SPACE}wer 

deni{i2 SFPACE}kann man davon aber nich 

t!Sıe haben Glueck, dass ich heute v 


[81E8] 
[BEDE)] 
[7AA4] 
[L?BSC] 
LE4AB]I 
L1A9E] 
LEFEC]I 
[7442] 
[A4FC8B] 
[1494] 
LBASB]I 
U[SF80] 


Ss5® 
S6Q 
578 
588 
5978 


[CöFE] 
[SQ6C] 
[FFO2] 


von [2666] 


ergetarisch eingestellt bin.":6G0TO & 
308 


3 [S6EA] 
IF pu:3S5 THEN FRINT"Na ja. Fuer eine 
n kleineni2 SFACE}Imbiss{2 SFACE}wir 
d es reichen!":G60T0 638 

FRINT"Schon ganz gut, fuer 's erste!" 


E[FC7C]I 
[8D72] 
[&D80] 
CDCB4] 
TEöF4] 


FRINT:PRINT" Ihre Funktzahl";zpu 
FRINT:FRINT"Noch ein Spiel j/n" 
z#=LOWER$ (INKEY$): IF z$="n" THEN END 
ELSE IF 2$<>"j" THEN 650 ELSE 238 
HH R 
'** SUB:Rakete *## 
Me a a ee 2 22 2 2 22 
z$=INKEY$: IF z$="" 
z=ASC (z$) 
z=242 THEN xfn=MAX (2,x#-1) 
z=243 THEN xfn=MIN(34,xf+1) 
z=224 THEN RETURN 
z=246 THEN ri=-1 
z=247 THEN ri=1 
LOCATE x#,yf:PRINT" " 
xt=xfn 
LOCATE x#f,vf 
IF ri=-1 THEN FRINT CHR$ (285) 
IF ri=1 THEN PRINT CHR$ (204) 
GOTO 698 
EEE 
‘*%* SUB:Ball *#* 
ER 
x=xf:v=yf:z=0d 
yr=-1l:xr=ri 
K=xXtxrsvsytyr 
LOCATE x,v:FRINT" "; 
x=xrtxıriy=vtyr 
RE 
"##* CHECK:Bande%Hinderniss %## 
RT ENRR 
f=8 
IF o(x,v)“>2 THEN 990 
xr=SGN (RND(1)-8.5):IF xr=@® THEN 9580 
yr=SGN(RND (1)-98.5):IF vr=@ THEN 960 
GOTO 898 
yr=SGN(RND(1)-8.5):IF yr=@B THEN 988 
IF x<1i THEN xr=-xr:f=1 
IF y<1i THEN yr=-yr:#f=1 
IF x>35 THEN xr=-xr:f=1 
IF v>24 THEN vr=-yr:f=1 
IF f=1 THEN 898 
UEEEUHHHHTHHRHRRENN 
"#*#* Ball darstellen ## 
U H 
LOCATE x,v:PEN 3:PRINT CHR$ (227): 
IF ot(x,y)=1 THEN ot{x,y)=®:pu=spu+ti:L 
OCATE#1,1,4:PRINT#1,pu 
FOR t=1 TO 150:NEXT t 
z=z+1l: IF z=188 THEN LOCATE x,„y:FRIN 
T " "32PEN 1:RETURN 
GOTO 888 


CADDE] 


C91B4] 
[D396] 
[2698] 
[220A] 
[DDA8] 
[6768] 
CBöFE] 
[8764] 
[828E] 
[5C44] 
LF4EE)I 
[3C52] 
[624A] 
[DI] 
[@3D4] 
[49658] 
LE662] 
[LICSAI 
CC5D2] 
[FASE] 
[D288] 
LECO®] 
TEEB®] 
[OC36] 
[B404] 
C8DF®] 
CCBF®] 
L[O7F4] 
[SDIE]I 
[F9OCI 
[9122] 
[C92A] 
[0574] 
CBD32] 
[OE22] 
[5166] 
C08D4] 
CEBD8] 
[88EE] 
[8iFC] 
LCES7C]I 
CE288] 
[3CB8] 


[22D8] 
CB4B2] 


670 
688 
690 
708 
718 
720 
738 
740 
750 
768 
778 
788 
798 
8008 
818 
828 
830 
840 
858 
8648 
8708 
888 
8970 
988 
918 
928 
9738 
740 
9758 
960 
979 
788 
7978 
12000 
1010 
18228 
1058 
19840 
1250 
1068 
12708 
1080 


[2EDE] THEN 690 


tESCE]I 
[428A] 
[388A] 
[öA4E]I 
[28EA] 
[3682] 
[SAEE] 
[A470] 


[7C18] 
[7CDA] 


[C27E]I 
LEC62] 
[F418] 
LBBSACI 
[SF7C] 
LAS9IE]I 
I[FSCC] 
EiCFE] 
[D7SC] 
[54BA] 
[6BA6] 
C[92B@] 
[3EA4] 
[83F6] 
[SDB&]J 
LSS9E] 
[93A68] 
LE3A6] 
[ö6EE] 
LAF9CI 


[Cö7E]I 
[612C] 
[B2CC] 
[A472] 
[896C] 
[B868] 
[3BSA] 
L&DDC)I 
[40884] 


f) 

LOCATE x,yf 

IF ri=-1 THEN PRINT CHR#$ (285) 
IF ri=1 THEN FRINT CHR#$ (284) 
pu=®d:FOR i=i TO 3 
LOCATE#1,2,7:PRINT#1,)j 
LOCATE#1,2,4:PRINT#1 „pu 
GOSUB 698: G0OS5SURB 850 

NEXT j 


1990 
1108 
5 [2524] 
540 1118 [96B8] 


Listing. Achtung! »Monsterfressen« ist nicht nur zum Spielen gedacht. Lernen Sie programmieren unter Basic 








APPy 
OMEUTER 











BASIC 





wieder, um den wir die X-Koordinate bei 
jedem Schritt verändern müssen. Soll 
der Ball nach links fliegen, so muß die X- 
Verschiebung xr=-1 gesetzt sein, und 
umgekehrt xr=1 bei einer nach rechts 
gerichteten Flugbahn. Um von einem 
Punkt auf der Flugbahn des Balles den 
nächsten zu berechnen, müssen wir 
nur die aktuelle X- beziehungsweise Y- 
Verschiebung addieren. Dies macht 
Zeile 870. Ein Beispiel: Wenn die 
Abschußrampe die Koordinaten (20, 
25) besitzt und die Abschußrichtung 
»rechts« (ri=1) ist, dann ergibt sich als 
erste Position des Balles (x+xr,y+yr)= 
(20+1,25-1)=(21,24) also der Bild- 
schirmpunkt rechts oberhalb der Arm- 
brust. Spielen Sie diese Setzbewegung 
einmal in Gedanken für die andere 
Abschußrichtung durch. 

Wir lassen im Moment die Zeilen 900 
bis 1030 unberücksichtigt und be- 
trachten zu Anfang den Rest des Unter- 
programms. Das Setzen des Balles 
geschieht in drei Schritten. Zunächst 
muß an der alten Position der noch von 
der letzten Bewegung her gesetzte Ball 
gelöscht werden. Dies geschieht wie 
bei unserer Abschußrampe durch die 
Ausgabe eines positionsrichtigen Leer- 
zeichens. Vergleichen Sie dazu einmal 
die Programmzeilen 880 mit 760. 
Danach wird die neue Position, wie 
gerade schon beschrieben, errechnet. 
Wenn Sie nun den nächsten Teil über- 
geben, sehen Sie ab Zeile 1070 die 
Ausgabe des Balls. Als Symbol wird 
CHR$(227) verwendet. Das Prinzip 
kennen sie ja schon. Mit LOCATE wird 
der Cursor auf die neue Ballposition 
gesetzt und dann mit einem PRINT-Be- 
fehl das Ballsymbol ausgegeben. Damit 
sich der Ball auch farblich deutlich 
abhebt, wird vor der Ausgabe des Zei- 
chens dabei mit PEN die Schriftfarbe 
umgeschaltet. Zeile 1080 überprüft 
nun, ob an der aktuellen Ballposition ein 
Freßsymbol gespeichert war. Wenn 
dies der Fall (o(x,y)=1) ist, so wird der 
Punktezähler pu um 1 erhöht und der 
neue Punktestand im Window #1 aus- 
gegeben. Damit ein zweiter Durchlauf 
das Herzchen nicht noch einmal findet, 
muß das entsprechende Feld im Array 
o(x,y) gelöscht werden. Es wird wie alle 
anderen leeren Felder mit O geladen. 
Zeile 1090 beinhaltet eine einfache 
Zeitschleife. Der Computer zählt dabei 
Schäfchen von 1 bis 150. Einziger Sinn 
dieser Operation: Zeit verprassen. 
Während wir Menschen nänlich öfters 
in Zeitprobleme kommen, ist der 
Schneider bei einfachen Anwendun- 
gen wie hier so schnell, daß wir gar 
nichts mehr erkennen können. Der Ball 
würde nur so über das Bild flitzen. Wenn 
Sie einmal sehen wollen, wie schnell 
der Schneider unser Programm bear- 
beiten kann, brauchen Sie nur diese 


Zeile weglassen. Die Zeitverzögerung 
unterbleibt dann. 

Nun wäre es relativ sinnlos, den Ball 
ewig über den Schirm sausen zu las- 
sen. Normalerweise besitzt ein gewor- 
fener Gegenstand ja nur eine bestim- 
mte Energie. Nach deren Verbrauch fällt 
er auf die Erde zurück. Bei unserem 
Programm wird dazu die Variable z 
benutzt. Beim Aufrufen des Unterpro- 
gramms ab Zeile 850 wird z=O gesetzt. 
Mit jedem Schritt, den der Ball nun auf 
dem Bildschirm macht, wird z in Zeile 
1100 um eins erhöht. Ist z kleiner als 
100, kehrt die Routine aufgrund des 
GOTO-Befehls in 1110 wieder an den 
Anfang (Zeile 880) zurück. Hier wird die 
alte Ballposition gelöscht und die neue 
berechnet. Danach wird die Darstellung 
des Balls wiederholt. Bei z=100 wird 
der Ball durch nochmaliges LOCATE 
und Ausgabe eines Leerzeichens zwar 
noch gelöscht, aber dann kehrt der 
Computer ins Hauptprogramm (Zeile 
540) zurück. 


Der »hüpfende« Ball 


Soweit zur Erklärung der eigentlichen 
Flugsimulationsroutine Nun müssen 
bei der Bewegung des Balles allerdings 
noch zwei weitere Punkte beachtet 
werden. Der letzte Teil des Unterpro- 
gramms Ball (zwischen Zeile 930 und 
1030) beschäftigt sich damit. Erstens 
kann der Ball auf die Randbegrenzung 
treffen. In diesem Fall muß er nach den 
Reflexionsgesetzen zurückgeworfen 
werden. Im zweiten Fall, wenn der Ball 
gegen ein Hindernis prallt, soll eine 
zufällige Ablenkung erfolgen. 

Die Hindernis-Behandlung geschieht 
in den Zeilen 940 bis 970. Zuerst wird 
gefragt, ob an der neuen Position des 
Balles überhaupt ein Hindernis steht. Ist 
o(x,y)<>2, so istan der aktuellen Ball- 
position kein Hindernis vorhanden und 
das Programm verzweigt aus Zeile 940 
nach 990. Ansonsten muß die Rich- 
tung geändert werden. Dies ist relativ 
einfach zu bewerkstelligen. Wirmüssen 
nur mit der Zufallsfunktion RND() zufäl- 
lige Werte für die Verschiebungen xr 
und yr berechnen. Dies erfolgt in Zeile 
950 beziehungsweise 960. Dabei muß 
man allerdings beachten, daß keiner 
der beiden Parameter O werden darf, da 
ja ansonsten keine Verschiebung mehr 
stattfinden würde. Tritt also der Nullfall 
ein, so probiert es der Computer ein- 
fach noch einmal, indem er wieder zum 
Anfang der Zeile zurückkehrt. Nach- 
dem die neuen Veränderungsparame- 
ter erzeugt wurden, muß nun noch die 
aktuelle Position des Balles mit deren 
Hilfe errechnet werden. Durch die 
Rückkehr aus Zeile 970 nach 890 wird 
dies gemacht. Eine neue Position wird 


bestimmt, und dann gegebenenfalls 
durch den Teil ab Zeile 1070 der Ball an 
dieser Stelle auf dem Schirm darge- 
stellt. Es kann jedoch sein, daß sich an 
der durch Zufall bestimmten neuen 
Position wiederum ein Hindernis befin- 
det. Dann wird noch einmal durch den 
Teil ab Zeile 940 eine Zufallsposition 
bestimmt. Dieses Spielchen läuft 
solange ab, bis eine gültige Position 
erreicht wird und der Ball gesetzt wer- 
den kann. 

Auch der zweite Fall, die Bandenprü- 
fung und dementsprechende Korrek- 
tur, erfolgt analog. In Zeile 990 wird 
überprüft, ob sich die Position, an der 
der Ball neu gesetzt werden soll, außer- 
halb des Bildschirms befindet und zwar 
in Zeile 990 links vom linken Bildschirm- 
rand. In diesem Fall wird das Vorzeichen 
des Verschiebeparameters xr umge- 
kehrt. Der Ball fliegt damit rückwärts in 
bezug auf seine vorherige Position (also 
wieder nach rechts). Nach demselben 
Prinzip laufen die Korrekturen für die 
Randbegrenzungen in den anderen 
drei Richtungen ab. Zeile 1000 über- 
prüft, ob der Ball bei einem neuen Set- 
zen den Schirm nach oben verlassen 
würde (y<1). Zeile 1010 korrigiert die 
Flugbahn bei Überschreiten des rech- 
ten Randes und 1020 bei Ausbruch 
nach unten. Dabei ist zu berücksichti- 
gen, daß die verschiedenen Vergleiche 
nacheinander und unabhängig vonein- 
ander ablaufen. Wenn der Ball über die 
linke obere Ecke vonrrechts-unten kom- 
mend den Schirm verlassen will, so wird 
gleichzeitig x<1 und y<1. Entspre- 
chend werden beide Richtungspara- 
meter (xr und yr) umgekehrt. Bei jeder 
Anderung wird dabei der beim Aufruf 
dieses Programmteils (Zeile 930) rück- 
gesetzte Merker f gesetzt. Zeile 1030 
verweist den CPC dann auch bei 
gesetztem f nach Zeile 890 zurück, wo 
wieder die nächste Position bestimmt 
wird. Auch hierauf geht es durch die 
Abfolge der Zeilen immer erst einmal 
zurück in den Check-Teil ab Zeile 910. 
Hindernisse und Rand werden geprüft, 
bevor dann - gegebenenfalls auch erst 
nach 10 oder mehr vergeblichen Versu- 
chen und Reflexionen - eine Position 
erreicht wird, die allen Anforderungen 
genügt. Erst dann kann die nächste 
Ballposition berechnet werden. 

Wenn Sie das Programm bis jetzt 
noch nicht fertig eingetippt haben, 
holen Sie dies nach und lassen Sie es 
laufen. Mit den bisherigen Informatio- 
nen für Sie ist es kein Problem mehr, 
das Programm zum Laufen zu bringen. 
Trotz der vielen Erklärungen dürfen Sie 
nicht vergessen, daß Computern auch 
Spaß und nicht nur Arbeit bedeutet. 
Gönnen Sie sich ein paar Spiele mit 
unserem Programm. Viel Spaß dabei. 

(Carsten Straush/hg) 
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Gekonnter 





Bildschirmaufbau 


Eine gute Bild- 
schirmausgabe ist 
das I-Tüpfelchen 
eines Programms. 
Das Schneider- 
Basic hält dafür einen 
leistungsstarken Befehl bereit: 
PRINT USING 





in chinesisches Sprichwort lau- 

tet: »Ein Bild sagt mehr als tau- 

send Worte«. Analog dazu könnte 
man bei der Computerei sagen: Ein Pro- 
gramm ist so gut oder schlecht wie sein 
Bildschirmaufbau. Auch ein noch so 
gutes Programm wird abqualifiziert, 
wenn man mit den von ihm gelieferten 
Informationen nur schwer etwas anfan- 
gen kann, weil ein ungünstiges Ausga- 
beformat gewählt wurde. Ein einfaches 
Beispiel mag dies illustrieren. Nehmen 
wir einmal an, wir wollen drei Ver- 
gleichswerte - beispielsweise die Tele- 
fonkosten dreier aufeinanderfolgender 
Monate - im Rahmen einer Haushalts- 
kostenberechnung auf dem Bildschirm 
anzeigen. Betrachten Sie nun die bei- 
den folgenden Darstellungen: 
129.5 89.64 76 
und 
Telefonkosten 
April DM 129.50 
Mai DM 89.64 
Juni DM 76.00 

Esistsicher keine Frage, welche Aus- 

gabe besser lesbarer ist. Zugegebe- 
nerweise wurde hier ein besonders 
krasser Gegensatz gewählt. Dies 
ändert jedoch nichts an der prinzipiel- 
len Forderung, den Bildschirm so zu 
gestalten, daß beispielsweise Ver- 
gleichswerte auch vergleichbar unter- 
einander angeordnet sind - und zwar 
stellenrichtig.. Die Wertigkeiten der 
untereinanderstehenden Stellen dür- 
fen also nicht verschieden sein, da 
sonstein falscher Eindruck entsteht. Es 
reicht somit nicht aus, wenn wir die drei 
Zahlen einfach untereinander drucken. 


Im Vergleich zur zweiten Darstel- 
lungsart ist die Übersichtlichkeit dieser 
dritten immer noch mangelhaft. Was 
fehlt, ist ein geordnetes Format. Um das 
Ganze leichter zu verstehen, finden Sie 
hier zuerst einmal eine Definition: 


Unter formatierter Ausgabe versteht 
man die Darstellung eines Textes oder 
einer Variablen in einem vorgegebenen 
Format. Dabei wird die betreffende 
Größe (Text oder numerische Variable) 
mit Hilfe von Formatierungszeichen und 
Platzhaltern auf ein bestimmtes Format 
»getrimmt«. Somit wird der wirklich 
wichtige Teil eines Textes oder einer 
numerischen Variablen herausgeho- 
ben. Ein kurzes Beispiel verdeutlicht 
dies. 

In einer Steuerberechnung, in der 
vom Verkaufspreis die. Mehrwertsteuer 
abgezogen werden soll, ist es naturge- 
mäß vollkommen uninteressant, wel- 
chen Wert die dritte oder vierte Nach- 
kommastelle annimmt. Die Ausgabe 
eines hochpräzisen Zahlenbandwurms 
würde die Lesbarkeit der Berechnung 
nur erschweren, ohne zusätzliche Infor- 
mationen zu bringen. Bei einer Tabel- 
lendarstellung kann das sogar dazu füh- 
ren, daß die letzten Ziffern bereits in die 
nächste Spalte reichen und dort befind- 
liche Werte überschreiben. Weniger ist 
hier also mehr. Nun werden aber beim 
Schneider Zahlen, soweit nichts ande- 
res angegeben wurde, mit bis zu sieben 
Nachkommastellen ausgegeben. Das 
Problem hier also zunächst einmal 
darin, die Werte auf die entsprechende 
Länge zu verkürzen. 

Dies könnten wir bei numerischen 
Variablen mit den beiden Funktionen 
ROUND und FIX erreichen. FIX schnei- 
det alle Nachkommastellen ohne Run- 
dung ab. ROUND rundet auf die ange- 
gebene Stellenzahl. Wenn wir bei- 
spielsweise unsere drei oben aufge- 
führten Werte mit »ROUND (<Wert>, 
O)« ausgeben, so sind wir zumindest 
das Problem der unterschiedlichen 
Anzahl von Nachkommastellen los. Wir 
verändern dadurch allerdings den Wert 
der entsprechenden Variablen. Wollen 
wir aber die Genauigkeit erhöhen und 
daher mit »ROUND (< Wert > ‚2)« arbei- 
ten, so gibt es schon den ersten Ärger. 
Ihr Computer unterschlägt nämlich alle 
Nachkommanullen. Wir haben es wie- 
der mit unterschiedlich langen - und 
damit schlecht zu positionierenden - 
Ausgabegrößen zu tun. 

Zur Lösung derartiger Probleme stellt 
das Locomotive-Basic des Schneiders 
das Kommando PRINT USING zur Ver- 
fügung. Dieser Befehl besteht aus einer 
einfachen PRINT-Anweisung mit einem 
angehängten USING-Teil. Diese nach- 
gestellte Spezifikation erlaubt uns, ein 


(fast) beliebiges Ausgabeformat festzu- 
legen. Was das heißt, sollen zwei Bei- 
spiele verdeutlichen. Geben wir 
»a=27.75:PRINT a ein, so wird der 
Wert 27.75 mit einer Vorleerstelle am 
linken Bildschirmrand ausgedruckt. 
Geben wir dagegen a unter einer 
USING-Bedingung durch »a=27.75: 
PRINT USING” # #.# ";a« aus, SO er- 
scheint der Wert 27.8 linksbündig auf 
dem Bildschirm. Was ist geschehen? 
Unsere Variable ist beim Ausdruck auf 
eine Nachkommastelle gerundet wor- 
den. Die Leerstelle, die der Schneider 
immer bei der Umwandlung einer Zahl in 
einen String voranstellt (unter anderem 
bei der Bildschirmausgabe), wurde 
unterdrückt. Durch PRINT USING erhal- 
ten wir also eine formatierte Ausgabe. 
Die Variable selbst blieb jedoch unver- 
ändert, wie Sie mit »PRINT a« einfach 
überprüfen können. Die Änderung der 
Zahl erfolgt also nur für die Ausgabe. 
Beim nächsten Beispiel zeigt sich noch 
ein anderer Effekt des angehängten 
USING. Durch »a=27.75:b=7.395: 
PRINT USING’ # # .# ",a:PRINT 
USING” ## .#1;b« erhalten wir die 
Werte 27.8 und 7.4 auf dem Bild- 
schirm. Diese werden aber nicht links- 
bündig ausgegeben, sondern schön 
mit dem Dezimalpunkt untereinander. 
Genauso, wie wir es in einer Tabellen- 
darstellung benötigen und oben gefor- 
dert haben. Wodurch wird nun das Aus- 
gabeformat bestimmt? Es wird durch 
Sonderzeichen festgelegt. 

Schauen wir uns dazu den PRINT 
USING-Befehl - beziehungsweise das 
angehängte USING - näher an. Die 
Anweisung besteht aus drei Teilen. Am 
Anfang steht der USING-Befehl, am 
Ende die Liste der unter diesem Kom- 
mando auszugebenden Variablen. 
Dazwischen befindet sich die Spezifi- 
kation des Ausgabeformates. Die hier 
eingegebenen Zeichen haben entwe- 
der Platzhalterfunktion oder sind Fix- 
texte, die bei jeder Ausgabe mit auf den 
Schirm gebracht werden. Die meisten 
Variationsmöglichkeiten ergeben sich 
dabei für numerische Variable. Ein paar 
Beispiele: 

»a=27.75:PRINT USING "DM# # 
.#";a« ergibt den Ausdruck »DM 
27.8«. Vor der Ausgabe unseres Wer- 
tes werden also die in der USING- 
Klausel angegebenen Zeichen (»DM«) 
mit ausgegeben. Wir können diese 
natürich auch nachstellen. Mit 
»a=27.75PRINT USING "##.# 
DM’ ;a« erhalten wir DM nachgestellt. 
Soweit zu den Fixtexten. 

Bestimmte Zeichen haben jedoch 
auch eine Sonderfunktion, so das 
schon verwendete Doppelkreuz » #«). 
Es stellt einen Platzhalter für eine Stelle 
der numerischen Variablen dar. Die 
Variablen in dem Befehl werden also in 
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diesem Format ausgegeben. Das »#« 
vor dem Dezimalpunkt symbolisiert 
dabei eine Vorkommastelle, das »#« 
nach dem Punkt macht dasselbe für die 
Nachkommastellen der Variablen. Mit 
der Spezifikation »# #.#«” haben wir 
also für die Variablen eine Nachkomma- 
und zwei Vorkommastellen festgelegt. 

Hat die Variable weniger Stellen als 
durch Platzhalter freigehalten wurden, 
so werden vor dem Komma Leerstellen 
eingefügt. Besitzt unsere Variable nach 
dem Komma mehr Stellen, als durch die 
USING-Klausel angegeben, so wird auf 
die letzte Stelle - hier also die erste 
Nachkommastelle - gerundet. Bei 
freien Nachkommastellen werden die 
restlichen Plätze mit Nullen gefüllt. 

Nun kann es aber passieren, daß 
mehr Vorkommastellen belegt werden 
müßten, als spezifiziert wurden. Ist der 
auszugebende Wert größer als erlaubt, 
in unserem Beispiel eine Zahl mit drei 
Vorkommastellen, so wird das Überlauf- 
zeichen »%« und der volle ungekürzte 
Variablenwert ausgegeben. Dadurch 
wird natürlich unsere Tabelle nicht mehr 
spaltenrichtig ausgegeben. Wir müs- 
sen also unbedingt darauf achten, eine 
genügend große Anzahl von Vorkom- 
mastellen mit dem Doppelkreuz zu 
reservieren. 

Mit der Angabe der Ausgabestellen 
und etwaiger zusätzlicher Symbole sind 
die Fähigkeiten von PRINT USING bei 
weitem noch nicht erschöpft. Als 
Ergänzung können Vorzeichen definiert 


Schnellhefter 
Hefte DIN A4 
Hefte DIN AS 
Ordner h 
Ringbuchpapier 


Schreibbloecke 
Loeschpapier 
Bleistifte 
Kugelschreiber 
Radiergummi 


Bild 1. Eine kleine Lagerverwaltung mit PRINT USING 


werden. Ein »+« gibt dabei immer das 
Vorzeichen aus. Es erscheint ein »+«, 
falls der Zahlenwert positiv ist, ein »-« 
bei negativen Werten. Das »+« kann 
dabei vor oder nach den Platzhaltern 
stehen. 

»a=27,8:PRINTUSING "’DM# ##. 
# # +" ‚a« erzeugt beispielsweise den 
folgenden Ausdruck: »DM 27.80+«. 
Die nicht benötigten Felder werden 
durch Leerzeichen (Vorkomma) oder 
Nullen (Nachkomma) aufgefüllt. Das 
nachgestellte »+« bewirkt die Ausgabe 
eines »+«, da die Variable positiv ist 
(sonst »-«). Das Zeichen DM wird vor 
der Variablenausgabe auf den Schirm 
gebracht, und auch die Leerstelle zwi- 
schen »DM« und den Platzhaltern wird 
mit ausgegeben. Leerzeichen werden 





im PRINT USING-Kommando ebenfalls 
berücksichtigt. Die beiden Leerzeichen 
zwischen dem »M« und der »2« ergeben 
sich somit als Summe aus dem definier- 
ten Leerzeichen und der einen nicht 
benötigten Stelle des Ausgabefeldes 
(erstes »#«). Geben wir in diesem For- 
mat den Wert 7.8 aus, so befinden sich 
drei Leerzeichen zwischen Zahlenwert 
und DM-Kürzel. 

Etwas anderes bewirkt das »-«. Ein 
vorgestelltes Minus hat den gleichen 
Effekt wie alle anderen Zeichen; es wird 
immer vor dem Zahlenwert angegeben. 
Setzen wir dagegen ein »-« hinter die 
Kreuze, so erscheint es nur bei negati- 
ven Zahlen. Bei positiven Werten wird 
es durch ein Leerzeichen ersetzt. Ein 
»+« an dieser Stelle bewirkt hingegen 
die permanente Ausgabe des Vorzei- 
chens. 

Wir kommen nun zu einigen Speziali- 
täten. Ein vorangestelltes »*« verur- 
sacht die Ausgabe desselben. Zwei 
Sternchen dagegen füllen die nicht 
benötigten Stellen auf. Dabei werden 
vorab zwei Sternchen ausgegeben. 

»a=28.7:PRINT USING’ **## 
##";34« bringt uns die Ausgabe 
»*****209« auf den Schirm. Die fünf 
Sternchen setzen sich dabei aus zwei 
permanent ausgegebenen Sternchen 
und den drei freien Stellen zusammen. 
Da wir keine Nachkommastellen ange- 
geben hatten, wurde aauf 29 aufgerun- 
det. Das Doppelsternchen wird zum 
Beispiel beim Ausdruck von Bilanzen 


FOR i=1 TO 

INPUT 

INPUT 

NEXT i 
S 


und anderen kaufmännischen Urkun- 
den benutzt, um ein nachträgliches 
Andern der Werte zu verhindern. 

Für die Arbeit mit großen Zahlen stellt 
uns das PRINT USING-Kommando zwei 
spezielle Symbole zur Verfügung. Mit 
dem »,« können wir nach drei Stellen ein 
Komma ausgeben, was das Abzählen 
längerer Zahlen vereinfacht. Setzen wir 
a auf eine Million und geben diesen 
Wert dann mit »PRINT USING "# #, 
HHH,NFRHRH HT «aus, so erhalten wir 


- als Ergebnis »1,000,000«. Die unbe- 


nutzte Stelle wurde wieder durch ein 
Leerzeichen aufgefüllt, die Kommas 
stellenrichtig eingefügt. Bei sehr gro- 
Ben Zahlen bietet sich die Exponential- 
schreibweise an. Diese erreichen wir 
beim Schneider durch Eingabe von vier 





Hochpfeilen nach den Doppelkreuzen. 
Der Computer gibt dann die Zahl mit 
einer Vorkommastelle und Exponen- 
tenangabe aus. In unserem Beispiel 
würde mit »a=1000000:PRINT USING 
”z#t1tt11”;a« die Million als »IE+06« 
auf dem Bildschirm dargestellt. 

PRINT USING beschränkt sich aber 
nicht auf die Behandlung numerischer 
Größen. Für Texte stehen zwei weitere 
Formatierungszeichen zur Verfügung: 
das Ausrufezeichen (»!«) und der 
Backslash (»\«). Nach »a$= "Testzei- 
chenkette” und PRINT USING” !” ;a$« 
erhalten wir linksbündig ein großes »I« 
auf dem Bildschirm. Wird der String mit 
zwei Formatierungszeichen (»!!«) unter 
PRINT USING ausgegeben, so erschei- 
nen die ersten beiden Buchstaben. Viel 
interessanter ist jedoch der Backslash 
(»\«). Dieses Formatierungszeichen 
erlaubt, Zeichenketten (Strings) auf 
eine vorgeschriebene Länge zu kürzen 
- beziehungsweise eine Zeichenkette 
durch Anhängen von Leerstellen auf die 
gewünschte Länge zu bringen. Geben 
wir nun »PRINT USING ”\ \”;a$«aus, 
so erscheint das Halbwort »Test«. Es 
wurden also die ersten fünf Zeichen 
berücksichtigt. Auch hier müssen wir 
wieder die Formatierungszeichen als 
Platzhalter mitrechnen: zwei Stellen für 
die Schrägstriche plus drei dazwi- 
schenliegende Leerzeichen. Alle 
zusammen liefern uns dann die Ge- 
samtzahl der möglichen Stellen. Mit 
dem Backslash steht uns also ein Hilfs- 


o 
"Artikelname":in$(i) 
"Anzahl":s(i) 


CL 
FOR i=1 TO 1® 
PRINT USING "\{18 SPACE}\"sn$(i)ssPRI 
Red " Stueck ####4$":s(i) 
i- \ 


[81A0] 


Listing 1. Acht Zeilen reichen für eine Lagerverwaltung aus 


mittel zur Verfügung, mit dem wir neben 
Zahlen auch Zeichenketten formatiert 
ausgeben können. 

Wir brauchen uns aber nicht auf eine 
PRINT USING-Anweisung pro Bild- 
schirmzeile zu beschränken. Die einzel- 
nen Kommandos können auch addiert 
werden. Die dabei entstehenden 
»Befehls-Bandwürmer« sehen zwar auf 
den ersten Blick etwas kompliziert aus, 
ermöglichen aber eine höchst kom- 
plexe, sehr einfache und schnelle Pro- 
grammierung. Anhand eines Beispiels 
ist das leicht zu sehen. Im Rahmen 
eines Lagerverwaltungsprogramms 
sollen Artikelname und aktuelle Stück- 
zahl ausgegeben werden. Der Name 
des Artikels ist dabei in der Variablen 
n$(i), die Stückzahl in s(i) gespeichert. 
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Wir müssen uns zuerst Gedanken 
über das Ausgabeformat machen. Wir 
nehmen dazu an, daß der Artikelname 
maximal 20 Zeichen umfassen soll. Für 
die Stückzahl reichen in unserem Bei- 
spiel sechs Stellen aus. Jetzt können 
wir an die Definition des Formates 
gehen. Linksbündig soll der Artikel- 
name ausgegeben werden, daneben 
das Wort Stück und dann die aktuelle 
Stückzahl (Bild 1). Eine solche Format- 
definition bezeichnet man auch als 
Maske. In unserem Fall besteht diese 
Ausgabemaske also aus einem 20-Zei- 
chen-Feld für den Namen, dem Wort 
Stück und dann einem weiteren 
6-Stellen-Feld für die Stückzahl. Mit 
PRINT USING können wir nun eine sol- 
che Ausgabe höchst komfortabel pro- 
grammieren: 

»PRINT USING ” \\” ;n$(i);: PRINT 
USING” Stueck# ## # # #7";sli)« 

Das erste USING legt die maximale 
Zeichenzahl für den Text fest. Es folgt 
mit »;« angehängt die auszugebende 
Variable. Das zweite Semikolon weist 
den Computer an, die Zeile noch nicht 
abzuschließen. Ohne dieses Semiko- 
Ion würde das nächste PRINT-Komman- 
do unter das erste gedruckt werden. So 
aber wird es nahtlos angefügt. 
Zunächst kommt aber das Wort 
»Stueck« auf den Bildschirm, bevor 
dann die Variable s(i), auf sechs Stellen 
formatiert, folgt. Da wir nach dem zwei- 
ten Kommando kein weiteres »;« mehr 
angehängt haben, wird die Zeile abge- 
schlossen. Das nächste PRINT arbeitet 
also eine Zeile tiefer. 

Wenn Sie diese Zeile eingeben und 
bearbeiten lassen, erhalten Sie natür- 
lich nun noch keine sinnvolle Ausgabe, 
denn die Variablen n$(i) und s(i) enthal- 
ten janoch keine Werte. Das können wir 
aber mit wenigen Programmzeilen 
ändern. 


10 FOR i=1 TO 10 

20 INPUT”Artikelname”;n$(i) 
30 INPUT”Anzahl”;s(i) 

40 NEXT i 


Mit Hilfe dieser Zeilen können Sie nun 
10 Artikel eingeben. Fügen Sie nun 
noch 


50 CLS 
60 FOR i=1 TO 10 
80 NEXT i 


ein und geben dem Formatbefehl die 
Zeilennummer 70. Das gesamte Pro- 
gramm finden Sie in Listing 1. Im Rah- 
men einer Gesamtübersicht werden 
jetzt die gespeicherten Artikel unterein- 
ander formatiert ausgegeben. Durch 
die Verwendung einer komplizierten 
Format-Anweisung innerhalb einer 
Schleife (wie in unserem Beispiel), kann 
also bereits ein komplexer Bildschirm- 
aufbau mit relativ wenigen Kommandos 
erreicht werden. 


Bei dieser Art der Programmierung 
gibt es jedoch auch noch eine andere 
Variante, die im Handbuch des Schnei- 
ders nicht zu finden ist. Statt der direk- 
ten Angabe der Formatierung innerhalb 
von Anführungsstrichen können wir 
auch mit Formatierungsstrings arbei- 
ten. Dazu belegen wir eine Stringvaria- 
ble - beispielsweise s$ - mit dem Aus- 
druck, den wir normalerweise hinter 
dem USING in Anführungszeichen 
angeben würden. Wenn wir beispiels- 
weise »s$="\ \”« 
eingeben, so haben wir damit einen sol- 
chen Formatstring erzeugt. Durch seine 
Verwendung wird das PRINT USING- 
Kommando sehr vereinfacht. Wir kön- 
nen nun nämlich unseren Text mit 
»PRINT USING s$;a$« ebenfalls auf 20 
Zeichen Länge formatiert ausgeben. 
Diese Technik hat darüber hinaus den 
Vorteil, daß das USING-Format an ande- 
rer Stelle im Programm noch einmal 
benutzt werden kann. Wenn Sie also bei 
einer späteren Ausgabe wieder auf die 
Beschränkung auf 20 Zeichen zurück- 
kommen wollen, so ist dies kein Pro- 
blem mehr. Mit »PRINT USING 
s$;neustring$« kann auch die neue Zei- 
chenkette neustring$ problemlos for- 
matiert ausgegeben werden. Speziell 
wenn man viele Ausgaben unter dersel- 
ben Formatierungsanweisung benötigt, 
kann man durch diesen Trick Speicher- 
platz sparen. Das Programm wird über- 
sichtlicher und läuft auch ein wenig 
schneller. 

Die bis jetzt beschriebenen Eigen- 
schaften des PRINT USING-Befehls 
können wir teilweise auch auf andere 
Art erreichen - beispielsweise mit 
LOCATE oder mit Hilfe von Windows. 
PRINT USING hat jedoch einen großen 
Vorteil: Es funktioniert gleichermaßen 
für die Bildschirmausgabe und die 
Druckeransprache. Nach dem PRINT- 
Teil können wir nämlich mit »#« und 
einer nachgestellten Nummer einen 
anderen Ausgabekanal als den Haupt- 
bildschirm (Nummer O) wählen. Geben 
Sie zum Beispiel »PRINT#8, USING” 


Hundefutter 
Buerobedarf 
Schulgeld 
Buecher 
Wassergeld 


Nebenkosten 


kino 
Theater 
Reparaturen 
Muellabfuhr 
sonstiges 


Bild 2. 

Führen Sie Ihr 
Haushaltsbuch 
mit dem Computer 


DM ####.# #";s«ein, so wird der 
Inhalt der Variablen s als DM-Betrag im 
schon gewohnten Format an den 
Drucker ausgegeben. 

Nachdem wir nun einen detaillierten 
Überblick über die Leistungsfähigkeit 
des PRINT USING-Befehls gewonnen 
haben, wollen wir uns einmal anhand 
eines praktischen Beispiels damit aus- 
einandersetzen, wie wir dieses Kom- 
mando im Rahmen einer einfachen 
Listenverarbeitung benutzen können. 
Als Beispiel dient ein einfaches Haus- 
haltsbuch. Das ist eine Bilanz im klei- 
nen, eine Übersicht über die laufenden 
und außergewöhnlichen Ausgaben, die 
das tägliche Leben mit sich bringt. Der 
Sinn und Zweck solcher Aufzeichnun- 
gen liegt darin, sich einmal vor Augen zu 
führen, was man eigentlich wofür aus- 
gegeben hat. Damit schafft man sich 
eine Kontrollmöglichkeit, die es erlaubt 
festzustellen, ob sich eine Ausgabe 
gelohnt hat. Früher diente dazu ein ein- 
faches kleines Heftchen, in das die ein- 
zelnen Kosten eingetragen wurden. 
Das Programm »Haushaltsbuch« stellt 
nun eine elektronische, der Computer- 
Zeit angepaßte, Variante dar. 

Hier wird nichts mehr geschrieben, 
sondern einfach laufend eingegeben. 
Wer einen Drucker besitzt, kann sich 
vom aktuellen Stand eine Hardcopy, 
einen Bildschirmausdruck, erstellen. 
Haushaltsbuch ist dabei keineswegs 
eine optimierte und mit allem Komfort 
ausgestattete Programmversion. Sie 
soll nur das Prinzip demonstrieren und 
darüber hinaus verschiedene Anwen- 
dungsmöglichkeiten für PRINT USING 
zeigen. Erweitern Sie die vorgegebene 
Version aber ruhig nach Belieben. 

Die Routine Haushaltsbuch benötigt 
nur relativ wenig Variablen. Insgesamt 
können 20 verschiedene Ausgabepo- 
sten verwaltet werden, deren Titel in 
den Variablen n$(1) bis n$(20), bezie- 
hungsweise deren Wert inn(1) bisn(20) 
abgelegt ist. Alle Ausgabeposten 


erscheinen dabei in einer großen Liste 
auf dem Bildschirm, wobei zunächst 


EEEEELTELELELELELLL 


2498.87 
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links der Titel des Ausgabeposten, 
dann der aktuelle Wert und danach in 
einer Staffelrechnung die Summe aller 
bisherigen Ausgaben dargestellt wer- 
den. Der Wert ganz rechts in der unter- 
sten Zeile zeigt damit die Summe aller 
Ausgaben (siehe Bild 2). Nachdem am 
Anfang des Programms die gerade 
beschriebenen zwei Variablen dimen- 
sioniert wurden, werden danach die 
Namen der einzelnen Ausgabeposten 
definiert. Die ersten drei Definitionen 
sind dabei vorgegeben. Die Angaben 
für die Ausgabegruppen 4 bis 20 sind 
Ihnen überlassen. Sie sind allerdings 
natürlich auch bei den ersten drei Wer- 
ten nicht an die Vorwahl gebunden. Die 
anderen Titel definieren Sie dabei wie in 
den Zeilen 50 bis 70. Wenn Sie dabei 
mit der Zeilennummer 71 für den vier- 
ten Posten beginnen und bis Titel Num- 
mer 20 in Einerabständen fortfahren, 
gibt es auch mit der Zeilennummerie- 
rung keine Probleme. Ansonsten hilft 
natürlich ein einfaches »RENUM«. 
Nachdem die Namen der einzelnen 
Posten eingelesen sind, wird die erste 
Liste aufgebaut. Das zugrundeliegende 
Schema kennen Sie jaschon von Bild 2. 
Die 20 Posten werden in einer Schleife 
ausgegeben. Zunächst wird die Schlei- 
fenvariable i in Zeile 200 mit einem 
ersten USING ausgegeben. Dies dient 
nur dazu, die einzelnen Zeilen exakt zu 
kennzeichnen, was Änderungseinga- 
ben erleichtert. Normalerweise würde 
der Schneider den Cursor nach diesem 
ersten PRINT-Kommando auf den 
Beginn der nächsten Zeile setzen und 
damit den nächsten Ausdruck eine 
Zeile tiefer starten. Durch das ange- 
hängte »;« bleibt er aber in der aktuellen 
Zeile. Als zweites PRINT USING treffen 


EREHHTHHR 
'*%* Haushaltsbuch #*# 
URN 
DIM n$(28):DIM n (28) 
n#$(1)="Lebensmittel" 
n$(2)="Koerperpflege" 
n$ (3) ="Autokosten" 
n#(4)="IHRE WAHL..." 
"n$=Ausgabenname n=Betrag 
"b=budget 
GOSUB 130:G60T0 448 
ke  2 2 2 2 2 
'** Darstellung Liste ##* 
HEHE 
CLS 
sum=® 


PRINT"Titel{14 SPACE}Betrag{ö SPACE} 


Summe" 

PRINT STRING$(39,"-") 
FOR i= 1 TO 28 

PRINT USING"##":i; 


PRINT USING"\{11 SPACE}\";n$(i); 
PRINT USING"{2 SPACE}DM#HH#H#H#H. #412 SP 


ACE}"zn(id:; 
sum=sumtn (i) 


PRINT CHR$ (24) ; USING" DM#####..##" ; sum 


;:PRINT CHR$ (24) 
NEXT 

RETURN 

ES ES ZZ 2 2 2 2 2. 


"#*Druckausgabe#*# 
HERE HHRERERTR 


sum=d 


PRINT#8,"Titel{14 SPACE}Betrag{& SPA 


CE}Summe" 


MAAPPY® 
GKAULKYLER 


wir nun auf die formatierte Namensaus- 
gabe. Die Länge der Postenbeschrei- 
bung ist durch die Schrägstriche auf 13 
Zeichen begrenzt. Wieder folgt ein »;«, 
das den Cursor in der aktuellen Bild- 
schirmzeile festhält. In Zeile 220 wird 
dann der Wert dieses Postens ausge- 
geben. Da der Name nicht direkt an der 
Wertzuweisung kleben sollte, sind vor 
dem »DM« noch zwei Leerzeichen ein- 
gefügt. Die Werte der einzelnen Posten 
werden in der Variablen »sum« aufad- 
diert. Diese wird in der letzten Spalte 
unserer Ausgabe laufend in jeder Bild- 
schirmzeile dargestellt. Dabei wurde 
allerdings noch das Steuerkommando 
»CHR$(24)« benutzt. Dieses bewirkt 
eine Reversdarstellung der letzten 
Spalte, die diese Werte noch einmal 
besonders hervorhebt. Damit nun nicht 
auch die zwei Trennleerstellen zwi- 
schen der vorletzten und der letzten 
Spalte revers dargestellt werden, 
haben wir diese vorsorglich schon mit 
der vorletzten PRINT USING-Anwei- 
sung (in Zeile 220) ausgegeben. 
PRINT USING übernimmt also keine 
Leerzeichen, die vor der Formatanwei- 
sung eingefügt sind. Auch danach ste- 
hende Leerstellen werden normal 
behandelt. Mit dem vierten USING- 
Kommando ist dann die Ausgabe der 
aktuellen Bildschirmzeile beendet. 
Neben der Darstellung auf dem Bild- 
schirm kann man aber auch einen Aus- 
druck des Haushaltsbuches erzeugen. 
Dazu dienen die Zeilen 300 bis 400. 
Verwendet man PRINT USING mit 
einem Drucker, sollten Sie sich aller- 
dings über eine Tatsache nicht wun- 
dern. Wenn Sie, wie in unserem Pro- 
gramm, Daten mit mehreren PRINT 
USING-Anweisungen aneinanderket- 


LF28C] 
[57CB] 
[2A98] 
[BOSO] 
[1D84] 
LF@OCEI 
LAD96] 
[653C] 
[84CC] 
L&BE4] 
LFF22] 
[6448] 
LA3D2] 
[A444] 
[8238] 
LSDF2] 


FOR i= 1 


NEXT i 
RETURN 


LOAD (3) 


LABCE] 
[C976] 
CBAFA] 
[BOC9C]I 
[E48] LOSEOUT 

IF z$="3" 
[33FA] 


CDFDE] 


[547C] 
[74EC]I 
CBB3®] 
[D188] 
CB9B4] 
[BBB4] 
CABEA] 


CA7D4] 


OSEIN 











PRINT#8,STRING$ (39,"-") 

TO 28 

PRINT#8,USING"##":i: 
PRINT#8,USING"\{11 SPACE}\"ın$(i):z 
PRINT#8,USING" {2 SPACE}DMHHHHH. #42 
SPACE}"zn(id): 

sum=sumt+tn (i) 

PRINT#8 ,USING" DM#####. ##" : sum 


Ka a 2 ee ee 2 ee 

"#* Abfrageschleife ++ 
ER 
LOCATE 3.24:PRINT"Eingabe (1) 
Druck (4) " 


z$=INKEY$: IF z$="" THEN 4508 
IF ASC(z$)<49 OR ASC(z$)>53 THEN 458 


" THEN GOSUB 308 
THEN CLS: OPENOUT "Haushalt" 
:FOR i=1 TO 28:PRINT#9,n(i):zNEXT i:C 


IF z$<>"1" THEN 540 

INPUT"Welche Zeile";:z 

LOCATE 28.25: INPUT"Betrag +/-":b 
n(z)=n(z)+b 

GOSUB 138:60T0 448 


ten, so wird die Zeile erstnach dem letz- 
ten PRINT, dann aber auf einen Schlag, 
ausgedruckt. Der Grund ist einfach. 
Intern formt der Computer die eingege- 
benen Werte natürlich in einen forma- 
tierten String um. Erst wenn dieser fer- 
tiggestellt ist, kommt die Druckeraus- 
gabe an die Reihe. So ist es nicht ver- 
wunderlich, daß der erste, bereits 
formatierte Teilausdruck, noch nicht auf 
dem Papier steht, wenn Sie zwischen 
zwei verbundenen PRINT USING- 
Kommandos noch eine zeitraubende 
Berechnung eingebaut haben. 

Die beiden Listendarstellungsrouti- 
nen sind als Unterprogramme ausge- 
führt, die von der Hauptschleife in den 
Zeilen 440 bis 540 aufgerufen werden. 
Diese gibt vier Handlungsmöglichkei- 
ten aus: den Druck der Liste, ihre 
Abspeicherung, das Laden der Listen- 
daten und die Eingabe neuer Werte für 
einen Posten. Die Eingabe neuer Werte 
ist dabei denkbar einfach. Haben Sie 
eine neue Ausgabe verzeichnet, bei- 
spielsweise für 45.60 Mark getankt, so 
wählen Sie einfach Posten 3 und geben 
dann diesen Betrag ein. Der CPC 
addiert dann dazu den alten Wert und 
stellt die aktuellen Summen automa- 
tisch wieder dar. 

Wie schon weiter oben gesagt, ist die 
hier beschriebene Routine ausLListing 2 
lediglich eine Rumpfversion. Sie kön- 
nen natürlich die einzelnen Ausgabepo- 
sten zu Gruppen zusammenfassen und 
dann verschiedene Unterergebnisse 
bilden. Auch können Sie die Darstellung 
nach der Eingabe beschleunigen, 
indem Sie nicht jedesmal den gesamten 
Bildschirm neu aufbauen, sondern nur 
ab der geänderten Zeile alles neu aus- 
geben. (Carsten Straush/hg) 


LYESCI 
LACF2] 
[C174] 
[S4EB] 


[CA2D2] 
[84E8] 
[32BA] 
[3688] 
[CD28] 
[599C] 
[1068] 
[D9AB] 

SAVE (2) 

[B582] 

[C19@0] 


[CDSA] 
CBiBE] 


[5@DA] 


THEN CLS:OPENIN"Haushalt": 
FOR i=1 TO 28: INPUT#9,n(i)=NEXT i:CL 


[3968] 
ESAF2] 
[CE68] 
[7356] 
[LIEB] 
CAD3®] 


Listing 2. Haushaltsbuch hilft Geld sparen 
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Fonsterlr 
Seas 
System 


Als eine der ersten 
Heimcomputer- 
Sprachen stellt das 
Locomotive-Basic 
von Schneider 
Windows zur Verfügung, die 
den Bildschirm in punkto Über- 
sichtlichkeit revolutionieren. 
»Fensterin« Sie doch mit! 





der tauchen sie auf: die Windows. 

Worum handelt es sich dabei? Ein 
Window ist ein Bildschirmfenster. Der 
Computer legt dabei innerhalb des 
Gesamtbildschirms einen Bereich fest, 
den er wie einen eigenen kleineren 
Bildschirm behandelt. Wenn wir bei- 
spielsweise ein Textfenster in der linken 
oberen Ecke unseres Bildschirms defi- 
nieren (siehe Bild 1) und festlegen, daß 
die Breite dieses Fensters 20 Zeichen 
betragen soll und seine Höhe zehn Zei- 
len, so springt der Cursor bei der 
Zeichenausgabe nach der Ausgabe 
des zwanzigsten Zeichens (von links ab 
gerechnet) in die nächste Zeile. Das 
Hochschieben der Zeilen (Scrollen) 
erfolgt in diesem Textfenster nun schon 
nach der zehnten Zeile. Im Endeffekt 
haben wir es bei einem Window also mit 
einem Bildschirm im Bildschirm zu tun. 

Die Definition solcher Bildschirmfen- 
ster ist einfach: Man gibt einfach die 
Koordinaten für die Eckpunkte des Fen- 
sters an. Bezugsrahmen ist dabei 
immer der Gesamtbildschirm. Dieser 
besteht aus 25 Zeilen (Zeile 1 ist dabei 
die oberste) und je nach Modus 20, 40 
oder auch 80 Zeichen je Zeile. In die- 
sem Rahmen kann man dann bis zu 8 
Windows definieren. Geben wir bei- 
spielsweise »WINDOW # 1,1,20,1,10« 
ein, so wird ein Fenster mit den gerade 
beschriebenen Eigenschaften als Win- 
dow Nummer 1 definiert. Die einzelnen 
Parameter des Kommandos sind dabei 
die Windownummer, gefolgt von der 
Angabe der linken und rechten Spalte 
des Windows, sowie der obersten und 
untersten Zeile. 

Alle Befehle, die dieses Window 
adressieren, wirken nun nur noch auf 
den durch das Window abgedeckten 
Teil des Bildschirms. Dazu fügen wir 


E n fast jeder Werbung von Schnei- 


123456789 101112 13 14 15 16 17 18 192021222324 252627282930 31 323334 35 36 37 3839 40 


Window 


oo oo Pwom— 


Bild 1. Das »WINDOW # 1,1,20,1,10« im Bildschirm-Modus 1 (40 Zeichen pro Zeile) 


nach einem Befehl, der das Fenster 
ansprechen soll, einfach die Window- 
Nummer mit dem Doppelkreuz (»#«) 
ein. Bei der Ausgabe von beispiels- 
weise »PRINT #1,”Probetext”« er- 
scheint das Wort »Probetext« in der 
aktuellen Zeile des Windows Nummer 
1. Wenn in diesem Window noch keine 
Ausgaben erfolgt sind, ist dies wie beim 
Gesamtbildschirm die oberste Zeile 
des Windows. Geben Sie diesen Befehl 
nun zehnmal hintereinander aus, SO 
scrollt das Window. Die oberste Zeile 
wird aus dem Textfenster herausge- 
schoben und verschwindet, unten wird 
eine neue angefügt. 


Windows unterteilen 
den Bildschirm 


Versuchen wir einmal einen Satz mit 
PRINT #1 auszugeben, der länger als 
20 Zeichen ist (beispielsweise »PRINT 
#1,” Dieser Text ist laenger als 20 Zei- 
chen”«). Der Satz wird hier nicht wie 
gewohnt in einer Zeile auf dem Schirm 
dargestellt, sondern nach 20 Zeichen 
in die nächste Windowzeile herüberge- 
zogen (siehe auch Bild 2). 

Die Ausgabe von Zeichen und Zahlen 
an ein Textfenster erfolgt normaler- 
weise mit PRINT #. Neben dem PRINT- 
Kommando dürfen wir aber auch noch 
eine Reihe anderer Text-Kommandos, 
wie das genaue Festlegen einer Posi- 
tion mit dem Befehl LOCATE oder das 
Löschen des (Teil-)Bildschirms mit CLS, 
benutzen. Allerdings beziehen sich alle 
Positionsangaben jetzt immer auf die 
linke obere Ecke des Windows. Dane- 
ben gehört zu jedem Kommando, das 
ein Textfenster ansprechen soll, natür- 
lich immer die Window-Nummer. 


»CLS #3« löscht das Window Num- 
mer 3. »LOCATE # 3,5,3,3« setzt den 
Cursor auf die zehnte Spalte der dritten 
Zeile dieses Windows. Angenommen, 
Fenster 3 wurde mit »WINDOW # 3,10, 
20,10,15« definiert, dann steht der Cur- 
sor jetzt auf den Koordinaten, die im 
Fenster O0 (Gesamtbildschirm) mit 
»LOCATE # 0,14,12« angesprochen 
werden. Die Koordinaten von Window 
und Gesamtbildschirm unterscheiden 
sich also. Man kann demzufolge mit 
Hilfe der Windows den Gesamtschirm 
unterteilen. Wie dies geht, wollen wir 
uns nun anhand einiger Beispiele 
anschauen. 

Als erstes versuchen wir, eine Tabel- 
lenausgabe mit Hilfe von Windows zu 
realisieren. Ein praktisches Beispiel 
dazu könnte eine tabellarische Wett- 
kampfauswertung sein, beispielsweise 
die Punktetabelle der Fußball-Bundes- 
liga. Eine solche Tabelle enthält 
bekanntlich drei Spalten. In der ersten 
findet man den Namen des Vereins, die 
zweite Spalte enthält das erreichte 
Punktergebnis, die dritte Spalte zusätz- 
liche Angaben, in unserem Fall das Tor- 
Verhältnis. 

Wir setzen nun voraus, daß uns die 
erforderlichen Angaben in Form von 
Datenfeldern zur Verfügung stehen. Die 
Variable n$ soll dabei den Namen ent- 
halten. n$(1) steht dabei für den ersten 
Verein, n$(2) für den zweiten und so 
weiter. Wenn wir also auf unser Bei- 
spiel, die Fußball-Bundesliga, zurück- 
kommen, wäre beispielsweise n$(1) = 
”1. FC Köln”; n$(2)= "Bayern Mün- 


chen” und so weiter. Nun brauchen wir 
noch ebensoviele Strings für das 
Punktverhältnis. Hier nehmen wir die 
Variable p$. p$(1) enthält also den 
Punktestand des ersten Vereins (rein 
einmal 


fiktiv also beispielsweise 
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»16:12«), p$(2) den des zweiten Ver- 
eins und so weiter. Das Torverhältnis 
soll nach demselben Prinzip in der 
Variablen t$ gespeichert sein. 

Nachdem wir wissen, wo unsere 
Werte im Speicher stehen, können wir 
uns mit der Ausgabe beschäftigen. Die 
Namen sind in der ersten Spalte darzu- 
stellen. Dies ist kein besonderes Pro- 
blem, da die erste Spalte ja am linken 
Bildschirmrand anfangen kann. Wir 
müßten also einfach beispielsweise in 
einer FOR-NEXT-Schleife (oder durch 
20 PRINT-Befehle) die Namen unterein- 
ander ausgeben. 

Schwieriger wird es bei der Ausgabe 
des Punktestandes. Hier muß die Dar- 
stellung ja in der Bildschirmmitte erfol- 
gen. Auch dieses Problem kann man - 
mit ein wenig Gehirnakrobatik - noch im 
Rahmen des Gesamtbildschirms lösen. 
Wir müßten für jeden Verein festlegen, 
an welcher Stelle dessen Punktestand 
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ausgegeben werden soll, dann den 
Cursor mit LOCATE auf diese Stelle set- 
zen und dort den Punktestand aus- 
drucken. Dieses Verfahren ist jedoch 
wenig komfortabel. Einfacher geht es 
mit Windows. 


Windows 
als Editierhilfe 


Als erstes entscheiden wir, wie groß 
(breit) unsere Spalten sein sollen. 
Reservieren wir zunächst einmal 20 
Zeichen Breite für den Namen in der 
ersten Spalte und je zehn Zeichen für 
die anderen beiden Angaben. Nun defi- 
nieren wir drei Windows. Das erste soll 
für die Namensausgabe benutzt wer- 
den. Die Darstellung erfolgt dabei über 
die gesamte Höhe des Schirms. Wir 
legen deshalb also fest: 
»WINDOW # 1,1,20,1,25«. 
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Bild 2. Windows machen den Bildaufbau übersichtlich 
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Bild 3. Listing und Programmablauf auf einen Blick 


Das erste Textfenster reicht damit auf 
den Gesamtbildschirm bezogen von 
Spalte 1 bis Spalte 20. Analog dazu 
werden auch die anderen Fenster fest- 
gelegt: »WINDOW # 2,21,30,1,25« und 
»WINDOW # 3,31,40,1,25« 

Die eigentliche Ausgabe ist nun pro- 
blemlos. Das Programm aus Listing 1 
geht näher darauf ein. 

In den ersten Zeilen werden die drei 
verschiedenen Windows eröffnet und 
die Variablen mit fiktiven Werten gela- 
den. Von Interesse ist erst der Bereich 
ab Zeile 140. In einer Schleife werden 
die einzelnen Werte auf die drei Textfen- 
ster verteilt. So einfach kann eine 
Tabelle mit Hilfe der Windows ausgege- 
ben werden. 

Ein besonderer Vorteil, den die Win- 
dowbenutzung vermittelt, liegt im ein- 
gebauten Schutz gegen Überschrei- 
ben durch spaltenfremde Informatio- 
nen. Eine Ausgabe, die an ein Window 
gerichtet ist, kann nur diesen Bereich 
des Bildschirms verändern - nicht 
jedoch Informationen in der nächsten 
Spalte. Auch wenn Sie mit PRINT#2 
einen sehr langen »Zeichenbandwurm« 
ausgeben, kann dieser niemals auf die 
anderen beiden Fenster übergreifen. 

Die gerade gezeigte Unterteilung des 
Bildschirms in mehrere Bereiche ist 
natürlich nicht auf die Listen- bezie- 
hungsweise Tabellenausgabe be- 
schränkt. Sie läßt sich auch sehr gut bei 
Programmentwicklungen einsetzen. 
Ein interessantes Anwendungsfeld ist 
hierbei die Fehlersuche - das soge- 
nannte Debugging. 

Häufig ist es nützlich, wenn der 
Schirm neben der Bildschirmausgabe 
gleichzeitig auch die Zeilen, die diesen 
Ausdruck bewirken, zeigt. Wenn man 
nun im Modus 1, also mit 40 Zeichen 
pro Zeile, arbeitet, so ist dies natürlich 
nicht möglich. Es gibt jedoch einen klei- 
nen Trick. 


Auch der 
Gesamtbildschirm 
ist ein Window 


Der CPC kann nicht nur Windows 
adressieren, er spricht sogar aus- 
schließlich Windows an. Auch eine nor- 
male Ausgabe mit PRINT geschieht 
immer in einem Window, normalerweise 
dem Window #0. Sie können dies rela- 
tiv einfach überprüfen, indem Sie 
»WINDOW #0,1,20,1,25« eingeben. 
Geben Sie nun mit PRINT einen Text 
aus, erfolgt nach 20 Zeichen der 
Sprung in die nächste Zeile. Wir haben 
also mit der Änderung von Window #0 
die Ausgabebreite für das »normale« 
PRINT verändert. Die üblichen Ausga- 
ben mit PRINT greifen jetztnur noch auf 
die linke Hälfte des Bildschirms zurück. 
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Dies allein gibt uns natürlich noch nicht 





die Möglichkeit, Ausgabe und Listing a Hanse Eure! 
parallel darzustellen. Da wir nämlich nur WINDOW#2.21,30,1.25 EFB7CH 
noch 20 Zeichen Breite zur Verfügung WINDOW#3,31,48,1,25 era 
haben, können wir unsere Ausgabepo- DEN na SU) BER ERZON a 
sitionierung, die ja im Modus 1 auf 40 EI NURERENTSSTER NE LEBE 
Zeichen Breite abgestellt ist, nicht FOR i=1 TO 28 [3AS58] 
überprüfen. Dieses Problem löst sich P=2@X(RND(D) „ 174422 
durch Umschalten in den nächsthöhe- ie a SE a EEE 
ren Modus, in unserem Fall Modus 2 z$ (1) =DEC$ ((INT(RND(1) #2#p) „"##") +" 
(»MODE 2«), in dem 80 Zeichen pro 31 +DECSKCINTIRNDCHIHLZU- BIRD), ##") EEzA] 
’ ı 
Zeile zur Verfügung stehen. Wir können aa TO 8 Lorn: 
mit  »WINDOW #0,1,40,1,25« und PRINT#2P$(1) [39261 Ten sdeiallrne 
i PRINT#3,2$(i) LAASEI 
neben den Schirm NExT a 11283) kart 
: 60 (hier wird Listing 2 
Ist das kleine Beispielprogramm noch eingesetzt) 2 
im Speicher, können Sie durch drei 
neue Programmzeilen das Listing aus- 
geben und parallel dazu mit RUN den ng Listing 2. 
. . [5C98] 
Programmlauf kontrollieren. Die neuen 190 WINDOW#@,41,88,1,25 [S7F4] Drei Befehle - und 
Zeilen finden Sie in Listing 2, das 208 LIST E[SFDCI das Editieren wird 





Ergebnis in Bild 3. ein Kinderspiel 


Windows in Farbe 


INK @,@:INK 1,11:INK 2,24: INK 3,6 [C2B6] 
WINDOW#1,1,48,1,3 LASAE] 
na Kr , j WINDOW#@,1,40,4.20 [1912] 
Bis jetzt haben wir immer mit farblich WINDOW#2, 1,40, 21,25 en [73881 
h f ß : 1: 2 [E1IE6] 
identischen Textfenstern gearbeitet. PEN#B ‚2! PEN#1 ,3: PEN#2,3 [28763 
Gerade aber unterschiedliche Hinter- ELSECLSML BEISH2 7 Space LEF94] 
„ . +" 1 
und Vordergrundfarben eröffnen in a Tee Eher EN 
Zusammenhang mit den Windows inter- Eee ER tlehl R 5 2 [FB®8] 
. . 3 ın 
essante Perspektiven. Schauen wir uns Eger a a 
zunächst an, wie die Farbe der Win- FOR i=1 TO 1BBB:NEXT LFBSA] 
dows festgelegt ist. Das Prinzip ist ee BIDBNEINGREREBST u. Ding 3 
dabei identisch mit der Farbgebung für G0TO 138 [C542] Der dreigeteilte 


den Gesamtbildschirm, der ja, wie wir Arbeitsbildschirm 


gerade gesehen haben, auch nur ein 
Window darstellt. Als ersten Schritt 


belegen wir die Farbregister mit Hilfe EDDES] 
von INK mit den benötigten Farbcodes. INK 1,42INK 2,12:INK 3,2: INK 4,9 LSB6A] 
i ir mit Hi WINDOW#1 ,1,3,21-2*4,21 LO9BEI 
Dann bestimmen wir mit Hilfe von PEN er: ‚ ee 
und PAPER, welches Farbregister für CLS#1 [9178] 
die Vorder- beziehungsweise Hinter- WINDOW#1,5,7,21-4#4,21 [81A8) 
4 PAPER#1,2 [2B64] 
grundfarbe unseres Windows benutzt CLs#1 [L947E] 
werden soll. WINDOW#1,9,11,21-5*4,21 LAESCI 
Bios RAR: PAPER#1,3 LC2ABA] 
»PEN #1,1« definiert zum Beispiel, 158 EhERir [55D2] ee 
. f ; 130 WINDOW#1,13,15,21-4#4,21 [75BE]J isting 4. 
daß für das Window mit der Nummer 1 180 PAPER#1,A " ’ Lasca3 Balkandieorainung 
die Farbe zum Schreiben benutzt wer- 158 CLS#1 [5808] 5 
den soll, die in dem Farbregister 1 | !6®@ G0To 168 tEE4E) | Sind mit Windows 





gespeichert wurde. leicht zu gestalten 


»PAPER # 2,3« gibt analog dazu an, 
daß die Hintergrundfarbe für Window 











Nummer 2 aus dem Farbregister Num- Ben er L re 
5 ar e emo 
mer 3 genommen werden soll. Mit REM RR C48F6] 
CLS#2 wird dann Window #2 in die INK 8,0: INK 1,24: INK 2,5: INK 3,6: INK ER 
neue Hintergrundfarbe geändert. INK 5,12:INK 6,7:INK 7,1@:INK 8.2: INK 
Indem man eine neue Hintergrund- DEE hie seen on 
farbe definiert und mit dieser ein Win- PEN 2:LOCATE 3,5:PRINT"Tastaturbelegu 
dow löscht, ist es möglich, mehrere Dan a ee a 
Bildschirmbereiche und damit auch ver- FOR k= ® TO 3 STEP 3 [D19A] 
i i i 2 WINDOW#1,5+i1,7+i ,10+k, 12+k [2322] 
schiedene Funktionen farblich zu tren PAPER #1, (2+1/3+4*k/3) :CLS#1 [98123 
nen. Eine klare Unterscheidung von NEXT k,i [7424] 
Ein- und Ausgaben verbessert bei- LOCATE 6,11:PRINT"Q" [50581 
h B : SER LOCATE 9,11:PRINT"W" [2360] 
spielsweise die Arbeit mit einem Pro- LOCATE 12,11:PRINT"E" [LBE9IE] 
gramm ungemein. In der Praxis hat sich EAIE. San SISER ER! [4200] 
ap Fr 6,14: PRINT"A [5182] Pe 
dabei eine Dreiteilung bewährt, sozusa- LOCATE 9,14:PRINT"S [922E] Listing 5. 
gen ein Goldener Schnitt der Bild- Write [EA581 | Der Bildschirm 
. . . . . J = . 
schirmaufteilung: Die obersten drei Zei- GOTO 170 LF152] gibt Informationen 
len sind dabei für den Titel reserviert. über die Tastatur 
MAAPPY®% 
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Dieser Bereich ist besonders bei menü- 
gesteuerten Programmen, also Pro- 
grammen mit meist vielen verschiede- 
nen Funktionen, die durch einen 
Tastendruck angesprochen werden, 
sehr nützlich. Durch die Anzeige der 
gerade ausgewählten Funktion weiß 
man immer, in welchem Programmteil 
man sich befindet. 

Nach demselben Prinzip reservieren 
wir im unteren Teil des Schirms - jenach 
Bedarf - drei bis fünf Zeilen für die Kom- 
munikation mit dem Computer, also die 
Eingabe von Texten, Daten und dem 
Ausdruck von Fragetexten. Der Rest 
des Bildschirms bleibt als Arbeitsfeld 
des CPC, wo Daten oder Grafiken aus- 
gegeben werden können. 

Mit Hilfe der Windows können wir 
eine solche Unterteilung relativ einfach 
realisieren. Listing 3 verdeutlicht das 
Prinzip. 

Der Titelbereich wurde mit Window 
#1 bezeichnet. Ein PRINT #1 - bezie- 
hungsweise CLS#1 - gibt also den 
Titel aus und löscht das Titelwindow. 
Analog dazu ist auch der Eingabebe- 
reich definiert. Titel und Eingabe sind 
dabei mit derselben Farbkombination 
belegt (rote Schrift auf blauem Grund - 
für die Besitzer eines grünen Monitors 
dunkelgrün auf mittelgrün). Dazu wer- 
den zunächst die Farbregister O bis 3 
auf die Farben Schwarz (Farbcode O), 
Mittelblau (Farbcode 11), Gelb (Farb- 
code 24) und Rot (Farbcode 6) gesetzt, 
bevor diese Registerdefinitionen auch 
für die Definition der Vorder- und Hinter- 
grundfarben Verwendung finden (Zei- 
len 50, 60). Nach den CLS-Befehlen in 
Zeile 70 sind die drei Textfenster auch 
durch farbliche Trennung direkt zu 
erkennen. Der Hauptbildschirm (Win- 
dow#0) wurde um den Titel- bezie- 
hungsweise Eingabebereich verrin- 
gert. Er umfaßt jetzt nur noch die Zeilen 
4 bis 20. Wundern Sie sich also nicht, 
wenn Sie beispielsweise mit LIST das 
Programm ausdrucken und dann fest- 
stellen, daß im oberen und unteren Teil 
des Bildschirms ein paar Zeilen nicht 
mehr benutzt werden. Dies ist ein 
Nebeneffekt unserer Operation. Denn 
bei jeder normalen Ausgabe, so auch 
bei LIST, spricht der Schneider 





Window#0 an, und genau dieses 
haben wir gerade verkleinert. 

Farblich unterlegte Fenster kann man 
aber nicht nur für die Unterteilung des 
Bildschirms im Rahmen eines menüge- 
steuerten Programmes benutzen. Sie 
sind auch ein nützliches Hilfsmittel im 
grafischen Bereich. Zwei kleine Pro- 
gramme zeigen dies. 

Mit Hilfe der Textfenster kann man 
sehr einfach eine Balkengrafik (Bild 4) 
zaubern. Betrachten wir uns zunächst 
das Prinzip, nach dem dies funktioniert. 
Sie wissen bereits, daß sich Windows 
nicht nur zur vertikalen Einteilung des 
Bildschirms eignen, sondern auch, wie 
bei unserer Editierhilfe, zur Unterteilung 
in der Horizontalen. Das geht natürlich 
auch mit mehreren Windows nebenein- 
ander. 

Während wir bei der Ecditierhilfe 
immer den gesamten Bildschirm als 
Windowhöhe gewählt hatten, sieht das 
bei der Grafik etwas anders aus. Je 
nachdem, welchen Wert wir darstellen 
wollen, setzen wir die Obergrenze 
unterschiedlich. In unserem Beispiel 
stellen wir vier Werte dar, die 2,4,5 und 
wieder 4 betragen. Wir können hier pro- 
blemios mit Windows arbeiten. 
Zunächst wird die Null-Linie festgelegt, 
der Einfachheit halber wählen wir Zeile 
21. Damit stehen die darüberliegenden 
20 Zeilen zur Darstellung zur Verfü- 
gung. Als nächstes definieren wir die 
Einheiten. Dies ist einfach, da der 
größte darzustellende Wert 5 ist. Mit 
maximal 20 Zeilen können wir je Einheit 
also vier Zeilen reservieren. 

Bei der Window-Definition haben wir 
allerdings ein kleines Problem. Die Zei- 
lennummern werden nach unten zu 
höher (der Punkt (1,1) liegt ja oben 
links), während unsere mit den Win- 
dows gezeichneten Balken mit zuneh- 
menden Werten nach oben, also in der 
umgekehrten Richtung, wachsen sol- 
len. Durch eine geeignete Window- 
Definition läßt sich dieses Problem 
jedochleichtlösen. Für den ersten Wert 
(2) definieren wir: »WINDOW # 1,1,3, 
21-2*4,21«, »PAPER #1,1« und »CLS 
#1«. 

Die Zahl 21 ist dabei unsere Null- 
linie, 21-2 Einheiten * 4 Zeilen je Einheit 


stellt die richtige Größe für den Wert 2 
dar. Die Breite unseres Windows ist 
dabei beliebig. Hier wurden drei Spal- 
ten verwendet (Spalte 1 bis Spalte 3; 
Parameter 2 und 3 der Window-De- 
finition). Man kann aber natürlich auch 
auf fünf Spalten je Wert wechseln. Die 
maximale Breite unserer Balken hängt 
nur von der Anzahl der darzustellenden 
Werte ab. 

Bis jetzt haben wir einen einzelnen 
Wert dargestellt. Die Ausgabe der 
anderen Zahlen läuft aber dazu analog 
ab. Wir müssen nur die Spaltenparame- 
ter ändern und den neuen Wert einset- 
zen. Zum Ausdruck können wir dabei 
dasselbe Window noch einmal verwen- 
den. Die alte Grafik bleibt auch ohne 
dieses Fenster auf dem Schirm erhal- 
ten. Beläßt man die Breite bei drei Spal- 
ten, sehen die zugehörigen Befehle so 
aus:  »WINDOW # 1,4,6,21-4*4,21«, 
»PAPER # 1,1« und »CLS # 1«. 

Falls die Hintergrundfarbe schon 
feststeht, kann das PAPER-Kommando 
natürlich entfallen. Nach demselben 
Prinzip können Sie nun auch die ande- 
ren beiden Balken ziehen. Listing 4 gibt 
das vollständige Programm wieder. 
Variieren Sie ruhig einmal die einzelnen 
Parameter und schauen Sie sich an, 
was passiert. Als kleines Übungsbei- 
spiel können Sie ein Programm schrei- 
ben, das unterschiedliche Werte als 
Balkendiagramm darstellt und dabei 
selbst den Maßstab (Zeilen pro Einheit) 
festlegt. Wenn Sie dabei größere Pro- 
bleme haben, finden Sie eine Lösung 
für solch ein Programm im Schneider- 
Sonderheft Ausgabe 2/85. 

Zum Abschluß - undals weitere Anre- 
gung zum Experimentieren mit den 
Windows - kommt noch ein ganz ande- 
rer Anwendungsbereich zur Sprache: 
die grafische Gestaltung des Bild- 
schirms. Wenn man ein Programm 
schreibt, das viele verschiedene Funk- 
tionen auf Tastatur legt (beispielsweise 
ein Musikprogramm, das eine Orgel 
simuliert) so ist es erstrebenswert, die 
Tastaturbelegung permanent parat zu 
halten. Nun kann man natürlich den 
Bildschirm mit endlosen Erklärungstex- 
ten übersäen nach dem Prinzip: Die 
»Q«-Taste leistet dies und das etc. 
Besonders anwenderfreundlich ist 
diese Methode aber nicht. Besser bil- 
det man die Tastatur auf dem Schirm als 
Grafik ab. Wie dies geht, zeigt Listing 5. 
Das Prinzip ist ähnlich der grafischen 
Darstellung, nur daß wir hier mit kon- 
stanten, verschiedenfarbigen Feldern 
arbeiten. Tippen Sie das Programm 
ruhig einmal ein, fügen Sie zwischen 
den einzelnen Zeilen ein STOP ein und 
lassen Sie sich überraschen, was man 
mit den Windows noch alles machen 
kann. Viel Spaß dabei! 

(Carsten Straush/hg) 
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Dem Datenrecorder 
aufs Bit geschaut 


Der Kassettenrecor- 
der des CPC ist ein 
preiswertes Spei- 
chermedium. Was 
die Übersichtlich- 
keit über gespeicherte Dateien 
angeht, ist ihm jedoch jedes 
Diskettenlaufwerk weit voraus. 
Wir helfen ihm auf die Sprünge! 


er Datenrecorder des CPC 

464 ist ein billiges, aber trotz- 

dem - zumindest für den An- 
fänger - völlig ausreichendes Speicher- 
medium. Neben Lesefehlern und der, 
speziell bei längeren Programmen, 
etwas langweiligen Speicherung, erge- 
ben sich zwei Hauptprobleme. Ein ein- 
facher Kassettenrecorder, wie der des 
Schneider, kennt kein Directory. Man 
kann daher Programme weder gezielt 
ansteuern noch gegen Überschreiben 
schützen. Daneben darf man Pro- 
grammnamen mehrfach verwenden, 
was die Übersicht nicht gerade fördert. 
Als Ergebnis, vor allem wenn man mit 
mehreren Kassetten jongliert, dauert 
die Suche teilweise länger als der 
eigentliche Ladevorgang. Manchmal 
stellt man auch erst nach dem Schrei- 
ben des ersten Blocks fest, daß an die- 
ser Stelle noch etwas gespeichert war, 
was man eigentlich aufheben wollte. 
Und dann ist es überschrieben und ver- 
loren. 

Nun gibt es natürlich eine Reihe einfa- 
cher Hilfen. Man sorgt erstens dafür, 
daß jeder Programmname nur einmal 
verwendet wird und schreibt sich die- 
sen mit Zählerstand und so weiter sor- 
fältig auf. Ferner spult man jedesmal an 
den Bandanfang zurück und sucht dann 
mit Hilfe des Zählwerks exakt den Pro- 
grammstart heraus. Mit guten Aufzeich- 
nungen ist dies kein Problem. Hat man 
aber einmal den Inhaltszettel verloren, 
so beginnt die Sucherei wieder von 
vorn. 

Mit CAT kann man von jeder Kassette 
einen Auszug auf den Schirm bringen 
und diesen dann abschreiben oder aus- 
drucken. 

Dies ist jedoch ziemlich nervtötend 
und langwierig. Und da wir nicht auch 
noch der Buchhalter unseres Compu- 
ters sein möchten, könnte die 
Maschine solche Aufzeichnungen ja 
selbst machen. 





Es gibt eine ganze Reihe weiterer 
Informationen, die auf Band abgespei- 
chert werden. Der Computer liest sie 
zwar auch ein, serviert sie uns aber bei 
einer einfachen CAT-Analyse nicht. 
Neben der Anzahl der abgespeicherten 
Bytes ist es besonders bei Maschinen- 
code-Programmen interessant zu wis- 
sen, ab welcher Position diese im Spei- 
cherliegen. Bei selbststartenden Routi- 
nen benötigen wir daneben natürlich 
auch noch die Aufrufadresse. Ohne 
diese Angaben kann eine Maschinen- 
code-Routine nicht lauffähig kopiert 
werden. Diese Informationen soll uns 
der Schneider auch mit angeben. Für 
die Ausgabe wählen wir zwei verschie- 
dene Varianten. Die eine soll uns einen 
großen Ausdruck mit allen verfügbaren 
Informationen auf dem Drucker geben. 
Daneben wäre es günstig, wenn auch 
eine Kurzfassung (Dateiname, -typ und 
Blockzahl) auf Etiketten ausgedruckt 
werden könnte. Klebt man diese Etiket- 
ten dann auf die entsprechenden Kas- 
setten, so hat man jederzeit eine opti- 
male Übersicht. 


Informationen 
im Programmkopf 


Neben der praktischen Ausführung 
des Programms müssen wir uns noch 
damit beschäftigen, woher wir die für 
den Ausdruck benötigten Informatio- 
nen erhalten. Alle wichtigen Werte sind 
im ersten Teil jeder Bandaufzeichnung, 
dem sogenannten Kopf oder Header, 
enthalten. Dieser Inhalt wird vor der Auf- 
zeichnung jedes Blocks abgespei- 
chert. Der Schneider ordnet anhand 
dieser Informationen die einzelnen 
Blöcke dem gesamten Programm zu. 
Nur so ist es beispielsweise möglich, 
daß bei einem Lesefehler in einem 
Block nur dieser wiederholt werden 
muß und das gesuchte Programm trotz- 
dem richtig eingelesen werden kann. 
Beim Lesen wird der Header in einen 
eigens für diesen Zweck im Computer 
reservierten Speicherbereich abge- 
legt. Erist 64 Byte lang und liegt für das 
Lesen einer Datei, unabhängig davon, 
ob es sich um Daten oder Programme 
handelt, ab der Adresse B88C hex vor. 
Parallel dazu existiert noch ein zweiter 
Speicherbereich von gleicher Länge, in 
dem der Schneider die Werte ablegt, 
die Sie ihm mit dem Ladebefehl überge- 
ben haben. Wenn Sie also beispiels- 


weise ein Programm mit Namen »Ana- 
Iyse« laden wollen und dazu LOAD 
»ANALYSE« eingeben, so wird dieser 
Name zunächst ab der Adresse 47111 
(oder B807 hex) abgelegt. Findet der 
CPC beim Lesen ein Programm auf dem 
Band, so liest er zunächst dessen 
Header ab Adresse 47244 (BB8C hex) 
ein. Dann wird verglichen, ob der einge- 
lesene Kopf mit dem gewünschten Pro- 
gramm übereinstimmt. Erst danach 
werden die nachfolgenden Daten gele- 
sen. Sie können dieses Vorgehen 
Schritt für Schritt nachvollziehen, 
indem Sie das nachfolgende kleine 
Experiment durchführen. Nehmen Sie 
ein beliebiges Programm XYZ und 
geben Sie »LOAD’XYZ”«ein. Statt auf 
PLAY zu drücken, brechen Sie jedoch 
den Programmlauf ab und schauen sich 
mit »FOR i=47111 TO 48000:’?i, 
PEEK(i), CHR$(PEEK(i)):NEXT i« den 
Speicher an. In den ersten Speicher- 
stellen finden Sie den Namen und eine 
1 als Kennzeichen dafür, daß der erste 
Block eingelesen werden soll. Der rest- 
liche Speicher ist, falls Sie noch keine 
Schreib- oder Leseoperation (SAVE, 
OPENOUT beziehungsweise LOAD, 
OPENIN) ausgeführt haben, weitge- 
hend leer. Wiederholen Sie nun das 
LOAD-Kommando. Brechen Sie aber 
erst nach dem Einlesen des ersten 
Blocks die Anweisung ab. Wenn Sie die 
FOR-TO-Schleife noch einmal einge- 
ben, so finden Sie den Namen Ihres 
Programmes wie beschrieben ab der 
Adresse 47244. Dieser Programm- 
name und die nachfolgenden Bytes, auf 
die wir gleich noch zu sprechen kom- 
men, stellen eine Kopie des Kopfsatzes 
der Datei dar, die gerade vom Band 
gelesen wurde. In unserem Fall sind die 
beiden Namen identisch. Das Pro- 
gramm wird also geladen. Hätten wir 
aber beispielsweise als Programmna- 
men ANNA eingegeben und auf den 
Anfang von XYZ gespult, so würden wir 
»ANNA« ab 47111 sehen; »XYZ«stände 
ab 47244. In diesem Fall bestünde 
keine Übereinstimmung und der CPC 
würde das Band so lange durchsuchen, 
bis er einen Namen findet, bei dem sich 
eine Übereinstimmung ergibt. 

Neben dem Namen, für den die 
ersten 15 Byte reserviert sind, enthält 
der Band-Header jedoch noch eine 
Menge anderer Informationen, die für 
uns sehr nützlich sind. Das Byte 18 
beinhaltet eine Codierung für den 
Dateityp. Bei CAT finden Sie den Datei- 
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typ durch verschiedene Sonderzei- 
chen repräsentiert. Das »$« ist der 
Code für ein Basic-Programm. »%« 
steht für ein geschütztes Basic- 
Programm. Bei »&« handelt es sich um 
eine Binär-Datei, normalerweise also 
um ein Maschinencode-Programm. Da 
sich auch Maschinencode-Routinen 
schützen lassen, existiert ein weiterer 
Code »’« als Symbol für eine geschützte 
Binär-Datei. Ein Sternchen (»*«) sym- 
bolisiert schließlich eine ASCII-Datei. 
Diese Speicherart verwendet der 
Schneider, um Daten abzulegen, bei- 
spielsweise bei OPENOUT. Für uns 
sind nun noch vier weitere Speicher- 
stellen von Interesse. Die Bytes 24 und 
25 des Headers enthalten die totale 
Länge der Datei in Bytes und bei 
Maschinencode-Programmen steht die 
Einsprungadresse, ab der der CPC das 
Programm automatisch startet, in den 
Bytes 26 und 27. 

Damit haben wir nun alle notwendi- 
gen Informationen parat, um unser 


ee 2 nn 
'#** Cassettenanalyse CPC 464 #** 


ur by Carsten Straush 


EEE 
EEE EN 
'*#* Definition Druckerstrings #*# 
EEE 


ps$ (BB) =CHR$ (27) +"S1" 
ps$ (1) =CHR$ (27) +"S@" 
ps$ (2) =CHR$ (27) +"T" 


Kassettenanalyse-Programm zu 
schreiben. Die eigentliche Analyse 
stellt keine besonderen Probleme dar. 


Doppelt soviel 
Information auf 
halbem Platz 


Mit »OPENIN ” !”« wird die jeweils näch- 
ste Datei auf dem Band gelesen (Zeile 
480). In den folgenden Zeilen werden 
dann aus den einzelnen Header-Bytes 
die benötigten Informationen ausgele- 
sen. Die einzige nicht direkt abgespei- 
cherte Angabe, nämlich die Blockzahl, 
berechnetsich, indem man berücksich- 
tigt, daß jeder Block maximal 2048 
Byte aufnehmen darf. Aus der totalen 
Länge (Bytes 24 + 25) läßt sich daher 
durch Umformung die Blockzahl leicht 
nachrechnen. Wie dies geschieht, 
sehen Sie in den Zeilen 560 und 570. 


[E828] 
[B8B8] 
[F84E] 
[672E] 
[2484] 
[A738] 
[A488] 
LEQF&6] 
[CBEF8] 
LABEC]I 


CLS 
** ı TAPE 
n$="" 
OPENIN" !" 
adr=&B88C 


NEXT i 


ON ERROR GOTO 888 


FOR i=adr TO adr+15 
m=PEEK (i): IF m=® THEN m=32 
n$=n$+CHR$ (m) 


Nachdem alle Ausgaben bereitstehen, 
werden sie zu dem String pr$ zusam- 
mengefügt. Dieser enthält je nach Aus- 
gabegerät (Bildschirm oder Drucker) 
und Ausgabezweck (Etiketten- bezie- 
hungsweise Volldruck) unterschiedli- 
che Angaben. Dabei ist zu sagen, daß 
bei der Druckoption auch noch jeweils 
eine parallele Ausgabe auf dem Schirm 
stattfindet. Die Zeichen werden dabei iin 
gewohnter Größe dargestellt. Eine Aus- 
nahme dieser Regel bildet der Etiket- 
tendruck. Da auf einem Etikett nur 
wenig Platz ist, sollen hier die Buchsta- 
ben möglichst klein erscheinen. Hat 
man beispielsweise sieben Titel auf 
einem Band gespeichert, so ist ein 
3,5 cm hohes Etikett bei normaler 
Schriftgröße bereits voll. Dies ist, spe- 
ziell wenn man viele kurze Programme 
hat, nicht gerade üppig. 

Das Programm arbeitet deshalb mit 
einem Trick. Fast jeder gebräuchliche 
Nadeldrucker verfügt über zwei 
Druckoptionen: Superscript und 


[9134] 
[BBO32] 
[8FCQO] 
CEF9C]I 
CD7DA] 
[4198] 
[7588] 
[0300] 
[D5@4] 
[4888] 


ON BREAK GOSUB 898 

MODE 1:BORDER ® 

INK @,@: INK 1,24: INK 2,11:INK 3,21 
WINDOW#1,1,48,1,5:WINDOW#@,1,40,6,25 
L83A61 
LOBEA] 
LFBSC] 


[346A] 
[BO4E2] 
[5076] 


typ$=CHR$(PEEK(adr+18) MOD 16 +36) 
laenge=PEEK (adr +24) +256*PEEK (adr +25) 


[768A] 


[2DA4] 
bloecke=INT (1laenge/2948) LBOSEA] 
IF bloecke*2848<laenge THEN bloecke= 
bloecke+i 
ansprung=PEEK (adr +26) +256*PEEK (adr +2 
7 
anfang=PEEK (adr +21) +256*PEEK (adr +22) 


WINDOW#3,1,408,20,25 [FS24] 

PAPER B:PEN 1:PAPER#1,B:PEN#1,2 

LOCATE#1,18,2: PRINT#1," Cassettenan 

alyse 464 " 

LOCATE 4,15:PRINT"Soll die Ausgabe p 

aralell auf dem" 

LOCATE 18,1&:PRINT"Drucker erfolgen 
3/n?" 

z$=INKEY$: IF z$="" THEN 208 

IF LOWER$ (z$)="j" THEN flag=1 

IF LOWER$ (z$)="n" THEN flag=® 

IF LOWER$(z$)<>"j" AND LOWER$ (z$)<>" 

n" THEN 200 

CLS 

PRINT#3,"Bitte spulen Sie das Band a 

uf den Anfang und druecken Sie eine 

beliebige Taste!" 

CALL &BB18 

IF flag=® THEN 4580 

CLS#3:PRINT#3 

PRINT#3,"Bitte schalten Sie den Druc 
ker ein. DannTastendruck !" 

CALL &BB18 

CLS#3: PRINT#3 

PRINT#3," Wie soll die Druckerausgab 

e erfolgen?" 

PRINT#3 

PRINT#3,"{8 SPACE}als Etikettendruck 
413." 

PRINT#3,"{8 SPACE}auf Endlospapier {3 
SPACE} (2)" 

z$=INKEY$: IF z$="1" THEN eti=1 ELSE 
IF z$="2" THEN eti=® ELSE 3648 

IF eti=® THEN PRINT#8,"Dateiname{7 S 
PACE}Typ{2 SPACE}Bloecke{2 SPACE}Byt 

es{2 SPACE}Anfang{2 SPACE}Ansprung" 
IF eti=® THEN PRINT#8,STRING$ (65,"-" 
) 


ECAB&] 
CCFDE] 
LOBIE] 
[CEöF6] 
[6238] 


[208A] IF flag=® THEN 798 

IF eti=1 THEN 708 

pr$=n$+" "+typ$+"{5 SPACE} "+RIGHT$(" 
{2 SPACE}"+MID$(STR$(bloecke) ,2),2) 
pr$=pr$+"{4 SPACE}"+DEC$((laenge,"## 
HH") +"{2 SPACE}&"+HEX$(anfang,4) 
IF ansprung=® THEN pr$=pr$+"(3 SPACE 
’keine" ELSE pr$=pr$+"{3 SPACE}%"+HE 
X$ (ansprung,4) 

FRINT#8,pr$ 

GOTO 798 

RER 

"#** Etikettendruck #*#* 
URERARHUERNARTRHRRRR 

pr$=n$+" "+typ$+" "+RIGHT$("{2 SPACE 
+"+MID$(STR$(bloecke) ,„2),2) 

IF up=1 THEN up=® ELSE up=1 
PRINT#8,ps$ (up) +pr$; 

IF up=1 THEN FOR i=1 TO 21:PRINT#8,C 
HR$& (8) 3; :NEXT [23B6] 
IF up=8 THEN PRINT#8 [9726] 
G0OTO 798 CD16A] 
ME 5 2 2 22 202 2 02 2 2 2 2 27 2 212 2 2 2 2 22 cC254] 
‘#** Bildschirmausgabe ##* C774C] 
HERRÄRHHERNHHHHRHHERERR [8258] 
pr$=n$+typ$+" "+RIGHT$("{2 SPACE}"+M 
ID$(STR$(bloecke) ,2),2) 

pr$=pr$+" "+DEC$((laenge, "#HHHhR") +" 
{2 SPACE}&"+HEX$(anfang,4) 

IF ansprung=® THEN pr$=pr$+" keine" 
ELSE pr$=pr$+" %"+HEX$(ansprung,4) 
PRINT pr$; 

CLOSEIN 

G0TO 478 

2 2 2 2722 27272 2 212 272727 27 2 21272 

"*#* ERROR Handling *#* 
RENNER 

RESUME NEXT 

PRINT#8,ps$ (2) :END 


[7F72] 
[5774] 
[F2C®] 
[5DC8] 


[83808] 
[8130] 


[87E4] 
[4CBB] 


CFEA2] 
L97AA] 
[126A] 
[4458] 
[3826] 
LIESCI 


[69E2] 
[286E] 
C2BEC] 


[CS5B2] 
L6öBBE]I 
[84EE] 
[2D1iE] 


LADA8] 
[9504] 
[4E12] 


CZAE4] 
[9932] 758 
768 
778 
788 


798 


C1AA4] 


[F968] 
[SFD6] 
CBQ32] 800 
[CDEE] 

810 
[53B2] [43AB] 
[C858] 
[50970] 
[E68] 
[4658] 
CF63B] 
[SCSC] 
[B4EB] 
[B1EB] 


8208 
838 
840 
858 
848 
878 
888 
8970 


L1BEB] 

PRINT#1 C[D73A] 

PRINT#1,"Name{1® SPACE}Typ Bl. 
Anfang Start" 
RHEIN 

‘#*#* Analyseroutine ##* 
ee ee 2 2122 2 2 2 2 2 2 2 


Bytes 
[BE7E] 
[BA48] 
[D438] 
[3@4C] 


Listing. Analysieren Sie Ihre Kassettendateien 




















BASIC 





Subscript. Es handelt sich dabei um 
verkleinerte Zeichen, die nur die halbe 
Höhe eines normalen Symbols umfas- 
sen. Ein Superscript-Zeichen wird 
dabei in der oberen Hälfte einer Zeile 
ausgedruckt. Bei Subscript erfolgt die 
Ausgabe in der unteren Hälfte. Norma- 
lerweise werden diese verkleinerten 
Zeichen zur Angabe von Indices ver- 
wendet. Man kann sie jedoch auch für 


So werden die 


Druckercodes 
angepaßt 


die normale Schriftausgabe benutzen. 
In unserem Fall können wir dann durch 
Übereinanderdrucken von zwei Ausga- 
ben in derselben Zeile - die erste mit 
Superscript, die zweite mit Subscript - 
die doppelte Anzahl (bis zu 15 Titel) auf 
einem Etikett unterbringen. Normaler- 
weise reicht das aus. 

Damit Sie gegebenenfalls das Pro- 
gramm an Ihren Drucker anpassen kön- 
nen, noch ein paar Worte zur Ausfüh- 
rung. 

Zum Umschalten auf Subscript bezie- 
hungsweise Superscript benötigt der 


solche Befehlssequenz beginnt norma- 
lerweise mit dem Code CHR$(27). Er 
sagt dem Drucker, daß die folgenden 
Angaben als Steuerbefehle zu betrach- 
ten sind, also nicht gedruckt werden 
sollen. Danach stehen noch ein oder 
zwei weitere Zeichen, die die Umschal- 
tung auf die Schriftarten bewirken. Im 
Programm werden diese Kontrollse- 
quenzen am Anfang in die Strings 
ps$(0), ps$(1) und ps$(2) geladen. 
ps$(0) schaltet dabei Subscript ein, 
ps$(1) Superscript. ps$(2) schaltet 
beide Schrifttypen aus und damit wie- 
der auf normale Schriftgröße zurück. 
Die hier angegebenen Sequenzen ent- 
sprechen der Centronics-Norm, die die 
meisten Drucker verstehen. Falls Ihr 
Drucker andere Codes erwartet, müs- 
sen Sie nur diese Strings ändern. 
Einem weiteren Problempunkt bildet 
noch möglicherweise die Rücksteue- 
rung des Druckkopfes. Wenn die obere 
Hälfte einer Zeile geschrieben wurde, 
muß danach von Superscript auf 
Subscript umgeschaltet (was ganz ein- 
fach mit Hilfe der Steuercodes 
geschieht) und gleichzeitig der Druck- 
kopf wieder auf den Anfang der Zeile 
zurückgesetzt werden. Dazu gibt es 
mehrere Verfahren. Hier wurde eine all- 


dem Drucker-Kommando <BACK- 
SPACE> (CHR$(8)) wird der Druck- 
kopf um eine Stelle zurückbewegt. 
Führt man diesen Befehl 2 1mal hinter- 
einander aus - die auszugebenden 
Strings sind genau 21 Zeichen lang - so 
kommt man wieder zum Anfang der 
Zeile zurück. Sie finden das Kommando 
zum Rücksetzen in Zeile 730. Vielleicht 
verfügt Ihr Drucker auch über einen 
Code, der es erlaubt, den Druckkopf 
direkt auf den Zeilenanfang zurückzu- 
setzen. Dann können Sie sich die FOR- 
TO-Schleife sparen und direkt diesen 
Code an den Drucker ausgeben. 
Nähere Informationen dazu finden Sie in 
Ihrem Druckerhandbuch. 


Universeller 
Etikettendruck 


Zum Abschluß nun noch ein Tip: Die 
hier benutzte Art des Etikettendrucks 
eignet sich natürlich nicht nur für die 
Katalogisierung von Datenkassetten. 
Man kann damit nach derselben 
Methode mit einigen kleinen Änderun- 
gen auch Ordnung in seine Musikkas- 
setten- und Videobandsammlung brin- 


Drucker bestimmte Steuerbefehle. Eine 





Links herum, 
rechts herum 


Vielleicht wollten Sie immer schon 
eines der beliebten Labyrinth-Spiele 
programmieren? Oder aber, Sie inter- 
essiert die logische Grundlage? Hier 
erfahren Sie Näheres dazu. 


Is Ausgangspunkt für eigene Spiele dienen diese 

Basic-Routinen: Sie erzeugen beliebig große Laby- 

rinthe nach Maß, bei denen wirklich nur ein einziger 
Weg hinausführt. 

Wenn Sie einen Computer ein Labyrinth erzeugen lassen 
wollen, stehen Sie vor der schwierigen Aufgabe, dem Com- 
puter den Labyrinth-Aufbau genauestens zu erklären. Der 
Zufall muß dabei gerade soweit eingeschränkt werden, daß 
zwar bei jeder Berechnung ein anderes Labyrinth entsteht, 
es aber andererseits wirklich nur einen Weg durch das Laby- 
rinth gibt (und nicht etwa mehrere oder gar keinen). 

Eine Lösung ist so möglich: 

Schritt 1: 

Zunächst soll das Labyrinth nur aus einem einzigen Feld 
bestehen, das irgendwo nahe der Mitte des endgültigen 
Labyrinthes liegt. Dieses Feld hat vier bisher unbelegte Nach- 








gemein bewährte Variante gewählt. Mit 


gen. (Carsten Straush/hg) 


barfelder (Bild 1). Unbelegte, aber einem belegten Feld 
benachbarte Felder, werden ab jetzt »Randfelder« genannt. 
Schritt 2: 

Jetzt wird ein beliebiges der bisherigen Randfelder besetzt 
und mit einem der schon belegten Nachbarfelder verbunden. 
Dadurch entstehen wieder ein paar neue Randfelder (Bild 2). 
Schritt 3: 

Nun wird wieder ein beliebiges der sechs (alten und neuen) 
Randfelder besetzt und mit einem der bestehenden Felder 
verbunden. Die Nachbarfelder des neuen Feldes werden 
ebenfalls zu Randfeldern erklärt (Bild 3). Waren beim ersten 
Schritt nur vier Verbindungen möglich, so sind es jetzt schon 
sechs. 

Schritt 4: 

Erstmals tritt etwas Neues auf: Das Eckfeld, das von den 
vorhandenen Feldern umschlossen wird, kann auf zwei ver- 
schiedene Weisen mit diesen verbunden werden. Trotzdem 
darf aber nur eine Verbindung hergestellt werden. Außer der 
Wahl des Randfeldes ist jetzt also auch noch die Wahl der 
Verbindungen nötig. Dieser Schritt kann so bereits in acht 
verschiedenen Varianten ausgeführt werden. Klar ist, daß 
auch hier einige neue Randfelder entstehen. 

Schritt 5: 

Sie werden sicher schon vermuten, daß dieses Verfahren 
solange fortgesetzt wird, bis die gesamte Fläche des endgül- 
tigen Labyrinths ausgefüllt ist, also solange, bis keine neuen 
Randfelder mehr dazukommen und die schon vorhandenen 
aufgebraucht sind. Und genauso verhält es sich auch tat- 
sächlich. Wenn das Labyrinth etwa aus sechs Feldern 
besteht, werden schon erste Andeutungen sichtbar, daß es 
sich bei der entstehenden Figur um ein Labyrinth handeln 
könnte (Bild 4). 
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Bild 1. Das Ausgangsfeld 









Bild 4. Langsam wird ein »Labyrinth« erkennbar 


Dieses Verfahren erfüllt alle vorausgesetzten Bedingun- 
gen: Die ersten beiden Felder sind sicher miteinander ver- 
bunden. Ein neu hinzukommendes Feld wird wiederum mit 
einem dieser Felder verbunden. Auf irgendeine Weise kann 
so jedes schon vorhandene Feld von neuen Feldern aus 
erreicht werden. 

Jedes Feld ist also mit jedem anderen verbunden. Start- 
und Endpunkt des Marsches durch das Labyrinth können frei 
gewählt werden - zum Beispiel nach optischen Gesichts- 
punkten. 

Der Weg zwischen Start- und Endpunkt ist auch eindeutig: 
Jeder neu dazugekommene Punkt ist durch genau ein »Tor« 
mit einem Feld des schon vorher bestehenden Teillabyrinths 
verbunden. Der einzige Weg läuft vom Startpunkt über das 
erste Feld zum Zielpunkt. Es könnte sein, daß sich die beiden 
Teilwege kurz vor dem ältesten Feld des Labyrinths treffen. 
Der restliche Weg wird dann sowohl in der einen, als auch in 
der anderen Richtung begangen. Wenn Sie diesen Teil 
weglassen, erhalten Sie wirklich einen einzigen Weg, der 
zwei beliebige Punkte des Labyrinthes verbindet. 

Im Programm (Listing 1) wird für jedes Feld des Labyrinthes 
ein Byte reserviert. Das Bit 3ist gesetzt, wenn das Feldschon 
besetzt ist. Das Bit 2 ist gesetzt, wenn schon eine Verbin- 
dung mit dem darunterliegenden Feld vorhanden ist und das 
Bit 1, wenn das Feld mit dem rechten Nachbarfeld verbunden 
ist. Das Bit O gibt an, ob der Weg vom Start zum Ziel durch 
dieses Feld läuft. Die Bits 4 bis 7 sind beliebig. Im vorhande- 
nen Programm haben diese Bits die Werte 1, wenn das Feld 
schon besetzt ist und O0, wenn es noch frei ist. Für besetzte 
Felder ergeben sich damit die Codes in der nebenstehenden 
Tabelle. Wenn Sie die Bits 4 bis 7 anders nutzen, ändern sich 
diese Werte entsprechend. 
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Bild 2. Die erste Verbindung entsteht 
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Bild 3. Mit jedem neuen Feld steigt die 
Zahl der »Randfelder« 





Um lange Suchzeiten nach Randfeldern zu vermeiden, 
werden die Orte aller Randfelder in Form einer Tabelle im 
Speicher abgelegt. Zum Besetzen eines neuen Feldes brau- 
chen Sie ein beliebiges Element aus dieser Tabelle zu neh- 
men und mit den bisherigen Feldern zu verbinden. Natürlich 
muß die Tabelle danach unter Berücksichtigung der neuen 
Randfelder aktualisiert werden. Es werden nur Felder aufge- 
nommen, die den Wert O enthalten. Nach der Aufnahme wer- 
den diese dann mit dem Wert 3 markiert. So vermeidet man, 
daß ein und dasselbe Feld fälschlich mehrmals in die Tabelle 
der Randfelder aufgenommen wird. Andererseits gilt in allen 
anderen Fällen ein mit dem Wert 3 markiertes Feld nicht als 
belegt. Dadurch kann es nicht fehlerhaft mit anderen Feldern 
verbunden werden. Ein Feld, das mit dem Wert 3 markiert und 
in der Randfeldertabelle vermerkt ist, nimmt also eine Zwitter- 
stellung ein: Es ist weder frei noch besetzt. 

Für das Einfügen und Entfernen von Elementen aus der 
Rand-Tabelle gibt es verschiedene Möglichkeiten. Im vorlie- 
genden Programm hat die Tabelle eine Stapel-Struktur: Die 
zuletzt eingefügten Elemente werden als erste wieder ent- 
nommen. Denkbar wäre auch eine »Random-Access«-Struk- 
tur: Ein Element kann durch Zufall gesteuert aus einer beliebi- 
gen Position der Tabelle entnommen werden. Damit der Ver- 
waltungsaufwand nicht zu sehr anschwillt, sind allerdings 
zusätzliche Maßnahmen zu ergreifen: Nach der Entnahme 
wird das letzte Element in die entstandene Lücke kopiert und 
die Tabellenlänge um den Wert 1 vermindert. Dadurch trifft 
die nächste Zufallsauswahl niemals ein schon entnommenes 
Element. Zusätzlich können neue Elemente einfach am Ende 
eingefügt werden. 

Diesen Tabellenaufbau erreichen Sie, indem Sie die Zeile 
60430 des Programms durch »60430 z% =INT(RNDx 
t% +1): Pr =SA(Z) +F%:S% (zZ) "SA (t%):t% =t%-1:POKE 


pP%,&F8« ersetzen. 
Weg durch das Feld 




















Verbindung nach 
unten rechts 

















BASIC 


6GDBOO RER NH  [DAFAI 
sBRa1a '* LABYRINTH * CBFBE] 
60020 '* Vers. (29.25.85) * [49561 
&a035B '* (c) 1985 by Isar-Amper-Soft CAD48] 
LDODID REINE [4F®2] 
sa050 ° [FS84] 
s&2B&4B ‘Programm Reset L1AS56] 
60072 MEMORY 19572’Reservierung maximal 
95*134 Felder=(95+2)*(134+2)+2 Byt 
es C[F1BC] 
6BBBD SYMBOL %F8,3,3,3,3,3,3,255,255 [CA3@4] 
60098 SYMBOL &F9,3,3,3,27,27,3,255,255 [29EB] 
+B10B8 SYMBOL [ADE4] 
saı11Bd SYMBOL LE3CQ]I 
62120 SYMBOL T1C6C] 
6@13@ SYMBOL x t [FB48] 
62140 SYMBOL [7ES®O] 
6015Q@ SYMBOL &FF,2,0,0,24 N [242C] 
&016B RANDOMIZE TIME [6A2A]I 
60178 F%=HIMEM+3: ymax%=PEEK (f%-2) zxmax%= 
PEEK (#%-1) :1%=xmax%+2:h1%=ymax%+2 CBE6A] 
60180 DIM s%(4999) ,r%(4) [3F52] 
“B19® r%(1)=1:r%(2)=-1%:r%(3)=-1:r%(4)=1 
% [5A14] 
460200 RESTORE 698248 [91B4] 
60821@ DIM 0%(24,4) 'Verschiedene Reihenfo 
lgen der Richtungen 1 bis 4 [1C8A]I 
68228 FOR i%=1 TO 24:FOR 5j%=1 TO 4:READ 
O%A(i1%y, 3%) :NEXT:NEXT [60A2] 
DIM s1% (7) ,„s2%A (7) ,‚s3%A (7) „s4%4(7) ,sS 
717) 'Drucker-Graphikcharaktere [38D8] 
FOR i%=B TO 7:READ s1% (1%) ,„s2% (i%) 
„53% (1%) „s4%Ali%) „s5%A (i%) NEXT tECS2}Y 
C84FA] 
»4,3,1,3,4,2,1,3,2 
2 [SA1@] 
1,4,2,4,1,3,2,4,3 
3 [9E12] 
2,1,3,1,2,4,3, 1,4 
4 [AA14] 
3,2,4,2,3,1,4,2,1 
1 [B616] 
’ 


u He 


’ 
’ 
. 
. 
’ 
’ 
’ 
’ 

3 


13,13 ,1563,1.:151 
LA24E] 
8,12,12,0,63,8,0,8 


m me Nem$BUUN 


Ge 


[7430] 
[5084] 
"Labyrinth erstellen C[SDBC]I 
FOR i%=® TO 1%-1:POKE f%+i%,3:POKE 
#%+(h%-1)#1%+i%,3:NEXT '’Feld loesc 
hen [C82EE] 
FOR i%=1 TO h%-2 [8BAEB] 
POKE f%+i%*1%,3:POKE #%+i1%4*1%+1%-1 
3 L1C9A] 
FOR j%=f%+i%#1%+1 TO f%+i%#1l%+xmax 
%:FOKE j%,@0:NEXT = [20561 
NEXT CA7CO]I 
p%=+%+INT (RND# (ymax%-4) +2) #1%+INT ( 
RND*# (xmax%-4) +2) COF12] 
FOKE p%,&%F8:FPOKE p%-1,3:POKE p%+1, 
S:POKE p%-1%,3:POKE p%+1%,3 CTABEC]I 
s%A1)=p%A-1-#%:s% (2)=pA+1-FA:s%(3)= 
P%A+1%-#%25%(4)=p%-1%-f%:t7=4 [CAAE] 
WHILE t7<>® CB3F®] 
pA=s%A (t%) +f%:2t%=t%-1:POKE p%,&F8 C1F38] 
ZY= de L3EOC] 
FOR i%=1 TO 4 L1E72] 
d%=r,.(0%(2%.,1%))+p%: IF PEEK (d%) =@ 
THEN t%=t%+1:s%(t%)=d%-f%:POKE d%, 
3 CDABOCI 
NEXT [9ECDO]I 
z%=INT (RND*24) +1 CAE14] 
i%=B:WHILE i%<>4:i1%=i%+1:0N 0% (z%, 
i%) GOSUB 640538,60548 , 40550, 608548: 
WEND [78F6] 
WEND [7892] 
RETURN ECSFF8] 
"Neues Feld mit altem verbinden CEDB2] 
IF PEEK (p%-1 )<8 THEN RETURN ELSE 
POKE p%-1 ‚PEEK(p%-1 )OR 2:i%=4:RE 
TURN C[31BE] 
IF PEEK(p%+1%)<8 THEN RETURN ELSE 
FOKE p% ‚„PEEK (p% )OR 4:i%=4:RE 


TURN [F2C8] 
68558 IF FEEK(p%+1 )<8 THEN RETURN ELSE 
‚PEEK (p% )OR 2:i%=4:RE 
[F146] 
68568 IF PEEK(p%-1%)<8 THEN RETURN ELSE 
FOKE p%-1%,PEEK (p%-1%)OR 4:17%=4:RE 
TURN L1E48] 
68570 [5392] 
60588 ‘Weg durch das Labyrinth finden [C3B8] 
68598 start%=ymax%*#1l%+1z2endef%=1%+xmax% 'S 
tart+Endfeld links-unten/rechts ob 
en [5458] 
6000 p%=start%+f%:POKE p%,PEEK(p%)OR 1: 
r7=1 [8CFA] 
626518 WHILE p%“ >ende%+f% [C278] 
6065280 pl%=pX% [61E2] 
60638 ON r% GOSUB 40670,69680 , 406490 ,60870 
[") U3F80] 
60648 IF PEEK(p%)AND 1 THEN POKE pl%,PEE 
K(pl%)AND 254 ELSE FOKE p%,PEEK (p% 
JOR 1 [C3C8] 
68458 WEND L4B9IE] 
686648 RETURN [F794] 
686478 IF PEEK(p% )AND 2 THEN p%=p%+1 : 
r4=4: RETURN [5628] 
68688 IF FEEK(p%-1%)AND 4 THEN p%=p%-1%: 
r%=1:RETURN [6AsB] 
60698 IF FEEK(p%-1 )AND 2 THEN p%=p%-1 : 
r%=2: RETURN [C4F6B] 
60708 IF PEEK(p% )AND 4 THEN p%=p%+1%: 
r7=3: RETURN [9996] 
68718 GOTO 50678 [FCF4] 
60720 °‘ [F88C] 
608738 "Labyrinth auf Bildschirm ausgeben 
C42B6] 
60740 MODE 1 [242E) 
60758 FRINT CHR$ (254); :FOR i%=1 TO xmax% 
:PRINT CHR#$ (258) 5; : NEXT EFCFC]I 
608768 IF FOS(#@)<>1 THEN PRINT [D11E] 
60778 FOR i%=1 TO ymax% [72DC] 
68788 PRINT CHR#$ (252); [28F®] 
60798 FOR j%=f%+i%#1%+1 TO f%+i%#rl%txmax 
%»2PRINT CHR$(PEEK (j%)) 5; : NEXT [B46C] 
sa8RR IF POS(#B@)<>1 THEN PRINT E[FC14] 
6B81® NEXT L9EBCI 
60820 RETURN LESOB] 
68830 L1F9@] 
68848 'Druckerausgabe ohne Weg CCCFC]I 
60850 wi=254:G60T0 408978 [5662] 
60840 ° [2296] 
68878 'Druckerausgabe mit Weg [B342] 
6088808 w4=255 [5336] 
68898 "Grundprozedur Druckerausgabe [35A22] 
68988 10%=(xmax%#*5+3)AND 255:hi%=INT ((xm 
ax%*5+3)/256):re%=®'’Breite des Bil 
des [37&C] 
689180 IF 10%>127 THEN hi%=hi%+1:rei=256- 
10o%:10%=®'Korrektur f}r fehlendes 
8.Bit LEAAE] 
609298 :!ESC,27,65,6,27,50,27,56 ' Graphik v 
orbereiten [3814] 
60938 :ESC,13,18,27,75,10%,hi%,8,8,1:FOR 
i4=1 TO xmax%: 1ESC,1,1,1,1,1:NEXT 
CAD8] 
6097948 FOR j%=1 TO re%: !ESC,@:NEXT Oberer 
Rand L452E] 
608958 FOR i%=1 TO ymax%: !ESC,13,18,27,75 
‚10%,hi%,8, 8,63 Neue Zeile vorbere 
iten [39ECI 
68948 FOR j%=f%A+i%rl%+1 TO F%+i%ArlY%txmax 
% Zeile ausgeben [879A] 
68978 z%=PEEK (j%)-248 AND w% CFF@O2] 
68988 :ESC,s1%(z%) „s2%(z%) ,sI3%A (z%) ,„sA%lz 
%),S5AlZ%) [5202] 
609980 NEXT CBSCE] 
s1B0B FOR j%=1 TO re%: !ESC,„B:NEXT 'Korrek 


tur f}3r Fehlendes 8. Bit [4570] 
61818 NEXT LCCAE]I 
61828 ;ESC,13,1@,27,65,12,27,50,27,57'Vo 

rhergehenden Modus wiedereinstelle 

n [8OSE2] 
61838 RETURN CDEF4] 





Listing 1. Der »Grundstock« für Programme besteht aus mehreren Unterroutinen, die per »GOSUB < Zeile > « aufzurufen sind. 


Eine dritte Möglichkeit besteht darin, die Rand-Tabelle in 
einer »Puffer«-Struktur aufzubauen: Die Elemente, die zuerst 
eingefügt wurden, werden auch als erste wieder entnom- 
men. Das bedeutet, daß neue Elemente am Ende angefügt 
und am Anfang entnommen werden. Auch wenn nur wenige 
Werte gleichzeitig zu merken sind, wandert diese Tabelle zu 
immer höheren Adreßwerten. Deshalb ist es günstig, die 
Tabelle als Ringpuffer aufzubauen: Wenn das Tabellenende 
überschritten werden sollte, beginnt man wieder von neuem 
beim Element Nummer O. Für diese Tabellenstruktur ist im 


Programm etwas mehr zu ändern: 
60420 tu%=0:WHILE t% < >tu% 
60430 tu% =(tu% + 1)AND (tu% <4999):p% =s%(tu%)+ 
f%:POKE p%,&F8 
60460 ... THEN t% =(t% + 1)AND(t% <4999):5% (t%) = 
d%-f%:poke d%,3 

Sie sollten einige Experimente mit den verschiedenen Pro- 
grammversionen durchführen und schauen, wie sich das auf 
die Form der Labyrinthe auswirkt. 

Das Labyrinth wird in den Zeilen 60420 bis 60560 
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EZ 2 2 20202 222 2 22 2 2 2 2 2 2 2 2 2 2 272 27 2 2 2 2 2 2 2 2.2 
"* Befehlserweiterung E&C °'* 
* f}r CPC464/664/6128 * 
'* Vers. 2, (24.06.85, 92.22.86) 

"* (c) 1985 by Isar-Amper-Soft * 
EEE EEE 
’Erlaubt es, (Steuer-)yeichen ohne 


[CED8] 
[7@C0] 
[648C] 
[9D76] 
[5828] 
[FSE2] 
[582C] 
[AF1AI 
[8@F2] 
[8E34] 
[E4B2] 
[@5B4] 
[CABBD] 
CBCBE] 
[97Bö] 
[&D&E] 
[5C88]1 
[F67A] 
[7@F2] 
CAA4D2] 
[B446] 
[2646] 
[7588] 
[982E] 
[77EC]I 
LOSBE] 
[5428] 
[8184] 
[BACA] 
[148C] 
C12DE] 
[4324] 
[98A8] 
CCFE4] 
LE4BE] 
[BO20] 
tE2C2] 
[4AD4] 
[8B20] 
[DA7E] 
£[1D84] 
[OCBE] 
[S511A] 
CDBDE] 
[3276] 
[5262] 
[2DAB] 
[267C] 
[7682] 
CDB3A] 
[S86E] 


"Zihlung durch die Width-Routine 
"des Basic-Systems an den Drucker 
"auszugeben 


"Frogramm einladen 

(mit Verschiebelader) 
SYMBOL AFTER 256 
READ n,m:st=HIMEM-n+1:MEMORY st-1 
FOR i=® TO n-1 
READ d$:d=VAL("&"+d$):POKE st+i,d 
NEXT 
FOR ı=1 TO m 
READ d$:d=VAL("&"+d$) 
z=st+PEEK (st+d) +256*PEEK (st+d+1) 
FOKE st+d+1,INT(z/256) 
POKE st+d,z-256#INT (z/256) 
NEXT 


"Initialisierung 
CALL HIMEM+1 


"beliebige eigene Erginzungen 
ee ee 2 en I nn zn 
OPENOUT"##":MEMORY HIMEM-1:CLOSEOUT 
SYMBOL AFTER 248 
OR 


END 


"L{inge und 

"Anzahl der anzupassenden Adressen 
DATA 51,6 

"Programm (ab Adresse %&BQ2B) 

DATA 01,09,808,21,12,80,C3,D1 

DATA BC,BE,88,C3,16,808,45,53 

DATA C3,900,00,00,00,00,A7,C8 

DATA 47,DD,ES,E1,87,5F,16,80 

DATA 19,2B,2B,7E,CD,2A,80,1@0 

DATA F8,C9,CD,30,88,38,FB,C9 

DATA CF,F2,87 

"Adressen der zu {ndernden Adressen 
DATA 02801 , 2004 ,008097,BROC 

DATA 8025 ,002E 





Listing 2. Damit Sie die Früchte Ihrer Arbeit auch in den 
Händen halten können, muß dieser Befehl aktiviert sein 





Bild 5. Ein 20 x 12-Beispiel-Labyrinth, erstellt mit dem 
Programm aus Listing 2 


erzeugt. Die Variable t% gibt an, wieviele Randfelder noch in 
der Tabelle enthalten sind. Die äußere WHILE-Schleife wird 
solange ausgeführt, bis keine Randfelder mehr vorhanden 
sind. 

In den Zeilen 60450 bis 60470 wird die Tabelle der Rand- 
felder aktualisiert. Die Reihenfolge, in der die vier Nachbarfel- 
der des neuen Feldes abgefragt werden, ist zufällig. Die vier 
möglichen Richtungen haben die Nummern 1 bis 4. In der 
Tabelle 0% stehen die 24 verschiedenen Reihenfolgen, in 
der man diese Zahlen aufschreiben kann. Der Zufallszahlen- 





"Labyrinth-Demonstration 

POKE 19573,5 "Labyrinth-Hoehe 
POKE 19574,18 'Labyrinth-Breite 
"Maximale Groe”e: 

"95 Felder breit und 134 hoch 
"Bildschirmausgabe bis 24*39; 
"dann nur noch Drucker erlaubt 


[BAF2] 
LACAA] 
EFBEA] 
[D766] 
[C666] 
[3B96] 
[3236] 
[84FE] 
[2126] 
L1E3®] 
[658A] 
[2ES3S8] 
[A436] 
[3978] 
[127A] 


CLEAR 

GOSUB #048 
GOSUB 48338 
GOSUB 68588 'Weg suchen 

60SUB 58738 ‘Labyrinth anzeigen 
60T0 189898 "Wiederholung 


“Programm aktivieren 
"Labyrinth erstellen 


Listing 3. So läßt sich der »Labyrinth-Generator« einsetzen 


[2456] 
L97CC] 
CCFCO] 
L89FE] 
CD198] 
LCEF3CI 
COF28] 
[9954] 
CB1DA] 
LABAQ]I 
C35B82] 
[1672] 
[C2B10] 
FOR i%=1 TO xmax% 

:NEXT: IF POS(#B)< 

L932A]I 
[8SBE] 


"Labvrinth-Demonstration2 

POKE 19573,24 ' Labyrinth-Hoehe 
POKE 19574,39'Labyrinth-Breite 
CLEAR 

GOSUB 498840 'Frogramm-Reset 

GOSUB 28880 Leere Felder anzeigen 
GOSUB 48338 ’labyrinth erstellen 
GOSUB #98588 Weg suchen 

WHILE INKEY$="":WEND' Tastendruck 
GOTO 18848 Nochmal 


MODE 1 

PRINT CHR$(254);: 
:PRINT CHR$ (258); 
>1 THEN PRINT 

FOR j%=1 TO vmax’% 
PRINT CHR$(252)::FOR i%=1 TO xmax% 
:PRINT CHR$ (248); :NEXT: IF FOS(#@)< 
>1 THEN PRINT 

NEXT 

RETURN 


[6638] 
L9EAA]I 
LEZEE] 
L1A7TE) 
C1B8®] 
"Neues Feld mit altem verbinden un 
d gleichzeitige Wegausgabe 
IF FEEK(p%-1 )<8 THEN RETURN ELSE 
POKE p%-1 ‚PEEK(p%-1 )OR 2:i%=4:L0 
CATE p%-#%-1%*INT((p%-f%)/1%) „IN 
Tt(p%-f%)/1%)+1:PRINT CHR$ (PEEK (p% 
-1 )); RETURN 
IF PEEK (p%+1%)<8 THEN RETURN ELSE 
POKE p% ‚„FEEK (p% )OR 4:1i%=4:L0 
CATE p%-#%-1%#INT ((p%-f%) /1%)+1,IN 
T((p%-#%) /1%)+1:FRINT CHR$ (PEEK (p% 
))z; RETURN 
IF PEEK(p%+1 )<B THEN RETURN ELSE 
POKE p% ‚PEEK (p% )OR 2:1%=4:L0 
CATE p%-#%-1%# INT ((p%-#%)/1%)+1,IN 
Tt(p%-#%)/1%)+1:2PRINT CHR$(PEEK (p% 
)); :RETURN 
IF PEEK (p%-1%)<8 THEN RETURN ELSE 
POKE p%-1%,PEEK (p%-1%)OR 4:i1%=4:L0 
CATE p%-#%-1%#INT ((p%-f%) /1%)+1,IN 
T((p%-f%)/1%)  :PRINT CHR$ (PEEK (p% 
-1%)) 3 :RETURN [@B48] 
2 LC1F96] 
[C1F98] 
"Staendige Ausgabe waehrend des Su 
chens CABFB] 
IF PEEK(p%)AND 1 THEN FOKE pl%,FEE 
K(p1i%) AND 254:L0CATE p1%-f%-1%#INT 
((p1l%-f%)/1%)+1,INTC(p1%-#%)/1%) +1 
:PRINT CHR$(PEEK (pl1%)); ELSE POKE 
P%,FEEK(p%)OR 1:LOCATE p%-f%-1%rIN 
Tt(p%-#%) /1%) +1, INT((p%-#%) /1%) +1: 
PRINT CHR$(PEEK (p%)D; 


[C8B0)] 


[4ESE]I 


[3244] 


[43C2] 


L4AAB]I 





Listing 4. Schritt für Schritt den Gang der Dinge beobachten 


generator wählt die Reihenfolge mit der Nummer z%. Durch 
»0%(Z%, <Schritt>)« wird festgestellt, welche Richtung als 
nächste untersucht wird. 

Die Zeile 60490 verbindet das neue Element mit einem der 
alten. Dazu werden die Nachbarfelder solange abgesucht, 
bis ein schon besetztes Feld gefunden wird. Die Reihenfolge 
bestimmt wieder der Zufallszahlengenerator und das Varia- 
blenfeld 0%. Ob eine Verbindung in eine bestimmte Richtung 
möglich ist, wird in den Unterprogrammen in den Zeilen 
60530 bis 60560 festgestellt. Konnte eine Verbindung 














47 











BASIC 








Bild 6. Auch dieses 40 x 24-Labyrinth entstand mit Listing 2 


geschaffen werden, wird durch »i% =4« ein entsprechendes 
Flag gesetzt. 

In den Zeilen 60340 bis 60380 wird das gesamte Laby- 
rinth gelöscht. Der Rand besteht aus Bytes, die den Wert 3 
haben. Dadurch sind die Felder außerhalb der Grenzen des 
Labyrinths für die Aufnahme in die Randfelder-Tabelle 
gesperrt und das Labyrinth kann nicht ins Uferlose wachsen. 
Gleichzeitig wird eine Verbindung eines Elementes mit dem 
Rand vermieden. In den Zeilen 60390 bis 60410 wird das 
allererste Feld des Labyrinths belegt und dessen vier Nach- 
barfelder in die Randfelder-Tabelle eingetragen. 


_ Vom Unterprogramm hängt 


die Labyrinthgröße ab 


Das gesamte Labyrinthprogramm ab der Zeile 60000 ist in 
mehrere Unterprogramme aufgeteilt, die von einem Anwen- 
derprogramm aus aufgerufen werden können. 

Das Unterprogramm »Programm-Reset« reserviert Spei- 
cherplatz für das Labyrinth, definiert alle Variablen und Son- 
derzeichen neu und legt die Labyrinthgröße fest: Aus der 
Speicheradresse 19573 wird der Wert für die Höhe des 
Labyrinths genommen und aus der Adresse 19574 der Wert 
für die Breite des Labyrinths. Dorthin werden sie vom Haupt- 
programm durch »POKE« gebracht. Es muß jedesmal aufge- 
rufen werden, wenn die Größe des Labyrinths zu verändern 
ist. Die maximale Größe beträgt 95 Spalten und 134 Zeilen. 
Diese Werte kommen nicht von ungefähr: Wenn das Laby- 
rinth auf den Drucker ausgegeben wird, nimmt ein 95 x 
134-Labyrinth exakt den Platz einer randlosen DIN-A4-Seite 
ein. 

Sie werden sicher schon bemerkt haben, daß die Daten für 
das Labyrinth nicht in einem Integer-Variablenfeld abgelegt 
werden, sondern mit Hilfe von »POKE« direkt im Speicher. 
Dadurch wird der Speicher besser ausgenutzt, so daß es erst 
möglich wird, so große Labyrinthe zu berechnen: Ein Feld 
eines Labyrinths belegt nur vier Bit, eine Integerzahl eines 
Variablenfeldes aber volle 16 Bit. Bei großen Labyrinthen mit 
10000 Feldern werden aus diesen 12 Bits Ersparnis schnell 
viele KByte. Bei der direkten Ablage im Speicher werden pro 
Feld nur noch acht Bit (inklusive Zeiger für Verbindungen) 
belegt, also eine große Einsparung. Ein weiterer Vorteil ist, 
daß ein fertiges Labyrinth durch »SAVE” <Name>.BIN”, 


b,19573, <Länge>« gespeichert werden kann. Bei großen 
Labyrinthen, bei denen die Rechenzeit leicht zu einer Kaffee- 
pause ausreicht, lohnt sich das schon. 

Durch »GOSUB 60580« wird ein Weg von einem vorzu- 
gebenden Startpunkt zu einem Zielpunkt gesucht. Das 
Unterprogramm ab der Zeile 60730 zeigt das Labyrinth auf 
dem Bildschirm an - auch mit Weg. Diese Routine arbeitet 
jedoch nur mit Labyrinthen sinnvoll, die maximal 39 x 24 Fel- 
der groß sind - das entspricht genau einer Bildschirmseite im 
Modus 1. 

Zwei weitere Routinen erlauben, das berechnete Labyrinth 
auf den Drucker auszulisten. Dabei kann zwischen der Aus- 
gabe mit oder ohne Lösung gewählt werden. 

Den Weg durch ein Labyrinth dieser Sorte - ohne Schleifen 
- können Sie finden, indem Sie mit der rechten Hand immer 
an der Wand entlangstreichen und niemals loslassen. Das 
heißt, Sie folgen immer den rechten Abzweigungen eines 
Weges. Wenn Sie in eine Sackgasse kommen, gehen Sie an 
der linken Seite wieder zurück. So kommen Sie zwangsläufig 
irgendwann zum Ausgang. 


Aus jedem Labyrinth der 
schnellste Weg ins Freie 


Genauso geht auch das Programm vor: Die aktuelle Rich- 
tung steht in der Variable »r%«. In Zeile 60630 wird das 
Unterprogramm aufgerufen, das in der am weitesten rechts 
liegenden Richtung nach einem Weg sucht. Wenn das auf 
Anhieb nicht glückt, wird die linke Richtung abgefragt und so 
weiter bis zum Erfolg. Auf seiner Suche hinterläßt das Pro; 
gramm im Bit O jedes Raumes eine Markierung. Wenn dieser 
dann (beim Rückweg) zum zweitenmal betreten wird, kenn- 
zeichnet dessen Byte eine Sackgasse. In diesem Fall wird die 
Markierung wieder gelöscht. Übrig bleibt zum Schluß der 
Lösungsweg durch das Labyrinth. 

In den Variablen start% und ende% muß die Adresse des 
Start- und Endfeldes relativ zum Labyrinth-Anfang angege- 
ben werden. Zu beachten ist, daß diese Adressen innerhalb 
des Labyrinths liegen müssen: Sonst sucht das Programmbis 
in alle Ewigkeit danach. 

Die Drucker-Routine arbeitet nur, wenn die Befehlserweite- 
rung »ESC« aktiviert ist. Den Programmtext finden Sie in 
Listing 2. Wenn Sie als fertige Labyrinthe drucken lassen wol- 
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len, müsen Sie vor Laden der Labyrinth-Routinen zunächst 
»ESC« laufen lassen. Andernfalls können Sie darauf natürlich 
verzichten. 

Ein korrekter Druck entsteht nur auf Druckern, bei denen 
die Grafikausgabe auf folgendem Prinzip beruht: Zuerst über- 
mittelt der Computer eine Steuerzeichenfolge, die dem 
Drucker mitteilt, daß die darauf folgenden Bytes nicht als nor- 
male Zeichen, sondern als Bitmuster zu interpretieren sind. 
Nach Empfang der festgelegten Zahl von Grafikzeichen 
schaltet sich der Drucker selbsttätig in den Textmodus 
zurück. Keinesfalls darf der Grafikmodus mit Hilfe des achten 
Datenbits (Steuer-Codes größer als 127) einzustellen sein. 
Diese Bedingungen sind beispielsweise bei Epson- 
kompatiblen Druckern immer erfüllt. 

Das Programm ist an einen Schneider NLQ 401 angepaßt. 
Für Epson-Drucker und manche dazu kompatible müssen Sie 
die Bytes <27,50> aus der Zeile 60920 ersatzlos entfer- 
nen, da sonst der Zeilenvorschub nicht richtig funktioniert. 

Aus einem Bildschirm-Byte werden beim Druck fünf Grafik- 
zeichen aus einer Tabelle. Die Zeilenlänge wird in ein nieder- 
und ein höherwertiges Byte geteilt, bevor der Computer sie 
übermittelt. Bei größeren Breiten kann es aber vorkommen, 
daß das niederwertige Byte einen Wert größer 128 erhält. In 
diesen Fällen rundet das Programm die Zeilenlänge auf einen 
durch 256 teilbaren Wert auf und füllt die überzähligen Bytes 
mit Nullen. Der beschriebene Effekt tritt zum Beispiel immer 
bei einer Breite von über 384 Spalten auf. Die meisten 
Drucker tolerieren den Versuch, 512 Spalten drucken zu wol- 
len, obwohl sie eigentlich nur derer 480 darstellen können. 

Zeile 60920 stellt die Zeilenhöhe auf sechs Pixel ein und 
schaltet die Papiermangel-Anzeige ab, damit Sie auch DIN- 
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A4-Einzelblätter benutzen können. Zeile 61020 stellt den 
Drucker wieder auf sein Standardwerte zurück. Die Bytes 
<27,75,10%,hi% > in den Zeilen 60930 und 60950 schal- 
ten in den Grafikmodus. 

Die Listings 3 und 4 zeigen Anwendungen der Labyrinth- 
Routinen, Bild 5 und 6 fertige Labyrinthe. Sie müssen jeweils 
vor dem Test mit Hilfe des Basic-Befehls »MERGE« zum 
Hauptprogramm dazugeladen werden. Beim zweiten Demo- 
Programm darf die Reihenfolge auf keinen Fall umgedreht 
werden!!! 

Demonstration 1 zeigt eine einfache Anwendung: Der Bild- 
schirm bleibt zunächst dunkel, bis das fertige Labyrinth auf 
einen Schlag gezeigt wird. 

Die Demonstration 2 ist etwas ganz besonderes: Jetzt wer- 
den die Labyrinth-Routinen nicht nur aufgerufen, sondern es 
werden ab Zeile 60000 einige Zeilen verändert. Das hat zur 
Folge, daß Sie jetzt dem Labyrinth-Programm direkt bei der 
Arbeit zuschauen können: Alle Felder-Besetzungen werden 
sofort angezeigt, so daß sichtbar wird, wie sich die Wege erst 
nach und nach durch ein anfangs unberührtes Gitternetz 
bahnen. 

Während sich bei der »Stapel«-Methode erst ein einzelner 
Weg durch den Bildschirm schlängelt, und erst nach und 
nach Seitenäste wachsen, bildet bei der »Zufalls«-Methode 
der schon berechnete Teil des Labyrinths einen kompakten 
Block mit hervorzüngelnden Ausläufern, der sich ausbreitet 
wie ein Flächenbrand. 

Mit der »Puffer«-Methode entsteht das Labyrinth trotz Zufall 
äußerst regelmäßig (in der Praxis weniger geeignet). 


(Helmut Tischer/ja) 





Für welchen 
von den CPCs? 


Es ist schon ein Problem, Programme 
so zu schreiben, daß sie auf allen 
Schneider-Computern vom 464 bis 
zum 6128 laufen. Aber auch diese 
Klippe läßt sich elegant umschiffen. 








a es Fälle gibt, in denen sich Inkompatibilität nicht 
vermeiden läßt, sollte man Lösungen finden, die auf 
je einem der drei Computer funktionieren. 

Dazu muß man vom Programm aus feststellen können, auf 
welchem Computer das Programm gerade abgearbeitet wird. 
Die Programmierer bei Amstrad haben dafür sogar eine 
ROM-Routine vorgesehen: KL-PROBE-ROM an der Adresse 
B915 hex. Ohne ein kleines Maschinencode-Programm läßt 
sich diese Routine aber nicht erreichen. 

Wesentlich einfacher ist es, den Speicheranfang auszule- 
sen. Einen auf allen drei Computern verschiedenen Wert lie- 
fert die Adresse 6. Das folgende kurze Basic-Programm 
zeigt, wie sich der Computertyp anhand dieser Adresse fest- 
stellen läßt: 

»IF PEEK(6)=128 THEN PRINT ”Ein CPC-464!”« 

»IF PEEK(6)=&7B THEN PRINT ”Ein CPC-664!”« 

»IF PEEK(6)=&91 THEN PRINT ”Ein CPC-6128!”« 
(Martin Kotulla/ja) 








Wie bei praktisch jeder komplexen 
Software-Entwicklung haben sich 
auch ins Locomotive-Basic kleine 
Fehler eingeschlichen. Sie lassen 
sich jedoch umgehen. 


öllig unsinnig erscheint der folgende Befehl: 
»INPUT #8, "Eingabe: ”,a$« 


Er bedeutet, daß der Computer über die Centronics- 
Schnittstelle Daten einlesen soll, obwohl dies hardwaremäßig 
keinesfalls möglich ist! Wenn Sie den Befehl einmal auspro- 
bieren, werden Sie aber merken, daß ihn der Computer ohne 
Fehlermeldung »schluckt«. Er bewirkt, daß der angegebene 
Text (hier »Eingabe:«) an den Drucker geschickt und die Ein- 
gabe von a$ über die Tastatur erwartet wird. 

Einen wirklichen Programmierfehler haben sich aber die 
Entwickler bei den Windows des CPC 464 geleistet: 
10 MODE 1:WINDOW # 5,10,20,10,35 
20 LINE INPUT #5,” Eingabe. ”,a$ 

"Eingabe : ” erscheint im Standard-Fenster O! Während 
die Eingabe im Window 5 erfolgt. Abhilfe: 
10 MODE 1:WINDOW #5,10,20,10,35 
20 PRINT #5, ”Eingabe: ”;:LINE INPUT #5,3$ 

. (Martin Kotulla/ja) 








MAAPPYM 
COMPUTER 
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Die Schneider-Computer besitzen 
einen etwas gewöhnungsbedürftigen, 
aber ausgezeichneten Basic-Editor. 
Doch nichts ist so gut, als daß 

man es nicht noch verbessern könnte. 


eim CPC 464 und CPC 664 ist zwar der Cursorblock 

gut vom Haupt-Tastenfeld abgesetzt, liegt aber sehr 

weit oben. Da wo die Cursortasten eigentlich besser 
aufgehoben wären, befindet sich der Zehnerblock. Das führt 
dazu, daß Sie bei Steuerung des Copy-Cursors entweder 
beide Hände zu Hilfe nehmen müssen oder sich fast die Fin- 
gergelenke verrenken. Besitzer eines CPC 6128 sind zumin- 
dest in dieser Beziehung im Vorteil, wenn auch die dortige 
Tastenanordnung ansonsten einigen Anlaß zur Kritik gibt. Die 
Idee: Weil der Zehnerblock sowieso kaum benötigt wird, kann 
man ihn als Cursorfeld gebrauchen. Das Schneider-Basic 
bietet zur Herstellung der neuen Funktion die Befehle KEY 
und KEY DEF. 

Das Listing enthält ein Programm, um den Zehnerblock fol- 

gendermaßen zu belegen: 
- Auf den Tasten F2, F4, F6 und F8 liegen die normalen 
Cursor-Richtungen wie auch im Cursorblock. Mit Shift und 
diesen Zifferntasten spricht man den Copy-Cursor an. 
»Control-F4« bewegt den Cursor an den Anfang der Bild- 
schirmzeile, »Control-F6« an deren Ende. »Control-F8« setzt 
den Cursor an den Beginn der Eingabezeile, »Control-F2« an 
deren Ende. Natürlich können auch die normalen Cursorta- 
sten weiterhin verwendet werden. 

Die Copy-Taste wird erweitert: Mit »Shift-Copy« übernimmt 
der Copy-Cursor die nächsten fünf, mit »Control-Copy« die 
nächsten zehn Zeichen. Gleichwertig mit Copy ist auch die 
Taste F5. 

- Die Tasten F1, F3, F7 und F9 bieten eine völlig neue Funk- 
tion, nämlich die diagonale Bewegung des Cursors. Die Bele- 
gung der Tasten entspricht dabei der logischen Bewegungs- 
richtung, also bewegt F1 den Cursor nach links unten, F3 
nach rechts unten und so weiter. 

- Die Taste FO simuliert eine Tabulator-Funktion: »FO« setzt 
den normalen Cursor fünf Zeichen nach rechts, »Shift-FO« 
und »Control-FO« fünf Zeichen nach links. 

- Die Punkt-Taste im Zehnerblock ist ein Tabulator für den 
Copy-Cursor: Sie bewegt ihn um fünf Zeichen nach rechts, 
während »Shift-Punkt« und »Control-Punkt« dasselbe nach 
links bewirken. 












Ann EI 
INS: = 





Neue Editorfunktionen 


- Die Funktion der CLR-Taste wird erweitert: Neben der nor- 
malen Funktion, ein Zeichen zu löschen, gibt es jetzt »Shift- 
CLR« zum Löschen von fünf und »Control-CLR« zum Löschen 
von zehn Zeichen. 

- Die DEL-Taste wird ebenfalls verbessert: Während »DEL« 
weiterhin ein Zeichen löscht, entfernt »Shift-DEL« wieder fünf 
und »Control-DEL« zehn Zeichen vom Bildschirm. 

Mit diesen Änderungen ist der Editor wesentlich schneller 
zu bedienen, zumal alle Tasten mit einer automatischen Wie- 
derholungsfunktion ausgestattet sind. 

(Martin Kotulla/ja) 


OT 
en * 
" * Zusaetzliche Editorfunktionen * 
. * * 
OHNE 


[5804] 
LESSA] 
[85A2] 
LEISE)I 
[D4CC) 
[EiBA] 
L1AFCI 
L1AACI 
L9SC2] 
[BESE] 
[439A] 
[67A8] 
LIEAB] 
[6D68] 
[SE16] 
[6E14] 
[3FiE) 
[9976] 
[8328] 
[6E24] 
[D816] 
[8654] 
[F878] 
[99E4] 
[ES394] 
[SEF®] 
[5858] 
[7898] 
LABAE] 
T4CBB] 
[975A] 
L1SAE] 
[E1BB] 
[5768] 
[4068] 
[7C74] 
[4BDB] 
[CC58] 
LEEBA] 
T48B8] 
[1002] 
[7428] 
[8728] 


CALL %EBEBB 

“ 00- Normale Cursortasten: 

KEY DEF 28,1,%F2,&F6,%FA 

KEY DEF 4,1,&F3,&F7,&FB 

KEY DEF 11,1,%FB,%F4,&F8 

KEY DEF 14,1,&F1,&F5,%F9 

" --- Diagonale Cursortasten 

KEY DEF 15,1,141,141,141 

KEY 141 ,CHR$ (&F1) +CHR# (&F2) 

KEY DEF 3,1,1832,342,142 

KEY 142,CHR$ (%F1) +CHR$ (&LF3) 

KEY DEF 18,1,143,143,143 

KEY 143,CHR$ (&FB) +CHR$ (%F2) 

KEY DEF 5,1,144,144,144 

KEY 144 ,CHR$ (& FB) +CHR$ (&F3) 

 --- 5 = Copy-Cursor 

KEY DEF 12,1,145,158,151 

KEY 145,CHR$ (EB) 

KEY 1580,5STRING$ (5,%EB) 

KEY 151,STRING$ (18,%EB) 

" -- B = Tab, .=Copy-Cursor-Tab 

KEY DEF 15,1,146,147,147 

KEY 146,5TRING$ (5,%F3) 

KEY 147 ,STRING$(5,%F2) 

KEY DEF 7,1,148,149,149 

KEY 148,STRING$(5,%F7) 

KEY 149 ,5TRING$(5,%F6) 

“ ——-- CLR-Taste 

KEY DEF 16,1,%18,152,153 

KEY 152,STRING$ (5,%1B) 

KEY 153,STRING$ (18,%1B) 

7 „===: DEL-Taste 

KEY DEF 79,1487F,154,155 

KEY 154,STRING$ (5,&7F) 

KEY 155,STRING$ (1B,&7F) 

" --- Original-COFY = Taste 5 
528 KEY DEF 9,1,145,158,151 


Tastatur zuruecksetzen 
2-4-6-8 


Listing. Eine neue komfortablere Cursor-Steuerung 
erleichert die Eingabe 


Mist, schon wieder eine 
Computer-Caselte erwisch£! 
—n ——,, 
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BASIC 





Wirklich Zufall? 


Basic-Programmierer, 

die Zufallszahlen benötigen, können 
den DANOMIIZE-Befehl und 

die RND-Funktion verwenden. 

Doch was machen 
Maschinensprache-Programmierer? 


ie gesagt, ist es im Maschinen-Programm nicht 

so ganz einfach, Zufallszahlen zu erhalten. Fol- 

gende Möglichkeiten stellen sich dar. 
- Das Maschinenprogramm ruft die ROM-Routinen des 
Betriebssystems auf, in denen Zufallszahlen erzeugt werden. 
Leider entfällt dabei aber jegliche Portabilität des Programms 
auf andere Z80-Computer, janicht einmal auf andere Modelle 
der Schneider-CPC-Reihe! 
- Das Maschinenprogramm liest den internen Timer aus 
(Basic-Befehl »PRINT TIME«). Nachteil: Bei Verwendung der 
vorgesehenen ROM-Routine KL-TIME-PLEASE auf Adresse 
BDOD hex werden DE- und HL-Register zerstört. Diese auf 
dem Stack zu sichern, kostet viel Rechenzeit. Man kann die 
Speicherstellen des Timers auch direkt auslesen, verliert 
dann aber wieder die Übertragbarkeit auf andere Schneider- 
Computer. 
- Man bedient sich des Refresh-Registers (R-Register) des 
Z80-Prozessors. Erfreulicherweise hat diese Methode kei- 
nen Haken. 

Das R-Register enthält acht Bit, von denen sieben nach 
jedem Befehlsholzyklus der CPU inkrementiert werden. Das 
achte Bit bleibt unverändert, also auf O oder 1. Da der Zeit- 
punkt des Zugriffs wirklich zufällig ist, läßt sich das Register 
als Zufallszahlen-Generator verwenden. 








In Basic-Programmen ist es häufig 
wünschenswert, die ESCAPE-Taste 
außer Gefecht zu setzen. 

Mehrere unterschiedliche Wege 
führen zu diesem Ziel. 





eder Basic-Programmierer kennt wohl den ON- 
BREAK-GOSUB-Befehl. Mit ihm läßt sich ein Programm- 
abbruch verhindern: 
10 ON BREAK GOSUB 2000 
20 PRINT ”ESC ist blockiert! ”:GOTO 20 
2000 RETURN 
Wenn - wie hier in Zeile 2000 - in der Unterbrechungsrou- 
tine nur ein RETURN-Befehl steht und keine anderen Aktio- 
nen durchgeführt werden sollen, läßt sich das erheblich ein- 
facher programmieren: 
10 KEY DEF 66,0,0,0,0 
20 PRINT ”Ese ist blockiert! ":GOTO 20 
Durch den KEY-DEF-Befehl wird auf die ESCAPE-Taste der 
ASCII-Code O gelegt, und zwar in allen drei Tastaturebenen 
(normal, mit Shift und mit Control). Diese Programmierung hat 
den Vorteil, daß auch bei INPUT und LINE INPUT das Drük- 
ken der ESCAPE-Taste nicht zum Programmabbruch führt. 








Das kurze Maschinenprogramm liest mit »LD A,R« das 
Refresh-Register aus und stellt durch »AND &7F« sicher, daß 
der Wert zwischen O und 127 liegt. Dann speichert es die 
Zahl in der Adresse 160 hex, von wo aus man sie mit dem 
Basic-Befehl »PRINT PEEK(&160)« auslesen kann. 

Zur Demonstration dient das Beispiel-Listing, das 10000 
Zufallszahlen erzeugt und dann ihre Verteilung ausgibt. Sie 
müssen etwa 75 Sekunden auf das Resultat warten. 

Der amerikanische ANSI-Standard für Zufallszahlengene- 
ratoren von 1968 schreibt vor, daß die Streuung der Zahlen 
nicht größer als 3 Prozent sein darf. Wenn Sie die Bildschirm- 
ausgabe betrachten, werden Sie erkennen, daß dieser 
Zufallsgenerator dem Standard nicht entspricht. Für normale 
Zwecke sind die Zahlen aber brauchbar. 

(Martin Kotulla/ja) 


MEERE HN RR [58C4] 
LES3SA] 
[6E18] 
LE1SE] 
EC[D4CC]I 
CEIBA] 
[9CC2] 


+ * 
" * RANDOM-Zahlen aus dem Refresh + 
u" * 
Ka ee ee ee ee ee ee ee 222 


MEMORY &IFFF 

FOR i=&ABBD TO &ABB7:READ a:POKE i,a 
:NEXT i 

DATA &ED,&SF ,&E6,&7F „&32,%60,%&B1 ,%C9 


LAC2A] 


[B7Fö] 
[BA4B] 
L9YFA2]I 
[C188] 
[6066] 
LECFA] 
[7128] 


DIM random (127) 

FOR i=1 TO 1BBBB:CALL «ABBD 

a=PEEK (%&16B) 

random (a)=random(a)+i 

NEXT i 

FOR i=B TO 127 

FRINT USING "Zahl ### war #### mal v 
orhanden";i,random(i) 

NEXT i 


[4B8C) 
[2780] 


Listing. Zufallszahlenerzeugung in Maschinensprache 


ESCAPE-Taste blockiert 


Beide Befehle haben aber auch den Nachteil, daß man 
durch einmaliges Drücken der ESCAPE-Taste das Programm 
zumindest anhalten, wenn auch nicht abbrechen kann. 
Besonders in Spielen ist es natürlich recht ärgerlich, wenn 
der Spieler in aller Ruhe die Situation analysieren kann! 
Abhilfe schafft eine ROM-Routine: 

10 CALL &BB48 
20 PRINT »Programm läßt sich nicht anhalten!«:GOTO 20 

Dieser Call-Aufruf erlaubt aber bei INPUT doch wieder den 
Programmabbruch. Ist das unerwünscht, kann man mit dem 
KEYDEF-Befehl kombinieren. 

10 CALL &BB48:KEY DEF 66,0,0,0,0 
20 INPUT a$ 

Oft ist es auch wichtig, die Tastenkombination CTRL- 
SHIFT-ESC, die einen Reset (Zurücksetzen des Computers) 
hervorruft, zu blockieren: 

10 POKE &BDEE,&C9 
20 PRINT ”Auch RESET ist blockiert! ":GOTO 20 

In der Adresse BDEE hex steht normalerweise ein Sprung- 
vektor auf die Betriebssystem-Routine KM-TEST-BREAK. Sie 
prüft, ob ein Abbruchereignis oder ein Reset ansteht. Durch 
den POKE-Befehl kann der Computer die Routine nicht mehr 
aufrufen, und die Tastenkombination hat keinerlei sichtbare 
Wirkung mehr. (Martin Kotulla/ja) 
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Mit den Bildschirm-Steuerzeichen 
der Schneider CPCs kann man 
erheblich mehr anfangen, als aus 
dem ansonsten recht brauchbaren 
Benutzer-Handbuch deutlich wird. 





Zwei Befehle, die eigentlich immer wieder benötigt werden 
- der Anwendungsfall Textverarbeitung oder Tabellenkalkula- 
tion - fehlen leider im Schneider-Basic: Das Einfügen und 
Löschen einer Bildschirmzeile. Mit den Steuerzeichen läßt 
sich das aber recht einfach erledigen. Das Listing zeigt, wie 
zwei solcher Steuerzeichen-Strings zusammengesetzt wer- 
den: 

Die Funktion »FN ins$(zeile)«fügtin derangegebenen Zeile 
eine Leerzeile auf dem Bildschirm ein und schiebt den Rest 
des Bildschirms nach unten. 

Die Funktion »FN del$(zeile)« löscht die angegebene Zeile 
vom Bildschirm und zieht den Rest des Bildschirms nach 
oben. 

Das läßt sich ganz einfach durch Verwendung von Window- 
Befehlen realisieren. Blättern Sie doch einmal im Benutzer- 
Handbuch Ihres Computers bis zum Kapitel mit den 
Bildschirm-Steuerzeichen und versuchen Sie, die Definitio- 
nen nachzuvollziehen! 

In diesem Kapitel findet sich aber auch ein ziemlich schwe- 
rer Fehler: Das Steuerzeichen 26, mit dem sich ein 





Bildschirm-Fenster setzen läßt, erwartet nicht etwaalle Anga- 
ben im Wertebereich 1 bis 80, sondern die Zeilenangabe von 
O bis 24 und die Spaltenangabe von O bis 79! 

Das ist wichtig zu beachten, da sonst Ihre Berechnungen 
niemals mit dem tatsächlichen Ergebnis auf dem Bildschirm 
übereinstimmen. (Martin Kotulla/ja) 


OHR RR 
er % * 
"* FNins$(row) % FNdel$(row) *# 
er: * 


[AD74) 
[345A] 
[öF&6A] 
L2ASE] 
L797C] 
[E1BA] 
[BIFB] 


HERR HH HH HH HH HH ER RR 


INPUT "Welcher MODE? ",„mo:MODE mo 
FOR i=i TO 24:PRINT "Wera" 
sis ı [FiF8] 
DEF FN ins#$ (x) =CHR#$ (26) +CHR$ (B) +CHR$ 
(79) +CHRE$ (x) +CHR$ (24) +CHR$ (11) +CHR$ ( 
11) +CHR&$ (26) +CHR$ (B) +CHR$ (79) +CHR$ (O 
) +CHR$ (24) 
DEF FN dei *$ (x) =CHR$ (26) +CHR$ (B) +CHR$ 
(79) +CHRS$ (x ) +CHR$ (24) +CHR$ (51) +CHRE$ ( 
255) +CHR$ (25) +CHR$ (18) +CHR$ (26) +CHR$ 
(2) +CHR#& (79) +CHR$ (B) +CHR$ (24) 
FOR i=i TO 18:FRINT FN ins#(1B);:NEX 
3 [E298] 
FOR i=1 TO 18:FRINT FN del#(1B);:NEX 
[2178] 
LED3E] 


[LAE92] 


[D666] 


Listing. Löschen und Einfügen von Textzeilen auf dem 
Bildschirm 


Es gibt eine ganze Reihe kleiner 
Tricks, die das Programmieren 

in Schneider-Basic erheblich ver- 
einfachen, obwohl sie nicht im 
Handbuch stehen. 





Die STRING$-Funktion: 

Neben der üblichen Form »STRING$ (45,”* ”)« gibt es 
noch eine andere Schreibweise mit dem gleichen Effekt 
»STRING$(45,42)«. Statt des Zeichens kann also auch des- 
sen ASCII-Code angegeben werden, was grundsätzlich ein 
Byte spart. Zeichen, die über die Tastatur nicht eingegeben 
werden können (zum Beispiel »STRING$(50,CHR$(255))«), 
sparen in der kürzeren Form »STRING$(50,255)« sogar drei 
Byte. 

Der NEXT-Befehl 

Eine Programmzeile mit zwei Next-Befehlen direkt hinerein- 
ander kann verkürzt werden: 

100 FOR i=1 TO 10:FOR j=1 TO 20:NEXT j:NEXTi 
Kürzer: 

100 FOR i=1 TO 10:FOR j=1 TO 20:NEXT j,i 

Noch kürzer, aber wesentlich unübersichtlicher geht es so: 
100 FOR i=1 TO 10:FOR j=1 TO 20:NEXT:NEXT 

Der RSX-Strich: 

Der ASCII-Code 124, der als erstes Zeichen von RSX- 
Befehlen verwendet wird, darf in REM-Zeilen nicht vorkom- 
men. Aufgrund eines Betriebssystemfehlers würde der Com- 
Puter zum Beispiel im folgenden Programm die Zeile 110 gar 





nicht beachten, sondern einfach wieder »READY« melden: 
100 ’ Lischbefehl 
110 PRINT ” Wird nicht beachtet! ”:GOTO 110 

Ärgerlich ist das, weil der Strich im deutschen Zeichensatz 
das kleine ”6” ist und deshalb durchaus auch in REM-Zeilen 
gebraucht werden könnte. So istin Zeile 100 der LIschbefehl 
im Deutschen ein ”Löschbefehl”. Abhilfe: Umschließen des 
Textes mit Anführungszeichen. 
100 ’ ”Lischbefehl” 
110 PRINT ”So klappt es! ”:GOTO 110 

(Martin Kotulla/ja) 


Das Betriebsystem CP/M wird zunehmend populä- 
rer. Deshalb wenden wir uns mit einer dringenden 
Bitte an alle CP/M-Programmierer! 


Haben Sie Programme unter CP/M geschrieben - 
und finden Sie, daß auch andere davon profitieren 
sollten? Dann schicken Sie Ihre Programme an: 


Redaktion 
Happy-Computer 

z.Hd. Herrn Hagedorn 
Hans-Pinsel-Straße 2 
8013 Haar bei München 
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Grafik kompakt 


Hochauflösende 

Grafik auf dem 

Schneider ist eine 

feine Sache. Wenn 

man aber den Kas- 
settenrecorder als Speicherme- 
dium benutzen muß, verdirbt die 
mit dem Laden verbundene War- 
tezeit den ganzen Spaß. Das 
muß nicht sein, wie ein kleines 
Maschinencode-Programm 
beweist. 


rafik ist in. Speziell wenn man 
Text und Bilder kombinieren 
kann und dies auch noch 


durch Basic unterstützt wird, dann 
macht es richtig Spaß, gute Grafiken zu 
entwerfen. Ein Problem, das sich dabei 
immer wieder stellt, ist die Wartezeit 
beim Speichern. Denn Bilder sind ja 
meist nicht als Selbstzweck gedacht, 
sondern sie sollen in andere Pro- 
gramme integriert werden. Und beim 
Kassettenrecorder fangen da die Pro- 
bleme an. Was nützen beispielsweise 
die schönsten Bilder in einem Adven- 
ture, wenn man aufgrund der Ladezeit 
völlig aus dem Spielrhythmus gebracht 
wird. Nach über drei Minuten (bei 1000 
Baud Übertragungsrate) macht auch 
die schönste Grafik den Ärger nicht 
mehr wett. Nun kann man zwar mit zwei 
Grafikspeichern arbeiten und es ist mit 
einigen POKEs auch möglich, den Kas- 
settenrecorder zur schnelleren Arbeit 
zu zwingen. Dies alles täuscht jedoch 
nicht darüber hinweg, daß wir immer nur 
an den Symptomen kurieren. Die 
eigentliche »Krankheit« ist der Bild- 
schirmspeicher - besser seine Größe. 
Denn egal, ob wir im Modus 1 oder 2 
oder gar mit vielen Farben im Modus O 
arbeiten, immer ist der Grafikspeicher 
16 KByte lang. Beim Speichern ent- 
spricht das acht Blöcken und eine sol- 
che Menge Daten benötigt eben Zeit. 
Dabei kommt nun noch ein weiterer 
ärgerlicher Punkt hinzu. Da der Grafik- 
Speicher beim Schneider etwas um- 
ständlich aufgebaut ist, kann man auch 
nicht nur einen Teil des Bildschirms 
sichern, wenn beispielsweise in einem 
Text/Grafik-Adventure nur die obersten 
zehn Zeilen überhaupt mit Grafik belegt 
sind. Hier ist der CPC reichlich stur. Es 
müssen die vollen 16 KByte übertragen 
werden. 

Was kann man tun? Der einzige Aus- 
weg ist der Verzicht auf einen Teil der 
hochauflösenden Grafik. Oft ist dies 
aber gar nicht schlimm. Um beispiels- 





weise ein Labyrinth zu zeichnen, in dem 
sich der stolze Recke zurechtfinden 
muß, bedarf es oft keiner großartigen 
Darstellungsmittel. Eine ausgekochte 
Blockgrafik tut es auch, besonders 
wenn man sie wie beim Schneider ein- 
fach und schnell umdefinieren kann. 

Wie kann man nun aber Bilder oder 
auch Teilbilder mit der Blockgrafik 
zeichnen? Dazu müssen wir Änderun- 
gen im System vornehmen, die jedoch, 
wie Sie gleich sehen werden, nicht 
schwer durchzuführen sind. Der 
Schneider arbeitet ja ohne einen extra 
Speicher für Blockgrafik. Dies ist aber 
auch gerade unser Problem. Daraus 
folgt nämlich, daß der Computer natür- 
lich auch keine Routinen zur Darstel- 
lung von Blockgrafik-Bildern bereithält. 
Wir müssen uns diese also schreiben. 
Daneben benötigen wir noch ein Ent- 
wicklungsprogramm, das uns hilft, die 
Bilder zu entwerfen. Viel Arbeit also. 
Lohnt sich das überhaupt? Wir meinen 
schon. 


Bilder aus dem 
»Baukasten« 


Gehen wir einmal davon aus, daß 
beim Schneider im Modus 1 25 Textzei- 
len mit maximal je 40 Zeichen zur Verfü- 
gung stehen, so ergeben sich genau 
1000 abzuspeichernde Symbole pro 
Bildschirm. Jedes Symbol benötigt 
dabei ein Byte für seinen Zeichencode 
und ein weiteres für die zu setzende 
Farbe. Alles in allem sind dies maximal 
2000 Byte, verglichen mit den 16 
KByte des Grafikspeichers also nur ein 
Achtel des Speicherbedarfs bei hoch- 
auflösender Grafik. Im Klartext heißt 
das, daß wir nur ein Achtel der Spei- 
cherzeit benötigen - oder bei der Vor- 
ratshaltung von Bildschirmen im Spei- 
cher acht Bildschirme auf dem Platz von 
einem parken können. 

Als nächstes müssen wir festlegen, 
was unser Programm eigentlich können 
soll. Das Blockgrafik-Entwicklungspro- 
gramm soll uns helfen, an einer beliebi- 
gen Stelle auf dem Bildschirm mit Hilfe 
der Tastatur Grafiksymbole in verschie- 
denen Farben zu setzen oder zu 
löschen. Die aktuelle Position soll dabei 
durch einen blinkenden Cursor ange- 
zeigt werden. Es muß jederzeit möglich 
sein, eine neue Bildschirmfarbe zu wäh- 
len oder die Tastatur neu zu definieren, 
um auf alle möglichen Grafiksymbole 
zurückgreifen zu können. 

Daneben soll das Programm Routi- 
nen zum Speichern und Laden von Bil- 


dern haben. Die Aufzeichnung soll so 
universell sein, daß die mit dem Pro- 
gramm - wir wollen es »Designer« nen- 
nen - entwickelten Bilder möglichst 
problemlos in andere Programme ein- 
zubinden sind. 

Mit dieser Beschreibung haben wir - 
neben der Zieldefinition im engeren 
Sinn - auch schon eine Reihe von wei- 
teren Unterpunkten angerissen. Auf 
diese wollen wir nun näher eingehen. 

Welchen grundsätzlichen Aufbau 
wollen wir wählen? Es bieten sich ver- 
schiedene an. Wenn das Programm mit 
relativ wenigen Meldungen auskommt, 
so reicht ein einziger Arbeitsbildschirm 
aus. Auf ihm erfolgen alle Ein- und Aus- 
gaben. 

Je größer die Anzahl der Funktionen 
und damit natürlich auch die Anzahl 
auszugebender Meldungen ist, desto 
unübersichtlicher ist dieses Verfahren. 
Schließlich ist es völlig unmöglich, aus 
beispielsweise 50 oder 60 Funktionen, 
die gleichzeitig auf dem Bildschirm dar- 
gestellt werden, die richtige auszuwäh- 
len. Dabei noch die Übersicht zu behal- 
ten ist schwierig. 

In solchen Fällen hat sich die Menü- 
technik als das geeignete Verfahren 
herausgestellt. Dabei wird von einem 
Hauptmenü in mehrere Untermenüs 
(beispielsweise Kassetten- und Disket- 
tenoperationen, Suchroutinen, Darstel- 
lungen von Texten und so weiter) ver- 
zweigt, die dann wieder ihre eigenen 
spezifischen Funktionen aufweisen. 

Man hat damit in einem Unterpunkt 
immer nur eine spezifische, auf einen 
Problembereich ausgerichtete Anzahl 
von Funktionen zur Auswahl. Diese 
werden dann auf dem Bildschirm darge- 
stellt. Beim nächsten Arbeitsgang wer- 
den andere Funktionen zur Verfügung 
gestellt. 

Bei »Designer« (Listing 1) wollen wir 
eine Kombination aus beiden Verfahren 
benutzen. Die eigentliche Bilddarstel- 
lung erfolgt auf einem einzigen Bild- 
schirm, der nur durch den Benutzer bei 
der Zeicheneingabe verändert wird. 

Daneben kann man durch Druck auf 
eine Taste ein Auswahlmenü aufrufen, 
das dann alle nicht laufend benötigten 
Funktionen, wie das Abspeichern und 
Sichern von Bildern oder Teilbildern, die 
Tastaturumdefinition oder die Farbwahl 
enthält. 

Bei dieser Art der Programmausfüh- 
rung treffen wir aber auf ein Problem, 
das bei fast allen Grafikentwicklungs- 
programmen auftritt. Zum einen wollen 
wir unsere Bilder auf dem Monitor dar- 
stellen, zum anderen benötigen wir den 
gleichen Platz zur Ausgabe der Arbeits- 
routinen. Diese überschreiben damit 
natürlich unsere Grafik. Wir speichern 
unsere Bilder daher noch ein zweites 
Mal - in einem separaten Zeichen- und 
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1 RR [88D8] 718 INFUT"Welches Farbregister";reg £ESDAB] 
28 '** Initialisierungsteil #* [C4C4] 72@ INFUT"Erstei2 SFACE}Farbe":f(reg,1) L117A] 
ZONE [12DC] 73@ INFUT"Zweite Farbe";f(reg,2) E2F28] 
48 BORDER 8 £[D224] 748 INK reg,fireg,1),f(reg,2) [74F®] 
5@ MODE 1 [FiF6] 750 CLS:G0TO 458 tES98] 
608 DIM #(15,2) [C9F6] 768 RETURN [BO3A] 
78 f(B,1)=8:f(98,2)=8 CB448] za I ee ee ee a 2 ee 2 2 22 22 22 [6056] 
80 f(1,1)=24:#(1,2)=24 [A926] 788 ‘**+ Joystick-Schleife +* C3FDCI 
98 F(2,1)=6:f(2,2)=6 E[DA&C]I a A ZZ 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 22 CA45A]I 
108 £(3, 1)=2: +3, 2)=2 [2EB®] 882 z$=INKEYF: IF z$=CHR$ (240) THEN v=y-i 
118 #(4,1)=21: £(4, 2)=21 [8A7A]I [FöBE] 
120 +(5,1)=15:# (5,2)=15 [938C] 818 IF z$=CHR$ (241) THEN y=y+1 LIAACI 
130 #(65,1)=7:f(6,2)=7 [85D6] 828 IF z$=CHR$ (242) THEN x=x-1L:IF x<i1 TH 
148 #(7,1)=4:#(7,2)=4 [64D8] EN v=y-1l:x=mz E1B9®] 
150 #(8,1)=27:#(8,2)=27 L6AAA]I 8280 IF z#=CHR$ (242) THEN x=x+1:IF x>mz T 
168 f(9,1)=18:#(9,2)=18 [9DBB] HEN v=v+1l:x=1 [SD9®] 
178 #(18,1)=8:# (108,2)= [4FBE] 848 x=MIN (MAX (x,1) ,mz)z2y=MIN(MAX (y,1),25 
180 fi11,1)=17:#(11,2)=17 [BAS4] ) (3414) 
198 #(12,1)=9:f(12,2)= [B9IYEI 858 LOCATE x ,y:CALL &BB8A:FOR t=1 TO 20: 
208 #(13,1)=11:# (13, 2)=11 [8236] NEXT t:CALL &BB8D [08B8] 
218 #(14,1)=26:f(14,2)=26 [4854] 868 IF z$="" THEN 800 [9626] 
228 #(15,1)=24:#(15,2)= EZEF2] 878 IF z£=CHR$ (127) THEN GOSUB 1010:G0TO 
230 FOR i=® TO 15 [21Bö] 808 [3062] 
240 INK i,f(i,1),#f(i1,2) [BAE8] 8808 IF z#=CHR# (28) THEN GOSUB 1218: GOSUB 
250 NEXT i [44FE] 1449: G0OSUB 18890:G0TO 808 [6284] 
260 DIM nr (26) ,z(6,26) EF118] 89B IF ASC(z$) >=240 OR ASC(z$)<32 THEN B 
27 EEE [C7A4] [417] [822C] 
280 '** Masch-PRG laden #* C1DDE] RB IF z#=CHR$ (16) THEN z$=" " CBBS4] 
ZI RER TNTEN ER CA7AB] PID RER [79A2] 
308 MEMORY 39999 [8D86] 928 '** Zeichendarstellung #** [OB&AA] 
3518 KEY DEF 24,1,28 [7DFA] TED RER CDBAö] 
328 DATA 21,48,9c,11,28,a0,1a,d5,e5,f5,c 940 FEN pe:FAFER pa C[DA7®] 
d,90,bb [5526] 958 LOCATE x ,v:FRINT z$3:POKE S9I99+x+mz 
3380 DATA #i1,1#,1f,1#,1#,cd,96,bb,ei,e5,7 *(y-1) ,ASC(z#):POKE 48999+x+mz#(y-i) 
e,cd,Sd [DA32] „pe+t1ö6*pa [8D72] 
548 DATA bb,e1,d1,25,13,3e,a®8,bc,28,e1,3 IB »=x+t1l: IF x>mz THEN IF v<25 THEN v=y+ 
e,28,bd [2CCE] tıxs1 [8E44] 
358 DATA 20,dc,c9,x [1266] 978 GOTO 888 L1A62] 
360 i=42018 [95ACI PIED KUREN R [1CB4] 
378 READ a$:IF as<>"x" THEN POKE i,VAL(" 998 '** Farbroutine PEN #* [2BAA] 
&"+a$):i=i+1:60T0 378 [A524] 12BO Kr [Bi1F4] 
388 pe=1:pa=® [62EC] 1218 WINDOW#Q,1,mz.1.1:CLS: INPUT"PEN-Far 
39® MODE 1:PEN 2:PAPER ® [E346] be":pe:pe=pe MOD 16 C1F12] 
ADD EIER [&4B8E)] 1028 INFUT"FAFER-Farbe";pa:pa=pa MOD 16 LDBD®] 
418 ‘** Initialisierungsspruenge ## [78A0] 1830 FEN pe:FAFER pa LiFBE] 
A2O RR HH [5992] 1842 GOSUB 11298: RETURN [C2C&4] 
430 GOSUB 1750:G0SUB 470:G0SUB 638: GOSUB 1OSO RER L1CF6] 
1440:G0OSUB 1880:G6G0TO 898 [61FA] 1850 '** Darstellungsroutine 1 #* E[B28A] 
AD RER L35A2] 107 EEE HH [BOCFA] 
458 '** Anfangsabfragen ** C[C578] 1888 CLS:CALL 429810:PEN pe:FAPER pa:RETU 
AD RR [C15A6] RN LEBBE] 
478 PRINT:PRINT" Speicher loeschen" [ES2E] 1DID RER [34FE) 
4808 FOR i=490008 TO 41B88:POKE i ,„32:NEXT 1188 '** Darstellungsroutine 2 *#* [D282] 
i [6474] 111 RUE RR LE9IFB] 
470 FOR i=41008 TO 42B8008:POKE i,„Q:NEXT i 1128 ECLSız$E="" C9D3E]I 
[9218] 1138 FOR i=1 TO mz:2z$=2$+CHR$ (14) +CHR$ (P 
508 CLS [792E] EEK (40999+i) \16) +CHR$ (15) +CHR$ (PEEK 
S1® LOCATE 18,3:PRINT'"DES IGNE R{2 (48999+1) ) +CHR$ (FPEEK (39999+1 )) [@B24)] 
SPACE}4 & 4":PEN 1 [842C] 1148 NEXT i c925C] 
528 FRINT:PRINT:PRINT [FAA4] 11520 WINDOW#8,1,mz,1,25:L0OCATE 1,1:PRINT 
538 PRINT" In welchem Modus wollen Sie a z$: CCAA4] 
rbeiten ?" LEF?®] 116@ FEN pe:PAFER pa [3406] 
548 PRINT [D98C]I 1170 z$="":RETURN C3F44] 
558 PRINT"{3 SPACE}48-Zeichen pro Zeile= 11BO KUH [98456] 
MODE 113 SPACE} (1)" [D5SC2] 11980 '** Laden und Speichern #* L390C] 
568 PRINT"{3 SPACE}2®-Zeichen pro Zeile= 120D RER [3F48] 
MODE B®{3 SPACE} (@) " [29BC] 1218 MODE 1:FEN 1:PAPER ®:CLS CD2CC] 
578 z$=INKEY$: IF z$<>"1" AND z$<>"B" THE 1228 LOCATE 12,3:PRINT"Funktionswahl:" [4762] 
N 57@ ELSE MODE VAL (z$) :mz=20+20*VAL 230 PRINT:FRINT"{1® SPACE}Laden{8 SPACE 
(z$) [C948] 31343» LECA8] 
580 IF z$="1" AND pe MOD 4=pa MOD 4 THEN 1248 PRINT"{1@ SFACE}Speichern{4 SPACE} ( 
pe=MIN(pe,pa)+i [857C] 2)" CDA38] 
598 RETURN L183C] 1258 FRINT"{18 SFACE}neues Bild{3 SPACE} 
SOD RR [9AS52] 3)" [B930] 
61BD '** Farbwahl #* [F&DA] 1268 FPRINT"{1® SPACE}neue Farben{2 SPACE 
62O RUE [2C56] 304)" [5@0B4] 
638 IF mz=28 THEN j=15 ELSE j=3 LA2S5A] 1278 PRINT"{i1® SFACE}neue Tasten{Z2 SFACE 
648 MODE (mz-2B)/28 LA9AEI 3.(5)% L1@FA) 
658 PRINT"Farbdefinition: ":PRINT:PRINT C 1288 PRINT"{1® SFACE}Lader sichern (6)" C3BEE] 
HR$ (24) :FRINT"Farbe @"+CHR$ (24) [CDODC] 1298 PRINT"{1® SPACE}Verlassen{4 SPACE>( 
&6B FOR i=1 TO i:PEN ı:PRINT"Farbe"z3i:NE 77" CBD7®] 
XTi [843C] 1388 z$=INKEY$: IF z$="7" THEN 1408 [3EACI 
672 FRINT [BA94] 1318 IF z$="53" THEN GOSUB 478:G6G0T0O 1408 L[22D8] 
680 FEN 1 a 
698 FRINT"Farbe wechseln i/n?" 
708 =$=LOWER$CINKEY$): IF 2$="n" THEN 768 Listing 1. »Designer« hilft Bildschirmgrafiken 
ELSE IF z$<>"j" THEN 708 [aB34] schnell aufzubauen 
Farbspeicher. Nach einem Überschrei- obersten Zeile machen. Es muß dann »Datenschaufeleien« schnell genug 


ben müssen wir dann den Bildschirm 
nur aus dem Zeichenspeicher wieder 
regenerieren. Zur Darstellung unserer 
Bilder benutzen wir dabei zwei ver- 
schiedene Routinen. Kurze Entschei- 
dungen, wie beispielsweise die Umde- 
finition der Farben, benötigen nur eine 
Bildschirmzeile. Dies wollen wir in der 


auch immer nur eine Zeile zurücktrans- 
feriert werden. Bei umfangreicheren 
Anweisungen brauchen wir eine Rou- 
tine, die den gesamten Bildschirm neu 
aufbaut. Dieses Teilprogramm soll bei 
jedem Bild mit abgespeichert werden, 
um die Bilder auch in anderen Program- 
men benutzen zu können. Damit diese 


gehen, müssen wir mit einem Maschi- 
nencode-Programm arbeiten. 

Auf welche Daten soll diese Maschi- 
nencode-Routine zurückgreifen? Zur 
Ablage des Zeichencodes und der Farb- 
information brauchen wie 2000 Byte 
Speicherplatz. Diesen reservieren wir 
an der Obergrenze des Benutzerspei- 
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IF z$="4" THEN GOSUB &30:G0T0 1408 
IF z$="5" THEN GOSUB 1498:G60T0 1488 


IF z$="6" THEN GOSUB 1530:G0T0 1488 


IF z$<>"1" AND z$<>"2" THEN 1308 
FRINT:PRINT 

INFUT"Name des Files";n# 

IF z#="1" THEN LOAD n$,40888:mz=FEE 
K(42001):MODE (mz-2®) /20:G0OSUB 1448 
: RETURN 

FOKE 429001 ,mz:SAVE n#,b,49000,2002 
MODE (mz-28) /2@: RETURN 
NH 

"** Masch-FRG-Daten setzen ##* 
EHER 

IF mz=28 THEN FOKE 42847 ,.%34:FOKE 4 
2042,%9E ELSE POKE 429847 ,%28:FOKE 4 
2042 ,%AD 

RETURN 

RER 

"#** Tastendefinition #* 
RENTNER 

GOSUB 1750: RETURN 

ee ee ee 22 2727272727 

‘#* Lader sichern ##* 
RER 

CLS: INPUT"Name des Laders";n# 
OFENOUT n$+".1lad" 

PRINT#9,"1®0 ° ** Ladeprogramm "+n$+ 
nen 

FRINT#?,"2®8 memorv 39999 

z$="25 ":FOR i=@ TO 15:2$=z$+"ink " 
+MID$ (STR$ (1) ,„2)+" ,„"+MID$ (STR$ (# (i, 
1)),2) +", "+MID$S (STRS CH (1,23) ,Dd +": " 
:NEXT i 

FRINT#9 ,z$ 

FRINT#9,"3@ DATA 21,48,9c,11,28,a0, 
1a,d5,e5,f5,cd,98,bb 

FRINT#9,"40 DATA fi,if,1f,1f,1f,cd, 
96,bb,eil,e5,7e,cd,Sd 

PRINT#9,"5@ DATA bb,e1,d1,23,13,3e, 
ad,bc,2ZO,eil,3e,28,bd 

PRINT#9,"6B DATA 208,dc,c9,x 
FRINT#9,"70 i=4201®8 

FRINT#9,"80 READ as: IF a$<>"+CHR$ (3 
A) +"x"+CHR$ (34)+" THEN FOKE i,VAL(" 
+CHR$ (34) +" &"+CHR$ (34) +" +a$) sisitl: 
GOTO 80 

FRINT#9, "50008 '** RUNTIME-MODUL #** 


FRINT#9,"5@0018 load"+CHR$ (34) +n$+CH 
R$ (34) +" ‚40000: mz =PEEK (42001) :MODE 
(mz-20) /28 

FRINT#9, "50028 IF mz=28 THEN FOKE 4 
2047,%34:POKE 428042,%9E ELSE POKE 4 
2847 ,%28:FOKE 42042,&ABd 
PRINT#9,"SQ038 call 42010 

PRINT#9, "50048 return 

CLOSEOUT 

RETURN 

REM Kuna 

REM #* key 464 *%* 

REM KRHRHHEHEHRHH 

CLS 

LOCATE 18,3:PRINT"DES IGNE R{2 
SPACE}4 6 4":PEN 1 

LOCATE 12,5:PRINT"Tastaturdefinitio 
n" 

PRINT:FRINT:PRINT " Linien / Blockg 
rafik 1114 SPACE} (1)" 

PRINT" Linien / Blockgrafik 2{14 SF 
ACE}Y 2)" 

PRINT" Blockgrafik 3 + Sonderzeiche 
n{7 SPACE} «FI" 

PRINT" griechisches Alphabet+Sonder 
zeichen (4)" 

PRINT" Grossbuchstaben{21 SPACE} (5) 


PRINT" Kleinbuchstaben{21 SFACE?3 (6) 


DATA 67,59,58,50,51,43,42,35,34,27, 
69,68,61 
DATA 53,52,44,45,37,36,71,63,62,55, 
54,46,38 


[3AD®] 
[743E] 


[FOS8] 
CBAF2] 
1[567C] 
[63F8] 


L7FS56] 
EDCFE] 
[1138] 
£[714A] 
[81974] 
[674E] 


[B450] 
L[8B94] 
[&FSC]I 
[A326] 
19560] 
[FiEA] 
[6156] 
£[93D4] 
£[715A] 
[FSFC] 
[FBZ8] 


[CE1S36] 
LECEA] 


[A21C]I 
[9A42] 


[BOQE] 
LEBOQA]I 
[9BAB]I 


[4042] 
[@78A] 


[8A28] 
[9532] 


[44208] 


L7AF6] 
[6BE2] 
£[C7CD] 
LAAACI 
CAE9I2]I 
[94208] 
T1EBCI 
CD224] 
[229E] 
CABYCI 
[292E] 
IDFYEI 
TE648] 
15058] 
{FBSC]I 
E[FSSE] 
c832C] 
[BE16] 


[2218] 


FOR i=128 TO 159:KEY i,„CHR$(i) NEXT 


PRINT" Tastaturbelegung in 'NORMAL ' 
-Ebene "; 

INPUT n 

IF n>® AND n<7 THEN 1948 
PRINT"Falsche Eingabe !!!" 

FOR i=1 TO 1588:NEXT i:60T0 1900 
PRINT" Tastaturbelegung{Z2 SFACE>in 
"SHIFT'-Ebene ": 

INPUT s 

IF sil OR s>& THEN 1978 ELSE 1798 
FRINT"Falsche Eingabe !!!" 

FOR i=1 TO 1508:NEXT i:60T0 1958 
FRINT" Tastaturbelegung{2 SFACE}int 
2 SPACE} 'CTRL'’-Ebene "; 

INPUT c 

IF cii1 OR c>6 THEN 29028 ELSE 2068 
PRINT"Falsche Eingabe !!!" 

FOR i=1 TO 1528:NEXT i:60T0 19970 
DATA 129,130,131,132,133,1534,135,13 
6,127,138,139,140,141 

DATA 142,1453,144,145,146,147,148,14 
9,150,151,152,153,156 

DATA 192,1953,.194,195,196,197,198,19 
97,200,201.2082,203,204 

DATA 205,206,207,208,209,210,211,21 
2,213,214,215,215,217 

DATA 218,219,220,221,222,223,226,16 
0,161,162,1653,164,165 

DATA 166,167,168,169,170,171,172,17 
35174,175,152,236,237 

DATA 176,177,178,179,180,181,182,18 
3,184,185,188,189,1970 

DATA 191,203,226,227,228,229,230,23 
1,232, 233,234 ,235, 236 

DATA 81,87,69,82,84,89,85,73,797,80, 
65,853,68 

DATA 79,71,72,74,75,76,70,88,67,86, 
66,78,77 

DATA 113,119,1@01,114,116,121,117,10 
5,111,112,97,115,100 

DATA 102,103,104,106,107,108,122,12 
0,79,118,98,112,199 

FOR i=1 TO &4:FOR j=1 TO 26:READ z(i 
s3S)=NEXT j,i 

FOR i=1 TO 24:KEY DEF nr(i),i,ztin,i 
Yzztsst izle) 

NEXT i 

CLS 

PRINT" Normal : ";:0ON n GOSURB 2290, 
2310,23530,2350,2370,2397® 

PRINT" SHIFT{2 SPACE}: ";:0N s GOSU 
B 22990,2310,25330,2350,2370,23970 
PRINT" CONTROL: ";:0N c GOSUB 2298, 
2310,2330,2350,2370,23970 

PRINT 

PRINT" O.K. j/n 7" 

Z$=INKEY$: IF LOWER$(Z$)<>"j" AND LO 
WER$ (z$)<>"n" THEN 2250 

IF LOWER$(z$)="n" THEN 1758 
PRINT=:PRINT 

RETURN 

RESTORE 28408: z$="":FOR i=1 TO 

AD a:z$=z$+CHR$ (a) :NEXT:PRINT 
RETURN 

RESTORE 280648: z$="":FOR i=1 TO 

AD a: z$=2z$+CHR$ (a) : NEXT: PRINT 
RETURN 

RESTORE 2080: z$="":FOR i=1 TO 

AD a: z$=2z$+CHR$ (a) : NEXT: PRINT 
RETURN 

RESTORE 2188:z$="":FOR i=1 TO 

AD a: z#=z$+CHR$ (a) :NEXT:PRINT 
RETURN 

RESTORE 2128:z$="":FOR i=1 TO 

AD a:z$=z$+CHR$ (a) :NEXT:PRINT 
RETURN 

RESTORE 2148:z2z$="":FOR i=1 TO 

AD a:z$=z$+CHR$ (a) :NEXT:FRINT 
RETURN 


LDFSE] 


LESS3Z] 
EDB10] 
CBi4E] 
[3882] 
[67A6] 
[S8D4] 
[2024] 
[7EB6] 
[268C] 
CAABA] 
CABSCI 
L17EA] 
[CFFC]I 
[@772] 
[BBAB)I 
£[D2D8] 
LZiFE] 
[5324] 
[97408] 
C1QE8] 
EB6ö3A]I 
[AFSA] 
LAIEB] 
[9160] 
[1752] 
[F346] 
L7EBE) 
[5138] 
[D348] 
[S5C66] 
[C39C]I 
[2666] 
[B6DC]I 
[BF84] 
[C1EB] 
L7EAA] 
[C9DO] 
CD7CO] 
[SETZE] 
L9F9B] 


[D532] 
[7EBA]I 


[2928] 
[928E) 


LAF30) 
[FE92] 


[E626] 
[C296] 


[9YCZE]I 
[BEA] 


[CA36] 
L[8D8C) 


Listing 1. »Designer« hilft Bildschirmgrafiken 


RESTORE 1848 [FEQOQ] 


FOR i=1 TO 26:READ nr (i):NEXT i 


chers, indem wir mit MEMORY die 
Variable HIMEM verändern. Die Spei- 
cheraufteilung finden Sie in Bild 1. Ab 
Adresse 40000 bis einschließlich 
40999 ist der Speicher den Zeichen- 
codes vorbehalten. Jeweils genau 
1000 Byte höher liegt die zugehörige 
Farbinformation. 

Die Farbcodierung beinhaltet dabei 


[5056] 


sowohl die Vorder- als auch die Hinter- 
grundfarbe. Dabei wird ein kleiner Trick 
angewandt. Zunächst zerlegen wir ein 
Byte des Farbspeichers in zwei Halb- 
byte oder auch Nibbles. 

Mit vier Bit kann man 16 verschie- 
dene Kombinationen (oder Zahlen von 
O bis 15) darstellen. Das reicht genau 
für die, maximal im Modus O benötigte, 


schnell aufzubauen (Schluß) 





Gesamtzahl von 16 Farben aus. Wenn 
wir nun im unteren Halbbyte die 
Vordergrund- (PEN) und im oberen die 
Hintergrundfarbe (PAPER) ablegen, so 
haben wir in einer 8-Bit-Adresse gleich- 
zeitig zwei Farbregister gespeichert. 
Dennoch ist für jedes Zeichen Vorder- 
und Hintergrundfarbe getrennt defi- 
niert. 








:OMPUTER 
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Speicherobergrenze 


42051 


mit SYMBOL definierte Characters 


Maschinenprogramm 
Darstellungsroutine 


Zeichen pro Zeile (mz 


Obergrenze Farbspeicher 


Farbe 2. Zeichen 
Farbe 1. Zeichen (oben links) 


Obergrenze Zeichenspeicher 


Zeichencode 1. Zeichen 


Obergrenze Basicspeicher 


Bild 1. Speicherbelegung des Programms DESIGNER 


Eine Besonderheit bietet die Spei- 
cherstelle 42001. Sie enthält die 
aktuelle Anzahl der Zeichen pro Zeile. 
Wenn wir also im Modus O arbeiten, so 


:HL=Adresse 
:DE=Farbe 

LD HL, &9C40 

LD DE, &A028 
(BEGINN) 

LD A, (DE) 

PUSH DE 

PUSH HL 

PUSH AF 

CALL TXT SET PEN 


CALL TXT SET PAPER 
POP HL 

PUSH HL 

LD A, (HL) 

CALL TXT WR CHAR 


JR NZ (BEGINN) 
RET 


Listing 2. Für Maschinencode-Freunde: 
Das Assemblerlisting 








steht hier eine 20; im Modus 1 eine 40. 

Diese Werte werden von der Darstel- 
lungsroutine 1 als Kriterium benutzt, um 
festzustellen, in welchem Modus das 
Bild gezeichnet wurde. Ein Grafikbild 
wird nun gespeichert, indem man den 
Bereich von Adresse 40000 bis ein- 
schließlich 42010 als binäres File 
sichert. 

Die Darstellungsroutine 1 wird hinter 
die Adresse 42010 gelegt. 

Diese Maschinencode-Routine liest 
jeweils ein Byte aus dem Farb- und aus 
dem Zeichenspeicher ein, setzt die ent- 
sprechenden Vorder- und Hintergrund- 
farben, und gibt dann das Zeichen auf 
dem Bildschirm aus. 

Für den Umgang und die einfache 
Benutzung des Blockgrafikentwick- 
lungsprogramms (Designer) ist es nicht 
notwendig, das Programm in allen Ein- 
zelheiten zu verstehen. Wer sich aber 
für Maschinensprache und Program- 
mierung in Assembler interessiert, fin- 
det im Listing 2 den Assembler-Code. 

Das Maschinencode-Programm ar- 
beitet mit zwei Zeigern, die in den Regi- 
sterpaaren HL und DE abgelegt sind. 
HL enthält dabei die Adresse des darzu- 
stellenden Zeichencodes, DE die zuge- 
hörige Farbinformation. Nachdem 
beide Zeiger auf die Anfangswerte 
(9C40 hex = 40000 beziehungsweise 
AO28 hex = 41000) gesetzt worden 
sind, beginnt die Ausgabeschleife. 

Die Farbinformation wird in A eingele- 
sen, danach werden die Registerpaare 
DE, HL und AF auf dem STACK gesi- 
chert. Es folgt der Aufruf Betriebssy- 


stemroutine TXT SET PEN. Diese setzt 
die Schriftfarbe. Dabei ist zu bedenken, 
daß TXT SET PEN nur die unteren vier 
Bit des Akkumulators berücksichtigt, so 
daß wir uns um die Hintergrundfarbe, 
die ja in den oberen Bits abgelegt ist, 
keine Sorgen machen brauchen. Diese 
Bits werden ignoriert. 

Beim Verlassen der Farbdefinitions- 
routine sind alle Registerpaare zerstört, 
das heißt sie enthalten andere Werte. 
Dies ist dann auch der Grund dafür, daß 
wir sie vor dem Aufruf der Routine gesi- 
chert haben. Zunächst holen wir AF 
vom Stapel zurück und rotieren den 
Akkumulator viermal nach rechts. 

Damit sind nun die anfangs höherwer- 
tigen vier Bit für die Hintergrundfarbe 
nach unten gerutscht. Sie nehmen jetzt 
die unteren vier Bit ein und damit dürfen 
wir TXT SET PAPER aufrufen - eine 
Routine, die wiederum die übernomme- 
nen Register zerstört und den Akkumu- 
lator für die Farbdefinition benutzt. Jetzt 
wird allerdings die Hintergrundfarbe 
gesetzt. Nach der Rückkehr aus dieser 
Routine haben wir den Farbdefinitions- 
teil für das auszugebende Zeichen 
beendet. 


Maschinencode = 
Geschwindigkeit 


Als nächstes wird der Zeichencode 
bearbeitet. Dazu holen wir HL vom Sta- 
pel zurück, geben es aber im nächsten 
Schritt sofort wieder mit PUSH HL 
zurück. Dies ist deshalb erforderlich, da 
auch die dritte nun aufzurufende 
Betriebssystemroutine TXT WR CHAR 
die Registerpaare und die Flags verän- 
dert. Zuvor laden wir noch den Akkumu- 
lator mit dem Inhalt der durch HL adres- 
sierten Speicherstelle. Damit steht in A 
der aktuelle Zeichencode (vergleiche 
Bild 1). TXT WR CHAR benutzt die 
zuvor eingestellten PEN- und PAPER- 
Werte, so daß wir uns um unsere Zei- 
chenausgabe keine weiteren Sorgen zu 
machen brauchen. Mit der Rückkehr 
aus dieser Routine ist dann das Zeichen 
farbrichtig dargestellt. 

Als nächstes holen wir uns HL und DE 
wieder vom Stapel zurück und erhöhen 
beide um 1. Sowohl der Farbzeiger wie 
auch die Adresse des Zeichencodes 
weisen nun auf das nächst höhere Zei- 
chen und wir könnten unsere Schleife 
für das nächste Zeichen wieder aufru- 
fen. Dies würde sich dann allerdings 
ewig wiederholen. Wir brauchen also 
eine Bedingung für das Ende der Bear- 
beitung. 

Dies ist aber einfach zu realisieren. 
Wir müssen nur überprüfen, ob sämtli- 


‚che Zeichen ausgegeben worden sind. 


Dazu kontrollieren wir, ob HL bereits 
den Wert AD28 hex erreicht hat. In letz- 


Fortsetzung auf Seite 58 
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LOGU 


Jeder kann programmieren 
Computersprache für Eltern und Kinder 
DANIEL WATT 


LOGO...Ergebnis der Erforschung menschlicher 
Intelligenz 

Entwickelt von Seymour Papert, Pädagoge und Mathematik- 
professor. 

Erste Computersprache, die bewußt Strategien menschlichen 
Denkens dient - und in ihrer Logik der Realität gerecht wird. 
LOGO ersetzt BASIC, sagen Pädagogen und Mathematiker. 
LOGO kommt dem übergreifenden, assoziativen Denken 
entgegen. BASIC dagegen ist ein Setzkasten von Logik-Buch- 
staben. 


DANIEL WATT...hat im Team von Seymour Papert “Buch des Jahres 1983” 
gearbeitet und ein Buch geschrieben, das voller Bilder seine in den USA 
Erlebnisse mit Kindern am Computer wiedergibt. Ein hochwer- 
tiges Textbuch für LOGO-Kurse. Ein Buch für Lehrer, die nach 
einem bereits von Schulbehörden empfohlenen LOGO-Kurs- 
buch suchen. 


|] 

IrıUl 

Ein Buch für APPLE II, C-64, IBM PC, ATARI bis 520 ST., TI-99 und Schneider CPCs. te-wi Verlag GmbH 
384 Seiten, A4, DM 59,- Theo-Prosel-Weg 1 
8000 München 40 


FIT .. Ein Buch für Kinder und ihre Lehrer — ein kindgemäßes Buch für die erste Be- 
COMPUTER FÜR KINDER gegnung mit Computern, ihren Eigenwilligkeiten, und ihren unerschöpflichen 
Möglichkeiten. Ein Buch zu unserer Gegenwart und zur Zukunft unserer Kinder. 
„Computer für Kinder” richtet sich an Kinder im Alter von 8 bis 13 Jahren, für 
deren Interesse an Computern keines der unzähligen Computer-Bücher ge- 
ie | schrieben ne En ka MEN 
„Computer für Kinder” ist ganz auf Kinder eingestellt und be- 
COMPUTER schäftigt sich unterhaltsam und leicht verständlich mit folgenden 
Themen: 


Wie arbeiten Computer 

Wie funktioniert mein Computer 

Wie programmiert man mit einfachen Flußdiagrammen 
Wie kann ich BASIC leicht verstehen 
Programme aufbauen mit Befehlen 

Farbige Graphiken entwerfen 

Erklärung von Computer-Begriffen 


Sally Greenwood Larson war Kindergärtnerin, ehe sie 
selbst Computern begegnete und zwischen den Welten 
von Kindern und Computern zu vermitteln begann. 





Computer für Kinder, A4 quer, Fadenheftung, 
über 100 Seiten, je Ausgabe DM 29,80 
vorliegend für: VC 20, C 64, Apple II, Atari 
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DM 29,80 DM 29,80 















































terem Fall wird der komplette Bild- 
schirm wiedergegeben. 

Der Befehlssatz des Z80 kennt leider 
kein Kommando, mit dem der Prozessor 
in der Lage ist, einen 16-Bit-Vergleich 
durchzuführen. Wir müssen daher in 
zwei Stufen überprüfen, ob die Adresse 
AO28 erreicht wurde. 

Zunächst vergleichen wir deshalb H 
mit AO hex. Wir laden das Register A mit 
AO und führen dann einen Vergleich 
des Akkumulators mit H durch. Ist diese 
Bedingung schon nicht erfüllt, können 
wir sofort wieder den Beginn der 
Schleife aufrufen. Ansonsten laden wir 
den Akkumulator mit 28 hex und führen 
den Vergleich mit dem Register L durch. 
SolangeL.kleiner als 28 hex ist, geht es 
wieder zum Startpunkt der Schleife. Im 
anderen Fall übergibt die Routine wie- 
der an den Basic-Interpreter. 


Das »blinkende« 
Array 


Auf der Basis dieses Programms kön- 
nen wir nun die zugehörigen Basic- 
Befehle für den eigentlichen Designer 
entwickeln. 

Am Anfang unseres Programms fin- 
den wir den Initialisierungsteil. Es wer- 
den nacheinander die Rahmenfarbe, 
der Bildschirmdarstellungsmodus und 
die Farbregister festgelegt. Je INK- 
Kommando werden dabei zwei Register 
benötigt, um auch blinkende Farben 
speichern zu können. 

Alle INK-Register sind dabei in dem 
Array F(15,2) abgelegt. Der erste Index 
bestimmt das zu definierende Farb- 
Register, der zweite gibt an, ob es sich 
um die erste oder zweite zu definie- 
rende Farbe handelt. Nachdem das 
Array mit den Ausgangswerten verse- 
hen wurde, werden die INK-Register auf 
diese Farbwerte gesetzt. 

Als nächster Schritt folgt das Einle- 
sen unseres Maschinenprogramms in 
den Speicherbereich ab Adresse 
42010. Dazu wird mit MEMORY die 
Speicherobergrenze auf 39999 herab- 
gesetzt. Danach kann dann das 
Maschinenprogramm problemlos und 
sicher gePOKEt werden. 

Der nun folgende Teil lautet salopp 
»Initialisierungssprünge«. Hier werden 
nacheinander die eigentlich zu den 
Sonderfunktionen gehörenden Pro- 
grammteile zur Tasten-, Farb- und 
Modusdefinition aufgerufen. 

In der Tastatur-Abfrage-Schleife ab 
Zeile 780 stoßen wir zuerst auf die Cur- 
sorbewegungsroutine. In Abhängigkeit 
von Z$ wird der Cursor entsprechend 
den Tastencodes von 240 bis 243 
bewegt. In Zeile 850 wird dann der Cur- 
sor an die aktuelle Bildschirmposition 
gesetzt. Dies geschieht mit einer 


Maschinencode-Routine, die an der 
Adresse BB8A hex ihren Startpunkt 
hat. Sie setzt den Cursor. Nach einer 
kurzen Verzögerung durch eine Zeit- 
schlefe wird dieser dann mit 
»CALL&BBED« wieder gelöscht. 

In jedem Fall folgt danach die Rück- 
kehr zu Zeile 800, gegebenenfalls aller- 
dings über einige Umwege. Der ein- 
fachste Fall ergibt sich dabei, wenn kein 
Zeichen eingegeben wurde. In diesem 
Fall kehrt der Computer sofort wieder 
an den Schleifenbeginn zurück. Glei- 
ches passiert, wenn ungültige Zeichen, 
das heißt Zeichen mit einem ASCIl- 
Code, größer als 240 oder kleiner als 
32 benutzt werden. 

Wird dagegen ein gültiges Zeichen 
eingegeben, so geht das Programm 
weiter zum Teil Zeichendarstellung 
(Zeile 920). Zuerst werden PEN und 
PAPER auf die Variablen pe bezie- 
hungsweise pa gesetzt, die immer den 
aktuellen PEN- beziehungsweise 
PAPER-Wert enthalten. Danach wird 
das gerade eingegebene Zeichen auf 
dem Bildschirm ausgedruckt. 

Gleichzeitig erfolgen zwei relativ 
kompliziert aussehende POKE-Opera- 
tionen. Das erste Kommando setzt 
dabei den Zeichencode. Wir können 
diesen einfach mit ASC(z$) bestimmen. 
Mit Hilfe von x und y, die die Spalten und 
Zeilenzahl auf dem Bildschirm reprä- 
sentieren, können wir problemlos die 
Ausgabeposition im Zeichen- bezie- 
hungsweise Farbspeicher errechnen. 

Die einzige Schwierigkeit stellt nun 
bei dieser Art der Speicherung die 
Bestimmung des Farbwertes dar. Hier 
sind wir ja mit den zwei Halbbyte kon- 
frontiert. Allerdings ist auch dies kein 
größeres Problem, da wir einfach den 
Wert für die Hintergrundfarbe mit 16 
multiplizieren und dazu den aktuellen 
PEN-Wert addieren. Schon liegt der 
Farbwert in der gewünschten Form vor. 

Nach der Überprüfung, ob mit der 
Zeichenausgabe der rechte Rand des 
Bildschirms erreicht wurde, kehrt dann 
das Zeichendarstellungsprogramm in 
die Hauptabfrageschleife zurück. 

Drücken wir statt den Cursorsteue- 
rungstasten oder einer Zeicheneinga- 
betaste auf DEL, so ruft der CPC die 
Farbroutine ab Zeile 1040 auf. Zeile 
900, wo überprüft wird, ob die DEL- 
Taste gedrückt wurde (CHR$(127)), ist 
dazu der Initiator. 

Die Farbroutine beschränkt zunächst 
das Ausgabe-WINDOW auf eine Zeile - 
und zwar die oberste Bildschirmzeile. 
Dies ist notwendig, um sicherzustellen, 
daß der Bildschirm nur in diesem 
Bereich geändert wird. Wir haben zu 
diesem Zeitpunkt, das heißt beim Aufruf 
der Farbroutine, immer noch das zu 
zeichnende Bild auf dem Schirm. Ein 
unkoordiniertes »Herumirren« gegebe- 


nenfalls durch Fehlermeldungen und so 
weiter verursacht, würde den komplet- 
ten Bildschirminhalt zerstören. 

Das Verfahren hat darüber hinaus den 
Vorteil, daß man problemlos und schnell 
(während der Bildentwicklung) Farbän- 
derungen durchführen kann. Mit INPUT 
werden die Vorder- und Hintergrund- 
farbwerte ermittelt. Danach folgt die 
Darstellungsroutine 2, die die oberste 
Bildschirmzeile ersetzt. Dazu wird aus 
den ersten 20 beziehungsweise 40 
Farb- und Zeichencodewerten (je nach 
Modus) ein String zusammengebaut 
und dieser in der obersten Bildschirm- 
zeile ausgegeben. Er überdeckt damit 
die gerade für die Farbabfrage ausge- 
gebenen Texte und setzt unseren Bild- 
schirm wieder in den Arbeitszustand 
zurück. 

Nicht ganz so einfach läuft der Prozeß 
ab, wenn wir auf die Taste »!« drücken. 
Am Anfang unseres Programms wurde 
diese auf CHR$(20) definiert (Zeile 
310). Als erster Schritt erfolgt beim 
Druck auf diese Taste der Aufruf des 
Hauptfunktionsmenüs ab Zeile 1190. 

Die Funktionen 1 und 2 sind einfach 
zu erklären. Hier findet nur ein Laden 
beziehungsweise ein Speichern des 
Adreßbereichs ab Adresse 40000 bis 
42010 statt. Mit Funktion 3 (neues Bild) 
verursachen wir im Prinzip einen Neu- 
start. Der Speicher wird gelöscht und 
man gelangt zurück in die Modusab- 
frage ab Zeile 520. 


Grafikzeichen 
selbst definieren 


Neue Farben setzen wir mit Funktion 
4, die uns zurück in die Definition für die 
Farb-Register bringt. Eine der wichtig- 
sten Routinen verbirgt sich hinter Funk- 
tion 5. Sie werden sich vielleicht schon 
gefragt haben, wie Sie denn eigentlich 
die Grafiksymbole, die Sie zwar im 
Anhang zum Bedienerhandbuch fin- 
den, die aber nicht auf der Tastatur ver- 
fügbar sind, mit dieser setzen sollen. 
Nun ganz einfach: Die Tastatur ist nicht 
mehr wie im Normalfall belegt, sondern 
verschiedene Grafikzeichen haben 
jetzt den Platz der Buchstaben einge- 
nommen. Mit Hilfe dieser Funktion grei- 
fen Sie auf die neuen Zeichensätze zu. 
Sie können damit allerdings auch wäh- 
rend der Bilderzeugung noch von 
einem Zeichensatz zum anderen wech- 
seln. Für Ihre praktische Arbeit sind Sie 
allerdings nicht an diese Zeichen 
gebunden. Wenn Sie sich mit Hilfe von 
SYMBOL eigene Zeichensätze definie- 
ren, so kann Designer natürlich auch 
diese benutzen. Allerdings wird der 
aktuelle Zeichensatz durch das Lade- 
programm nicht mit gesichert. Wenn 
Sie die mit dem Designer erzeugten Bil- 








58 










































































der in einem anderen Programm benut- 
zen wollen, so müssen Sie dafür sor- 
gen, daß auch diesem die veränderten 
Symbole zur Verfügung stehen. 

Damit haben wir den letzten Teilange- 
sprochen, der im Rahmen dieses Pro- 
gramms behandelt werden soll: den 
Ladeteil. Er steht unter der Überschrift 
»Lader sichern« ab Zeile 1510. Wir 
haben schon gesagt, daß wir zur Dar- 
stellung unserer Grafikbildschirme 
durch ein anderes Basic-Programm ein 
Ladeprogramm benötigen. Dieses muß 
drei Funktionen erfüllen: 


Zum ersten muß es die Speicherkon- 
figuration beim Speichern und beim 
Laden der Bilder herstellen. Dazu 
genügt ein einfacher Basic-Befehl - 
nämlich MEMORY 39999. Als zweiten 
Schrittmuß das Ladeprogramm die vom 
Grafikbildschirm benötigten Farbwerte 
in die INK-Register schreiben, damit die 
Darstellung auch in der richtigen Farbe 
erfolgt. Als dritten Schritt soll unsere 
Ausgabe-Routine, das heißt die Darstel- 
lungsroutine 1, natürlich auch in einem 
neu zu entwickelnden Basic-Programm 
vorhanden sein. Denn sonst ist ja keine 
Ausgabe möglich. Der Aufruf erfolgt 
dabei jedesmal, wie schon vom Desig- 
ner gewohnt (Zeile 1080), mit CALL 
42010. 

Bei der Programmierung dieses 
Funktionsteils kommt uns eine Beson- 
derheit des Schneiders zugute. Er ist 
nämlich in der Lage, Programme, die als 
ASCII-File abgelegt sind, als Programm 
wieder zu laden und dann auch als Pro- 
gramm auszuführen. 

ASCII-Files kennen Sie alle. Wenn Sie 
schon irgendwann einmal mit OPEN- 
OUT eine Datei eröffnet haben (bei- 
spielsweise bei jeder Dateiverwaltung), 
so hatten Sie mit dieser Art der Daten- 
speicherung zu tun. Dabei werden näm- 
lich die Daten im ASCIlI-Format Buch- 
stabe für Buchstabe abgelegt, egal ob 
es sich dabei nun um Strings oder um 
numerische Variable handelte. 

Damit ist auch das Wesentliche 
bereits gesagt. Wir brauchen nämlich 
nun nur die Strings, die unsere Pro- 
grammzeilen enthalten, mit OPENOUT 
wegzuschreiben, und sie dann mit 
LOAD als Programm wieder laden. In 
diesem Fall erkennt der CPC die Strings 
als Zeilen eines neuen Basic-Pro- 
gramms, setzt diese in seine Basic- 
Befehle um undiist dann in der Lage, das 
so entstandene Programm auszufüh- 
ren. 

Wie dies rein technisch vonstatten 
geht, sehen Sie ab Zeile 1510. Mit 


" ** Ladeprogramm test ##* 


MEMORY 399997 


[5BDö] 
[1B24] 


INK 8,0,@:INK 1,24,24:INK 2,6,6:INK 3 
‚2,2: INK 4,21,21:INK 5,15,15:INK 6,7, 
7:INK 7,4,4: INK 8,27,27: INK 9,18,18:1I 
NK 12,8,8:INK 11,17,17zINK 12,9,9: INK 


13,11,11zINK 14,26,26: INK 15,24,6: 
DATA 21,40,9c,11,28,a0,1a,d5,e5,f5,cd 
b 


9 


‚„cd,S 
DATA bb,e1,d1,23,13,3e,a@8,bc,20,eil,3e 


‚28,bd 
DATA 20,dc,c9,x 
i=4201® 


READ a$: IF a$<>"x" THEN FOKE i,VAL("% 
14] 


"+a$):i=i+t1:G0T0 8 
S22BB 


2,b 
DATA fi1,1#,1f,1f,1f,cd,96,bb,el,e5,7e 
d 


"##* RUNTIME-MODUL *%* 


[3626] 
[97C2] 
[C8CE] 
[916A] 
[6B02] 
[4348] 


[775C] 
[22EC] 


SaB10 LOAD"test" ‚480080: mz=PEEK (42881) :MO 


DE (mz-2B) 7/28 
59020 


LA9FB]I 


IF mz=28 THEN FOKE 42847 ,%34:FPOKE 


42042,%9E ELSE POKE 42947 ,%28:POKE 


42042 ,&AB 
S2038 CALL 42818 
50848 RETURN 


LEZACI 
[BO96] 
tESF2] 


Listing 3. So muß Ihr Ladeprogramm aussehen 


PRINT#9 werden nacheinander die 
einzelnen Basic-Zeilen in die Ausgabe- 
datei geschrieben. Besonders hervor- 
zuheben sind hierbei die Zeilen 25 
(1570) und 50010 (1660) des Lade- 
programms. 

In Zeile 25 werden die Farb-Register 
definiert. Sie können hier sehen, wie 
man ein Programm in einer Ausgabeda- 
tei an vom Benutzer eingegebene 
Werte anpaßt. Die Farbangaben sind ja 
keineswegs fix, sondern können vom 
Benutzer laufend verändert werden. 
Die aktuell zum Zeitpunkt der Abspei- 
cherung vorhandene Farbdefinition soll 
aber in das Ladeprogramm übernom- 
men werden. Der Lader muß also die 
Farb-Register auf die aktuellen Werte 
des Arrays f(15,2) setzen. 


STR$S — 
die Problemlösung 


Die Lösung dieses Problems finden 
Sie in Zeile 1570. Hier wird ein komple- 
xer String für alle 16 Register zusam- 
mengebaut. Dazu benutzen wir die 
STR$-Funktion, welche es uns erlaubt, 
einen Zahlenwert in einem String zu 
konvertieren. Diese Strings können wir 
dann problemlos (auch mit eingefügten 
Kommas und Doppelpunkten) addieren 
und erhalten so eine Summe von INK- 
Befehlen, die nur noch eine vorange- 
stellte Zeilennummer brauchen. 

In Zeile 50010 (1660) sehen Sie, wie 
man ein Laden von einem eingegebe- 
nen Benutzer-String abhängig machen 
kann. Unser Funktionsteil »Lader 
Sichern« soll nämlich nicht nur für ein 
ewig feststehendes Ladeprogramm 
gelten, sondern für beliebige. Wir müs- 
sen also zwischen mehreren Namen 
unterscheiden können, speziell, wenn 
wir mit der Diskettenstation arbeiten. 

Dies erreichen wir, indem wir den 
LOAD-Befehl nicht fix ausführen, son- 





dern ihm als Namen eine Benutzerein- 
gabe (hier in der Variablen n$ gespei- 
chert) mit auf den Weg geben. Als Kon- 
trollauszug finden Sie nachstehend ein 
probeweise gesichertes Ladepro- 
gramm (Listing 3). Damit können Sie 
überprüfen, ob Sie den Laderteil richtig 
eingegeben haben. 

In dem Beispiellisting wurde ein Lade- 
programm in der Ausgangsfarbzusam- 
menstellung gesichert. Rufen Sie sofort 
nach dem Durchlauf der Anfangsinitiali- 
sierung und Druck auf die »1-Taste« die 
Funktion 6 auf. Der Rest geschieht 
automatisch, von ein paar Eingaben 
Ihrerseits (PLAY und REC) einmal abge- 
sehen. 

Arbeiten Sie nun mit Designer und 
versuchen Sie interessante Titelbilder, 
Titelgrafiken oder Diagramme zu ent- 
werfen und zu speichern. Ihre Pro- 
gramme werden optisch sicherlich 
davon profitieren und Bewunderung 
hervorrufen. Ihr Verständnis für Ihren 
Schneider wird schnell größer. 

(Carsten Straush/hg) 


Software gesucht 


Happy-Computer ist die Zeitschrift 
zum Mitmachen. 

Um Ihnen in unserer Stammzeit- 
schrift Happy-Computer Interessan- 
tes aus allen Themengebieten zei- 
gen zu können, brauchen wir Ihre 
Mithilfe. Schicken Sie uns Listings, 
Artikel oder Basteleien, die wir veröf- 
fentlichen können. 


Senden Sie Ihre Beiträge an: 
Markt & Technik Verlag AG 
Redaktion Happy-Computer 
Hans-Pinsel-Straße 2 
8013 Haar bei München 




































































Manchmal reicht ein Zeichensatz 
allein nicht zur Darstellung aller 
benötigten Symbole auf dem Bild- 
schirm. Hier ist die eleganteste 
Lösung des Problems. 


a der Videoprozessor des CPC ständig im Grafikmo- 

dus arbeitet, müssen die Zeichen vom Betriebssy- 

stem pixelweise auf den Bildschirm verfrachtet wer- 
den. Der Vorteil dabei ist, daß man den Zeichensatz an jeder 
beliebigen Stelle im RAM-Speicher zwischen den Adressen 
16384 und 49152 ablegen kann. 

Das Betriebssystem merkt sich diesen Bereich in den Spei- 
cherstellen B294 hex und B296 hex, um den Zeichensatz 
wiederfinden zu können. Dazu steht in Adresse B294 hex 
(beim CPC 664 und CPC 6128 in Adresse B734 hex) der 
Wert, der bei SYMBOL AFTER angegeben wurde, bezie- 
hungsweise direkt nach dem Einschalten 240. In B296 hex 
(CPC 664 und 6128: B736 hex) steht die Start-Adresse des 
RAM-Zeichensatzes. 

Ändern Sie nun mit »POKE« den Inhalt der Adresse B296 
hex so, daß sie auf einen anderen Speicherbereich zeigt, läßt 
sich in Sekundenbruchteilen zwischen verschiedenen Zei- 
chensätzen wechseln. Bisher mußten die Zeichen dafür mit 
dem Befehl SYMBOL neu definiert werden. 

Der Zeichensatz kann mit »POKE« oder durch Laden eines 
Binärfiles an seinen Platz gebracht werden. Einfacher ist es 
jedoch, den Computer am Anfang eines Programms kurzzei- 
tig auf den Speicherbereich für den neuen Zeichensatz 








OO [831C]1 
+ * [81DA] 
[DSBE] 
C4BCE] 
[BEEB] 
[A626] 
[B4BC] 
[8458] 
[OBBA] 
ECDBC2] 
[6B1C]I 


" * DEMO: Mehrere Zeichensaetze . 
A gleichzeitig 

+ * 
De 2 727272 272222 222 E 2 22 22722277 


SYMBOL AFTER @B:MEMORY 32767 

»=PEEK (&B296) : y=FEEK (%B297) 

FOKE %&B296, iind FOKE %B297,%8@ 

FOR i=B TO 

SYMBOL i, AnDa2ss, RND*255 ,RND*255 ,RND 
*255 „RND*255 ,RND#+255 ,RND*255 , RND*255 
[1184] 
[A464F8] 
[2S5AE]I 
[88D4] 


NEXT i 

FOR i=i TOD 1 

FÜKE %B296,x:FOKE %B297,y 

FOR j=B TD 255:FPRINT CHR$ (1); ;CHR$ (j) 
[9466] 
[A218] 
LEACB] 


ı:NEXT j 

PRINT: PRINT 

FOÜKE %B296,%B:FOKE %B297,%80 

FOR j=B TO. 255:PRINT CHR$ (1); ;CHR$(j) 
;:NEXT 3 [BB4CI 
NEXT ıi CA5B6] 
FOKE %B296,x:FOKE %B297,y [2ACE]I 


Listing. Zwei Zeichensätze im raschen Wechsel 


umzuschalten, die Zeichen mit »SYMBOL<« zu definieren und 
dann wieder die alten Werte in B296 hex einzutragen. Sie 
können dann beliebig mit zwei POKE-Befehlen zwischen den 
Zeichensätzen wechseln. 

Das Listing zeigt ein einfaches Beispiel dafür. Wenn das 
Programm auf einem CPC 664 oder 6128 laufen soll, müs- 
sen nur die Adressen wie oben ausgetauscht werden. 

(Martin Kotulla/ja) 


Auf Dauer nur Power 


Der CPC 664 und 6128 haben ihrem 
»kleinen« Bruder CPC 464 einige zu- 
sätzliche Grafikbefehle voraus. 
»Power Graphics« bringt Besitzern 
des ersten Schneider-Computers 
eine entsprechende Befehls-Erweiterung. 


it »Power Graphics« stehen sieben neue RSX- 
Befehle zur Verfügung. Sie werden von einem 
senkrechten Balken eingeleitet, der durch gleich- 
zeitigen Druck auf die Tasten »Shift« und »@« erzeugt wird. 
Nachdem der Basic-Lader mit »RUN« gestartet wurde und 
der Computer das Signal »Ready« ausgibt, kann der Basic- 
Programmspeicher mit »NEW« gelöscht werden. Die Befehls- 
Erweiterung bleibt bis zum Ausschalten beziehungsweise 
Reset unverändert erhalten. 
IGPEN,f: Dieser Befehl legt mit »f« die Zeichenfarbe für Gra- 
fikbefehle fest. 
IGPAPER/;f: Wie »GPEN«, aber bestimmt die Hintergrund- 
farbe. 
ILINE,x,y,x1,y1,f: Dient zum Zeichnen von Linien und ähnelt 
somit dem Befehl »DRAW« des Locomotive-Basic 1.0. Im 
Unterschied dazu braucht man jedoch nicht mit »ORIGIN« 
den Startpunkt extra zu bestimmen. x und y entsprechen der 
Anfangs-, x1 und y1 der Endkoordinate und f steht wieder für 
die Farbe. 
ILINER,x,y,x1,y1,f: Ähnliche Wirkung wie »ILINE«. x1 und y1 
stehen hier nicht für fixe Koordinaten, sondern für die Distanz 
zu x und y. 








ITRI,x,y‚x1,y1,x2,y2,f: x, y, x1, y1, x2 und y2 legen die drei 
Eckpunkte des Dreiecks fest, das durch diesen Befehl 
erzeugt wird. 

IREC,x,y‚x1,y1,f: »REC« zeichnet Rechtecke mit den Koordi- 
naten x und y für die linke untere Ecke, und der horizontalen 
und vertikalen Ausdehnung, x1, y1. 

ISCROLL;r,f: Istr=0, rollt der Bildschirminhalt um eine Zeile 
nach unten. Für die Gegenrichtung benötigt r den Wert 1. f 
steht für die Farbe der nachrückenden Zeile. Die Werte für »f« 
sollten im Modus 1 entweder 0,15,240 oder 255 sein, da 
sich ansonsten Streifenmuster bilden. (Uwe Velker/ja) 
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Uwe Velker 


Kr 
KrrkKerkK 


EEE 

MEMORY &9PFFF 

FOR a=&ABBB TO %AB42:READ x$:POKE a, 
VALC"&"+x$) 2 sumli=suml+VAL("&"+x$) NE 
Ta 

IF sum1<>7369 THEN 358 

FOR b=&AB43 TO &ABFF:POKE b,B:NEXT b 


FOR c=&A1B8 TO &A21B:READ x$:POKE c, 
VAL("R"+x$) :sum2=sum2+VAL("&"+x$) NE 
XTc 

IF sum2< 42721 THEN 368 

CALL %ABBB: END 

DATA 01,09,38,21,43,a8,c3,d1,bc,2@,a 
a 


[BAFA] 


[D56A] 
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DATA c3,78,a1,c3,c@,a1,c3,@#,a2,47,5 
8,45,ce,47,58,41,50,45,d2,4c,49,4e,c 
5 L4F28] 


DATA 4c,49,4e,45,d2,54,52,c9,52,45,c 
L27F@] 


3,535,43,52,4f,4c,cc,08,880,00,08 
DATA fe,21,c8,dd,7e,B@,cd,de,bb,c9,f 
e,81,c8,dd,7e,8@,cd,e4,bb,c9,fe,85,c 
[") L1CSE)] 
DATA dd,7e,B@,cd,de,bb,cd,c&,bb,dS,e 
5,dd,56,89,dd,5e,88,dd,66,87 ,dd,6e,® 
& [1BEB] 
DATA cd,c@,bb,dd,56,85,dd,5e,84,dd,& 
6,83,dd,6e,82,cd,fö,bb,ei,di,cd,c@,b 
b [3498] 
DATA c9,fe,85,c80,dd,7e,@88,cd,de,bb,c 
d,c6,bb,d5,e5,dd,56,89,dd,Se,88,dd,& 
6 c3F42] 
DATA 87 ,dd,6e,86,cd,c®,bb,dd,56,85,d 
d,5e,84,dd,66,083,dd,de,82,cd,f9,bb,e 
1 [7984] 
DATA di,cd,c®,bb,c9,fe,87,c80,cd,c6,b 
b,d5,e5,dd,7e,8@,cd,de,bb,dd,56,@8d,d 
d [659A] 
DATA 5e,@c ,dd,66,@b,dd,6de,Ba,dS5,eS,c 


Wandern 


Ein kleines Maschinencode- 
Programm läßt in Sekundenbruch- 
teilen den Grafikbildschirm 
invertieren. Damit sind erstaunliche 
Effekte zu erzielen. 


enn Sie den Basic-Lader aus Listing 1 eintippen 
und starten, meldet der Computer auf dem Bild- 
schirm die Adresse des CALL-Aufrufs für die Ma- 
schinencode-Routine. Das Ladeprogramm legt den Maschi- 
nencode immer direkt unter HIMEM ab und setzt dann 
HIMEM um 20 Byte herunter. Solange Sie nicht mit 
»MEMORY«, »SYMBOL AFTER« oder durch das Öffnen einer 
Kassetten- oder Disketten-Datei etwas an der oberen Spei- 
chergrenze ändern, können Sie das Programm auch mit 
»CALL HIMEM + 1« aufrufen. 

Das Maschinencode-Programm Listing 2 invertiert in kür- 
zester Zeit alle Bildschirm-Punkte. So wird aus dem Byte 255 
jetzt Null und umgekehrt. Wenn Sie im Modus 2 arbeiten, wird 
die Zeichenfarbe gegen die Hintergrundfarbe ausgetauscht. 
In den beiden anderen Bildschirm-Modi ändern sich die Far- 
ben nach etwas komplizierteren Regeln, auf deren Erläute- 
rung wir hier aber verzichten wollen. 

Im Lader istauch eine Demonstration des Maschinencode- 














d,c@,bb,dd,56,89,dd,5e,@8,dd,66,87,d 
d 


LES7AI 
298 DATA 6e,86,cd,f6,bb,dd,56,85,dd,5e,@ 
4,dd,66,83,dd,6e,@2,cd,f&6,bb,ei,di,c 


d 
388 DATA #6,bb,ei,di,cd,cß,bb,c9,fe,85,c 
@,cd,c6,bb,d5S,e5,dd,7e,@@,cd,de,bb,d 


[1C70] 


d [53E8) 
31@ DATA 56,89,dd,5e,28,dd,66,87,dd,6e,@ 
6,d5,e5,cd,c®,bb,dd,56,85,dd,5e,@4,d 
d 


32@ DATA 664,03,dd,6e,82,e5,d5,11,08,@8,c 
d,f9,bb,d1,21,80,00,cd,f9,bb,ei,cd,c 
7 


338 DATA bd,11,88,@0,cd,f9,bb,ei,di,cd,f 
&,bb,ei,di,cd,c@,bb,c9,fe,@2,c8,dd,4 
& 


L895E] 


[F146] 


[C6E6] 

348 DATA 82,dd,7e,88,cd,4d,bc,c9 [8316] 

358 CLS:PRINT CHR$(7); "Fehler in den ers 
ten 56 DATA's":END 

368 CLS:PRINT CHR$(7);"Fehler in den DAT 


A's 67 bis 283":END 


LAAIE) 
LBE76] 
Listing. Grafik-»Power« bringt dieser Basic-Lader 


e Balken 


108 KRRKERUHRHRIHNHNRNNR NN NN RR 

110 ' * * 

128 * Bildschirm invertieren # 

158 * * 

148 

158 

168 MEMORY HIMEM-2B:FOR sehen? TO HIM 
EM+18:READ a:FOKE i,a:NEXT 

178 MODE 1:FEN 1:LOCATE 12,18: PRINT "Auf 
ruf: CALL &" ;HEX$ (HIMEM+1) 

188 LOCATE 19,15:SPEED INK 38,38: INK 3,1 
‚24:PEN 3:FPRINT "DEMO" 

198 FOR i=1 TO SBBB:NEXT i 

288 DATA %21,%&88,%CB,%11,%FF,&FF,&7E,&2F 
477 

218 DATA %253 
„&Cc9 

220 DEMO-FROGRAMM: 

238 MODE 1 

248 INK B,1:INK 1,24:INK 2,20: INK 3,6:IN 
K 4,1 

258 FOR i=1 TO 25 

268 FEN ı MOD 4 

278 PRINT STRING$ (48,145); 

288 NEXT i 

298 FOR i=1 TO 18BB:CALL HIMEM+1:NEXT i 


L9F78] 
[BB9IA] 
£19B4] 
EFBIE]I 
[4788] 
LE1BA] 


KERN 


[8442] 
[CS9E] 


[D®D4] 
£[7D84] 


[B468) 
‚ES ,&B7 ,LED,%&52,%E1,%20,&F5 
LCF74] 
[BEDB] 
[C156] 


L1EBCI 
[1ABE)] 
ECAFB] 
[7D2A] 
LAFB4] 
[A802] 


Listing 1. Der Bildschirm »kippt« 


Programms integriert. Durch eine optische Täuschung glaubt 

der Betrachter, auf dem Bildschirm würden ständig Balken 

abwärts wandern - wie gesagt: nur eine Täuschung! 
(Martin Kotulla/ja) 


ERIHIETEIEIEEERIEE EEE 
s* Bildschirm-Invertierung *#* 
BRITEN EEE 


#a000 
21002C0 
L1FFFF 


(hl),a 


hl 

hl 

a 
hl,de 
hl 


nz ,inv_lp 


h1,#c000 
de ,#ffff 
7E i : a,(hl) 


:Programmstart 
;Bildschirmanfang 
ıBildschirmende 

Byte lesen 

sinvertieren 

swieder speichern 
ınaechstes Byte 
vergleiche >hl< mit >de< 


sbis fertig 
sRuecksprung ins Basic 


. Quell-Code zum Invertieren 











RAAPPYM, 
KANLRKULER 
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Seidenweiche 
Bildschirmverschiebung Il 


Windows haben die Schneider CPCs 
ja ohnehin. Was bisher fehlte, war 
eine effektvolle Nutzung. »Omega- 
Basic« sorgt für Abhilfe mit butter- 
weichem Scrolling. 


n Happy- Computer, Ausgabe 9/85 beschrieb ein Artikel 

pixelweises Scrolling. Aber damals ging es darum, den 

gesamten Bildschirminhalt zu bewegen. Diesmal jedoch 
sollen beliebige Teilbereiche in Marsch gesetzt werden. Und 
das sogar in alle Richtungen. »OMEGA-Basic« heißt das Zau- 
berwort zum Öffnen der Schatztruhe. 

Listing 1 enthält den Basic-Lader für ein Maschinencode- 
Programm zur Erzeugung zehn zusätzlicher RSX-Befehle. 
Bevor Sie den ersten Probelauf durchführen, sollten Sie das 
Programm speichern. Nach korrektem Lauf legt es die 
Befehls-Erweiterung selbsttätig als Binär-Datei »OMEGA.BIN« 
ab. Für den späteren Gebrauch benötigen Sie den Basic- 
Lader nicht mehr. Es genügt dann, die RSX-Befehle mit 
»MEMORY &8FFF : LOAD ”OMEGA.BIN” : CALL &9000« 
zu laden und aktivieren. Die neuen Befehle beginnen, wie bei 
RSX (Resident System Extension) üblich, mit einem senk- 
rechten Balken, der durch gleichzeitigen Druck auf die Tasten 
»Shift« und »@ « entsteht. Darauf folgen die eigentlichen 
Befehlsworte, die sich in vier Kategorien fassen lassen. 


»Omega-Basic« — Eine Befehls- 
erweiterung für Feinschmecker 


Die erste Gruppe, »IROLLR«, »IROLLL«, »IROLLU« und 
»IROLLD«, läßt den Inhalt des gewünschten Bildschirm- 
Bereiches rollen; besser gesagt er »rotiert«. Was an einem 
Ende aus dem Bereich wandert, wird an der gegenüberlie- 
genden Seite wieder angefügt. Der letzte Buchstabe des 
Befehls steht dabei für die Richtung, in die gerollt werden soll. 
Genauso verhält es sich mit der zweiten Gruppe: »ISC- 
ROLLR«, »ISCROLLL«, »ISCROLLU« und »SCROLLD«. Hier- 
bei gehen die nach außen wandernden Informationen jedoch 
verloren. Nur je einen Befehl umfassen die beiden letzten 
Kategorien. »ICLW« löscht den Inhalt des Bildschirmberei- 
ches, »IINVERSE« invertiert (Hintergrund- wird Vordergrund- 
farbe und umgekehrt) ihn. 

Natürlich haben Sie sich schon gefragt, woher der Compu- 
ter wohl wissen soll, welcher Bereich denn nun gemeint ist. 
Selbstverständlich können Sie ihm genau das mitteilen, 
indem Sie an jeden der aufgeführten Befehle beim Aufruf vier 
Werte übergeben. Listing 2 zeigt sehr eindrucksvoll die Syn- 
tax und Wirkungsweise. Die einzelnen Werte stehen, in der 
Reihenfolge der Aufzählung, für X-Ordinate, Y-Ordinate, 
Breite und Höhe des Bild-Ausschnittes. Die Wirkung sehen 
Sie am besten, wenn Sie selbst ein bißchen mit dem Beispiel- 
programm experimentieren. 

Die Routinen sind auf den Bildschirm-Modus 2 ausgelegt. 
Da die Farbcodierung in den anderen beiden Modi abweicht, 
ergeben sich dort bei horizontalen Bewegungen farbliche 
Veränderungen, die aber durchaus ihren Reiz haben können. 
Wichtig für eigene »Omega«-Programme ist nur, daß vor dem 
Bildaufbau durch einen MODE-Befehl die Bildschirm-Basis 
festgelegt wird. 

(Heiko Falkenhof und Matthias Wagner/ja) 





"Basic Loader Omega 
"Heiko Falkenhof & Matthias Wagner, T 


empelberg 28, 2153 Neu Wulmstorf 


48 MEMORY 
FOR n=@® TO 58 


adr=& 9808 
adr-i 


68 checksumme=B 


FOR 
READ wert 
POKE adr+n#15+a-1,wert 


a=1 TO 15 


checksummeschecksumme+wert 

NEXT a 

READ kontrollsumme 

IF checksumme< >kontrollsumme THEN PR 
INT"Datafehler in Zeile ":(n+1)#10+1 
88: END 

NEXT n 

"Omega" ,B,adr „‚«36B 


1818 DATA 8,2085,21,147,1,13,144,33,105,1 


1020 
1830 
1948 
19858 
1968 


1270 
1288 
1298 
1308 


1518 
1328 
1338 
15348 


44,195,209,188,45,144, 1594 
DATA 195,94,146,195,43,146,195,79,1 

47,195,93,147,195,52,145, 2867 

DATA 195,122,145,195,219,145,195,6, 
147,195,249,145,195,158,146, 2457 
DATA 83,67,82,79,76,76,204,83,67,82 
‚79,76,76,210,83, 1423 

DATA 67,82,79,76,76,213,83,67,82,79 
‚76,76,196,82,79, 1413 

DATA 76,76,284,82,79,76,76,218,82,7 

9,76,76,213,82,79, 1566 

DATA 76,76,196,73,78,86,69,82,83,19 
7,67,76,215,8,2@1, 1575 

DATA 0,0,8,8,13,191,32,66,65,83,73, 

67,32,49,46, 717 

DATA 48,32,32,32,32,32,32,164,32,49 
‚57,56,53,32,72, 755 

DATA 181,1@5,1@7,111,32,78,97,1@8,1 

27,101,118,1@84,111,1@2,32, 1398 
DATA 38,32,77,97,116,116,104,105,97 
‚115,32,87,97,183,11®, 1326 

DATA 101,114,13,10,2@02,232,144,243, 
254,4,194,18,145,22,8, 1696 

DATA 221,126,6,58,227,144,79,221,12 

6,2,50,229,144,6,175, 1806 

DATA 129,218,18,145,128,218,18,145, 

221,126,4,58,228,144,79, 1871 

DATA 221,126,0,58,230,144,6,230,129 
‚„218,18,145,128,218,18, 1881 

DATA 145,201,0,0,88,1,281,62,0,50,2 

27,144,50,228,144, 1533 

DATA 62,88,50,229,144,62,25,58,230, 
144,201,33,176,191,58, 1735 

DATA 228,144,198,1,71,17,80,8,25,16 
‚253,58,227,144,95, 1557 

DATA 22,0,25,201,33,36,145,6,16,126 
‚205,98,187,35,16, 1143 

DATA 249,30,255,22,255,251,2@01,13,7 

9,117,116,32,111,1@02,32, 1865 

DATA 83,99,114,1@81,1®1,11®,13,1@,28 

5,169,144,122,254,255,2@0, 1988 
DATA 285,251,144,43,14,8,58,23@0,144 
‚87,229,58,229,144,71, 1915 

DATA 229,213,22,0,88,25,126,23,119, 

43,16,250,245,22,8, 1421 

DATA 58,229,144,95,25,241.48,2,203, 
198,209,225,213,17,88, 1987 

DATA @,25,289,21,32,216,225,213,17, 

0,8,25,209,13,32, 1245 

DATA 281,251,2@1,2@85,169,144,122,25 
4,255,200,285,251,144,14,8, 2624 
DATA 58,230,144,87,229,58,229,144,7 
1,229,126,31,119,35,16, 1886 

DATA 258,225,48,2,203,254,213,17,88 
‚2,25,2@9,21,32,231, 181® 

DATA 225,213,17,0,8,25,209,13,32,21 

6,251,281,285,169,144, 1928 

DATA 122,254,255,200,205,251,144,17 
‚8,1608,58,23@,144,71,14, 2125 


DATA 8,229,205,234,145,213,17,8,8,2 
5,209,13,32,244, „225, 1807 

DATA 213,17,80,0,25,209,16,232,251, 
201 285.172. 145.123.254. 2147 

DATA 255,200,33,8,168,205,234,145,2 
51,281,197,229,58,229,144, 2541 
DATA 6,8,79,237,176,225,84,93,193,2 
81,205,169,144,122,254, 2188 


Listing 1. Der Basiclader erzeugt die Befehlserweiterung 
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C[C314] 
[9326] 
CASOC]I 
[4B24] 
[396E] 
[8430] 
[C14C] 
EBCOC]I 
[85328] 
[384A] 
E1BE4] 
[8516] 


[9BB8] 
[35484] 
[5200] 
LEF1C]I 
[2712] 
EDAB4] 
(79D8] 
[5A92] 
[8CB4] 
[1684] 
[75806] 
CABDE)] 
CA27A] 
[DES2] 
[402E] 
LZAECI 
[56BA] 
[5608] 
[6278] 
[284C] 
£[D926] 
[FA22] 
£[877C] 
[85C6] 
[F480] 
[8342] 
[C6CE]I 
[4558] 
[CSFE] 
[A4EC]I 
[BEBA] 
L172E] 
[E918] 
[25B2] 


CDBAC]I 
[2BC6] 
[7CA4] 
[64B4] 















































1358 DATA 255,20@0,205,251,144,14,8,58,23 
0,144,87,229,58,229,144, 2256 

1360 DATA 71,229,126,47,119,35,16,258,22 
5,213,17,80,8,25,209, 1662 

1378 DATA 21,32,235,225,213,17,0,8,25,28 
9,13,32,220,251,2B01, 1782 

138@ DATA 205,169,144,122,254,255,251,2@ 
0,205,251,144,14,8,58,230, 251® 

139@ DATA 144,87,229,58,229,144,71,229,1 
26,31,119,35,16,250,225, 1993 

1408 DATA ?13,17,08,0,25,209,21,32,235,2 
25,213,17,8,8,25, r} 

1410 DATA 289,13,32,220,251,2@1,205,169, 
144,122,254,255,200,205,251, 2731 

1420 DATA 144,43,14,8,58,230,144,87,229, 
58,229,144,71,229,213, 1981 

1430 DATA 22,0,88,25,126,23,119,43,16,25 
0,22,0,58.229,144, 1165 

1440 DATA 95,25,209,225,213,17,80,8,25,2 
09,21,32,222,225,213, 181l 

1450 DATA 17,0,8,25,209,13,32,287,251,28 
1,205,189.144,87,254, 1822 


[1506] 
CDFC4] 
CBö1C) 
LAIIE)I 
LAA2A] 
[4EF2] 
[D842] 
[D444] 
CAE86] 
LADAQ] 
C18BC] 
[848A] 
[C384] 
L[I9AB]I 
E[BCDA] 


1468 DATA 255,200,205,251,144,14,8,58,23 
0,144,87,229,58,229,144, 2256 

1470 DATA 71,229,54,8,35,16,251,225,213, 
17,88,0,25,209,2i1, 


1445 

1480 DATA 32,236,225,213,17,0,8,25,289,1 
3,32,221,201,205,169, 1806 

1490 DATA 144,122,254,255,200,205,251,14 
4,58,238,144,71,17,80,8, 2175 

1588 DATA 25,16,253,17,176,55,25,17,80,16 
8,71,14,8,229,205, 1271 

1518 DATA 234,145,213,17,0,8,237,82,209, 
13,32,243,225,213,17, 1888 

1528 DATA 80,0,237,82,289,16,238,251,201 
‚2@5,2@8,146,122,254,255, 2494 

1530 DATA 200.33,0,160,205,234,145,251,2 
01,62,2,2@05,14,188,6, 1986 

1548 DATA 40.33,189,144,126,2@5,98,187,3 
5,16,249,6,5,33,255, 1553 

1558 DATA 255,43, 124, 181,32,251,16,246,1 
224 ,1,62,1 230, 1717 

1560 DATA 144, 19° 203. 181,146,193,11,12® 
‚177,32,246,62,2,205,14, 1855 

157@ DATA’ 189,62,201,50,@0,144,201,205,17 
6,145,122,254,255,200,33, 2236 

1588 DATA 80,120,205,234, 145,201, 205,206 

‚146,123,254,255,208,33,80, 2527 L2DFE] 

159@ DATA 160, 205,234,145,201,0,0,0,0,0, 

2,0,0,0,8, 945 L69A6] 


Listing 1. Der Basiclader erzeugt die Befehlserweiterung 
(Schluß) 


[618C] 
[L6FC2) 
[CBSE)I 
[7190] 
[7F72] 
C13D4] 
[7BE6] 
L4A30] 





" DEMO Frogramm Omega 

“ Heiko Falkenhof % Matthias Wagner [CE818] 
MEMORY &BFFF=LOAD"Omega":CALL %97800 C9C35®] 
MODE 2 C13F6] 
FOR n=1 TO 9:PRINT STRING$ (18,CHR$ (19 
1)) NEXT 
FOR n=1 TO 3:FOR m=1 TO 8 
IROLLR,@8,8,21,12 

!ROLLD,8,8,21,12 

NEXT m,n 

LOCATE 6&,35PRINT CHR$(191);" Basic 1 


[5236] 


[6364] 
[266C] 
[CFC8] 
L9IDAE] 
C9DDE] 


[@F44] 
c[25C2] 
EDCIE) 
[788C] 
C8BDE)] 
[ö5DE] 
CB1D®] 
[69EE] 
CEFEB] 
CABIB]I 
[91C6] 
[6CE4] 
LE63C] 
[355C] 
COFCE] 
[9186] 


.a 

FOR N=1 TO 728: !ROLLR,2,2,18,1:NEXT 
FOR n=1 TO 248 

!ROLLU,3,3,9,9 

IROLLR,3,3,18,4 

IROLLL,3,8,18,4 

IROLLD,12,3,9,9 

NEXT 

FOR N=1 TO 221 

IROLLU,3,3,9,9 

!IROLLD,12,3,9,9 

NEXT 

ICLW,9,6,6,3 

FOR n=1 TO 3 

FOR m=1 TO 48 

IROLLR,3,3,6,7 

IROLLR,3,3,6,9 

IROLLL,15,3,6,7 

IROLLL,15,3,6,9 

!ROLLD,3,3,18,3 

IROLLU,3,9,18,3 

NEXT m 

ı INVERSE,3,3,18,9 

ICLW,9,6,6,3 

NEXT 

ı INVERSE ,3,3,18,7 

FOR n=1 TO 32 

!SCROLLL,3,3,6,9 

!SCROLLL,3,3,6,7 

!SCROLLR,15,3,6,9 

ISCROLLR,15,3,6,7 

!SCROLLU,3,3,18,3 

!SCROLLD,3,9,18,3 

NEXT [6EEC]I 
LOCATE 40,8:PRINT"Press any key to e 

nd" CE636] 
!CLW,3,3,18,9 CDCA6] 
IF INKEY$<>"" THEN END 14522] 
60T0 358 CDC58] 


Listing 2. Experimentieren Sie mit »Omega-Basic« 








Mit Tricks 
an ROM- 
Routinen 


Es gibt auch in Basic eine Vielzahl 
nützlicher ROM-Routinen. Wichtige 
Routinen wollen aber Parameter, 
und das ist von Basic aus normaler- 
weise nicht möglich. 











it einem Trick geht es doch. Bedingung ist, daß der 
einzige zu übergebende Wert im Akkumulator (A- 
Register) steht und der Wert kleiner als 33 ist. 
Dazu muß man wissen, daß der Basic-Interpreter erlaubt, 
bei CALL-Befehlen bis zu 32 Parameter zu übergeben, zum 
Beispiel: 
»CALL &A000,3,4,@a$,-32« 
Der Routine wird dann im IX-Register die Basisadresse der 





gespeicherten Parameter übergeben und im Akku die Anzahl 
der Parameter, die dem CALL-Aufruf folgen. 

Und das ist auch schon der ganze Trick: Durch eine Anzahl 
von Dummy- oder Leer-Argumenten wird der Akku mit deren 
Zahl geladen und der ROM-Routine übernmittelt. 

Nützliche Anwendungen lassen sich leicht dafür finden. 
Beispielsweise fehlt dem CPC 464 der, bei den Nachfolge- 
modellen vorhandene, GRAPHICS-PEN- und GRAPHICS- 
PAPER-Befehl, der sich jedoch recht einfach simulieren läßt: 
»GRAPHICS PEN 0« = »CALL &BBDE« 

»GRAPHICS PEN 1« = »CALL &BBDE,0« 
»GRAPHICS PEN 2« = »CALL &BBDE,0,0« 
»GRAPHICS PEN 3« = »CALL &BBDE,0,0,0« 
»GRAPHICS PEN 4« = »CALL &BBDE,0,0,0,0« 

GRAPHICS PEN setzt die Vordergrundfarbe für die Grafik- 
ausgabe analog zum PEN-Befehl, der nur auf die Textaus- 
gabe wirkt. GRAPHICS PAPER steuert die Farbe des Grafik- 
fensters und wird zum Beispiel nach »CLG« sichtbar: 
»GRAPHICS PAPER 0« = »CALL &BBE4« 

»GRAPHICS PAPER 1« = »CALL &BBE4,0« 
»GRAPHICS PAPER 2« = »CALL &BBE4,0,0« 
»GRAPHICS PAPER 3 = »CALL &BBE4,0,0,0« 
»GRAPHICS PAPER 4« = »CALL &BBE4,0,0,0,0« 

Diese CALL-Aufrufe funktionieren auch auf dem CPC 664 
und CPC 6128, so daß Anwender, die austauschbare Pro- 
gramme schreiben wollen, statt der GRAPHICS-Befehle bes- 
ser auf diese Routinen zurückgreifen. Kompatibilität ist also 
durchaus erreichbar. 


(Martin Kotulla/ja) 
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immerkiste 


Wer wünscht sich nicht, Grafiken 
»ruck-zuck« auf dem Bildschirm zu 
haben. Dabei kann das Gegenteil 
davon manchmal erheblich reizvol- 
ler sein. 


as Programm »Blenden« zeigt Effekte, die durch 
Benutzung der Register des Video-Controllers mög- 
lich sind. 

Der HD 6845 hat insgesamt 17 Register. Die Register bis 
einschließlich 11 sind lediglich beschreibbar, während die 
Register 12 bis 15 gelesen und beschrieben und die Register 
16 bis 17 nur gelesen werden können. Man erreicht sie, 
indem man über Schnittstellen-Adresse BCOO hex mit einem 
OUT-Befehl die Nummer des Registers angibt und es danach 
mit »IN« oder »OUT« über Adresse BDOO hex liest oder 
schreibt. Im Klartext: 

10 input »Registernummers;r:input »Wert«;w 

20 out &bcOO;r:out &bd00O,w 

30 goto 10 

ermöglicht ein Beschreiben des angegebenen Registers, 
10 input »Registernummers;r 

20 out &bcOO,r:in &bdOO,w:? »Wert =«;w 

30 goto 10 

das Lesen. Sie können nun sehr eindrucksvoll Bilder ineinan- 
der übergehen lassen und so effektvolle Spiele programmie- 
ren. (Dieter Braun/ja) 
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18 REM  kunterakinisien KERN KDRRMZ 
[D346] 
[648D8] 
[6588] 
EF@ODCI 
EFCAB]I 


KR 

FOR n=25 TO 8 STEP-1 

OUT &BCBB,6:0UT &BD@Q,n 

QUT %&BCaQ, ee &BDBB,n+5:CALL &BD19 

NEXT:CALL &BD 

OUT &BCOQ, &tour &BD90,8 [7892] 
" RHT ‚gRC®®, ‚7:DUT &BDBOO,8 


REM II Hochholen #0 
KEHRR CAFF6] 
FOR n=B TO 25 [2BC2] 
OUT &BCB8,5:0UT &BD@B,n [6766] 
OUT %&BCBB,7:0UT &BDBB,n+5:CALL &BD19 


148 
150 
168 

[8D42] 
180 CEB24] 
208 


NEXT: RETURN 
REM III 
“ru 

FOR n=25 TO B STEP-1 

OUT &BCB89,5:0UT &BD@Q,n:CALL &BD19 
NEXT 
RETURN 
REM IV 
WEHR 
OUT &RCBB,7:0UT &BDBB,38 

FOR n=8 TO 25 

OUT &BCBOB,5:0UT &BDBB,n:CALL &BD19 
NEXT 
RETURN 
REM v 
KH 
z=38 
FOR n=25 TO 8 STEP-2 

QUT %&BC@B,7:0UT &BDBA,z:z=z-1i1 

EL RERD SON HEIE &BDBB,n:CALL &BD19 


VUeberblenden ########%%%% 

[128C) 
[C432] 
[D27A] 
[78E8] 
CAD2E] 


218 
220 
238 
258 
388 Aufblendern von oben ####** 

[78CA] 
[F94E) 
[33C6] 
[D182] 
C4BFB] 
[A634] 


318 
348 
358 
368 
378 
Auf Mitte ueberblenden #%*#* 

LiFD®] 
[46546] 
[6838] 
[B712] 
[8C88] 
[Tö6EE] 
[4A64] 
[A934] 


OUT &BCBB,6:DUT &BDBQ,B: 
RETURN 
REM vI 


Von Mitte aufblenden ####* 
WR 

z=18:REM Hier Bild aufbauen 

FOR n=8 TO 25 STEP 2 

OUT &BCBO,7:0UT %&BDBB,z:z=z+1 

QUT &BCBB,6:0UT &BDBQ,n:CALL &BD19 
NEXT 

OUT &BCBB,5:0UT &BD98,25 

RETURN 
REM 
KERER 
FOR n=48 TO @8 STEP-1 
OUT &BCBB,1:0UT &BDBB,n 
FOR m=8 TO 5:NEXT 

NEXT 


[&D4C] 
[2844] 
[D428] 
[FS318] 
C[D382] 
[75F8] 
[3368] 
[AA36] 
VII Seitwaerts Blenden ###x#%#%*%* 

[B33A] 
[D834] 
[CBs8] 
[B1S5E] 
[84FB8] 


648 
788 


718 
728 
725 
738 
748 
808 


818 
828 
838 
848 
858 
868 
878 
888 


20848 


20058 


28078 
2BB80 


28898 
21800 
21818 


21828 
210358 


21835 
21848 
21058 
21188 


21118 
21128 
21138 
21148 
21158 


21158 


RETURN 

REM 
“rer 

FOR n=B TO 48 

OUT &BCBB,1:0UT %BD@@,n 

FOR m=B TO 5:NEXT 

NEXT 
RETURN 
REM IX 

en #* 
z=46 

FOR n=48 TO 1 STEP-2 

OUT &BCB8,1:0UT &BD@@,n 

OUT &BCBB,2:0UT &BDBB,z:CALL &BD19 
z=z-1 

NEXT 

OUT &BCQB,1:0UT %&BD@0,8 

RETURN 
REM x 

nden 
z=26 

FOR n=B TO 48 STEP 2 

OUT &BCB8,1:0UT &BD@G,n 

OUT &BC8B,2:0UT &BDBB,z:CALL &BD1i9 
z=z+1 

NEXT 
RETURN 
REM 
“rr% 
GOSUB 488: GDOSUB 888 
RETURN 
REM 
2 22 
GOSUB 988: G0SUB 588 
RETURN 
REM 


VIII Seitwaerts Blenden auf ## 


Seitwaerts auf Mitte Blend 


Seitwaerts von Mitte aufble 


XI In Mitte Blenden ##H##xH%#%* 
XI Von Mitte aufblenden 


KR 


XII Erdbeben / Explosion ein 


*% 
OUT &BCB8,8:0UT &BDBB,1 
RETURN 
REM 
**% 
OUT &BCBB,8:0UT &BDB8,2 


XII Erdbeben / Explosion aus 


XIII Eckblenden #0 %% 


FOR n=48 TO B STEP-1 

OUT &BC@8,1:0UT &BD@8,n 

OUT &BCBB,5:0UT &BDBB,INT(n*B.625): 

CALL &BD19 

NEXT 

RETURN 

REM 

“rrr* 

FOR n=B TO 48 

OUT &BCQB,1:0UT &BD@B,n 

OUT %BCBB,5:0UT &BDBB,INT(n*B.625): 

CALL &BD19 

NEXT 

RETURN 

MODE 1:LDOCATE 16,2:PRINT CHR$ (24); 
"EFFEKT"; CHR$ (24) 
PRINT:PRINT:BORDER ® 

PRINT"Durch direkten Zugriff auf d 
ie Register des Video-Controllers 
koennen tolle{S5 SPACE}Effekte erzi 
elt werden. ":PRINT 

PRINT"Um ein Bild aufzubauen kann 
z.B. die An-leitung davor mit eine 
r schicken Blende mit der Borderfa 
rbe ueberschrieben wer- den, das B 
ild im Dunkeln aufgebaut und{2 SPA 
CE}danach mit einer Blende wieder 
gezeigt{2 SPACE}werden." 
PRINT:PRINT"Oder man laesst das Bi 
ld bei einer{6& SPACE}Explosion erz 
ittern." 

LOCATE 13,25:PRINT"Taste druecken. 
" 


XIV Eckaufblenden #HHHHHHnHH% 


CALL &BB18 

MODE 1:LOCATE 4,12:PRINT"Blende Nu 

mmer 1" 

FOR n=B TOD 3BBB:NEXT 

d=1:en=8 

ON d GOSUB 19,2900,400,600,800, 1000 

‚1308 

MODE 1:LOCATE 4,13:PRINT"Blende Nu 

mmer ";d+1 

ON d GOSUB 182, 

8,1408 

FOR n=B TO 3888: NEXT 

d=d+1:IF d=en THEN 21188 

G0OTO 21818 

MODE 1:LOCATE 5,13:PRINT"Bildzitte 

rn" 

FOR n=® TO 2B98:NEXT 

GOSUB 1288 

FOR n=B TO 5888:NEXT 

GOSUB 1258 

a 1:2LOCATE 4,13:PRINT"Das war's 
2n.. "Call &BB18 

MODE 2:END 


300,508,700,920,11® 


Listing. Szenenwechsel »Wie im Kino«. 


[1B34] 


[8FE2] 
[ACC2] 
[BQ62] 
[F768] 
CD3F2] 
LAC3S6] 


[B2A6] 
[7AB4] 
[IFSEI 
[DF66] 
[9B9AI 
[9498] 
L76FA)I 
[84F2] 
£[C140)] 


[5B14] 
[73B2] 
[7524] 
[C168] 
L7F9CI 
[BE96] 
LIDFCI 
[2240] 


[86B4] 
[5810] 
[8586] 


[8216] 
[9816] 
[8588] 


[FS24] 
LA7ACI 
CABBA] 


[8E48] 
LACSB] 
[8994] 


[BHARBI 
[BB9B] 
[EBBCI 


[99A2] 
[FB4E] 
LAA92] 


[8DE6] 
CöB1E] 
[öBBE)] 


[63A4] 
tE758] 
[8B94] 


ESFA4A] 
[SESE] 


LCAAF2] 


CAB14] 


[18D8)] 


[1324] 
[ABDB] 


[öASE] 
[3A38] 
tEDCE)] 


[9I36E] 
[BACA] 


CCFDE] 
[2138] 
[39770] 
L4ECA] 


[L1SF@] 
[472A] 
[3BF2] 
[1D34] 
[4B98] 


[B768] 
[CC44] 
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Von CALL, RSX und 


Zwar ist das Basic 
des Schneiders 
reichhaltig, aber es 
gibt drei Wege, den 
Sprachumfang des 
Interpreters zu erweitern. 


as Basic des Schneider zählt - 

speziell wenn man es mit ande- 

ren Dialekten im Heimcompu- 
ter-Bereich vergleicht - zu einer der 
stärksten Versionen. Dennoch stellt 
man bereits nach relativ kurzer Einge- 
wöhnungszeit einige Mängel fest. So 
fehlt beispielsweise ein Befehl, der das 
Zeichnen von Kreisen erleichtert. Es 
gibt zwar eine Reihe vorgefertigter 
Algorithmen für solche und ähnliche 
Problemstellungen und für die meisten 
Standardprobleme existieren auch 
bereits fertige Programme in Z80-Ma- 
schinencode. Das Problem besteht nun 
aber darin, diese an den Schneider 
anzupassen, und zwar möglichst kom- 
fortabel. Eine Erweiterung sollte dabei 
möglichst wie ein normaler Basic- 
Befehl angesprochen werden. Dazu 





müssen wir aber unser Maschinen- 
code-Programm irgendwie mit dem 
Interpreter verbinden. Um den Wort- 
schatz des Interpreters zu erweitern, 
gibt es beim Schneider mehrere Wege. 

Der CPC kennt zwei verschiedene 
Grundvarianten, um ohne Eingriffe in 
die Hardware Maschinencode-Routi- 
nen von Basic aus aufrufen zu können: 
den Aufruf eines Systemprogrammes 
mit CALL und die Einbindung eines 
Maschinenprogrammes in das Be- 
triebssystem mit Hilfe einer sogenann- 
ten RSX. Dieses Kürzel steht für Resi- 
dent System Extension, was übersetzt 
als bleibende Systemerweiterung inter- 
pretiert werden kann. Daneben existiert 
beim 464 noch eine indirekte Art der 
Einbindung, die sich besonders für grö- 
Bere Spracherweiterungen eignet. Die- 
ser Weg führt über die sogenannten 
Error-Vektoren. 

Wir wollen uns die verschiedenen 
Varianten anhand einer kleinen Basic- 
Spracherweiterung anschauen. 

Einführend befassen wir uns mit dem 
Aufruf eines Maschinencode-Pro- 


gramms mit CALL und RSX. Der CALL- 


Befehl hat das Format »CALL <An- 
sprungadresse >,Wert 1,Wert 2, _..... ; 
Wert n«, wobei die Wertangaben optio- 
nal sind. Insgesamt können maximal 32 
16-Bit-Werte übergeben werden. Sie 
können aber auch entfallen. Trifft der 
Basic-Interpreter unseres Schneiders 
auf dieses Kommando, so ruft er die 
Routine auf, die ab der angegebenen 
Adresse vorliegt. Die übergebenen 
Daten befinden sich beim Aufruf in 
einem Zwischenspeicher, dem soge- 
nannten Stack. Die Register der CPU 
enthalten dabei die zur Datenabfrage 
und Interpretation notwendigen Infor- 
mationen. 


Befehlserweiterung 
mit Komfort: RSX 


Zum Vergleich schauen Sie sich den 
Aufruf einer RSX an. Die RSX stellt eine 
Erweiterung des Betriebssystems dar. 
Ihr Aufbau ist um einiges komplizierter 
als der Aufruf eines einfachen CALL- 
Befehls. Allerdings erhält man als Lohn 
für seine Anstrengungen auch einen 
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erheblich verbesserten Bedienkomfort. 

Im Prinzip handelt es sich bei der RSX 
um ein Maschinencode-Programm, ge- 
nauer eine Serie von Maschinencode- 
Routinen, über die ein Programmkopf in 
einem bestimmten Format so gestülpt 
wurde, daß die Programme durch den 
Interpreter aufgerufen und ausgeführt 
werden können. Dementsprechend 
erfolgt der Aufruf der Erweiterung 
innerhalb einer RSX dann auch ähnlich 
wie die Ansprache eines Basic- 
Kommandos. Das Format lautet dabei 
»<Name der RSX-Routine > Wert 
1,Wert 2, ... ‚Wert n« und ähnelt damit 
stark dem CALL-Aufruf. Auch die Daten- 
übergabe erfolgt auf dieselbe Art und 
Weise. Bevor wir uns näher mit den 
Unterschieden zwischen RSX und 
CALL-Kommando beschäftigen, müs- 
sen wir uns zunächst einmal der eigent- 
lichen Datenübergabe, das heißt dem 
Zustand der CPU-Register und des 
Stack beim Aufruf dieser Programme, 
zuwenden. 


Die Datenübergabe 
erfolgt indiziert 


Die Register A und B sowie das 
Indexregister IX stehen in direktem 
Zusammenhang mit der Anzahl der 
übermittelten Daten. A beinhaltet ihre 
Anzahl. Es können maximal 32 Werte 
an eine Maschinencode-Routine oder 
RSX übergeben werden. B gibt die Dif- 
ferenz zwischen dem tatsächlichen und 
dem Maximalwert 32 oder 20 hex an. 

Die einzelnen übermittelten Daten 
sind dabei auf einem Stapelspeicher, 
dem Stack, abgelegt. IX gibt die 
Adresse des untersten Elements die- 
ses Speichers an. Jeder Wert, den wir 
den Befehlen mitgeben, wird in eine 
16-Bit-Binärzahl umgewandelt, diese 
wiederum byteweise (zuerst die 8 nie- 
derwertigen Bits und dann die 8 höher- 
wertigen) auf dem Stapel abgelegt. Der 
erste übergebene Wert liegt zuoberst. 
Mit zunehmenden Werten dehnt sich 
der Stapel dann immer weiter nach 
unten aus, womit auch IX kleinere Werte 
enthält. Machen wir uns das Zusam- 
menwirken der drei Register nun einmal 
anhand eines Beispiels klar. 

Dazu betrachten wir ein ganz norma- 
les CALL-Kommando: »CALL 
40000,250,1000«. 

Wie sehen nun unsere Registerin- 
halte aus? Für A und B ist diese Frage 
einfach zu beantworten. Es wurden 2 
Parameter übergeben. A enthält folglich 
eine 2 und B eine 30 (32 minus 2). Der 
Stapel sieht dabei wie folgt aus: 

00 

FA 

03 

E8 


IX deutet nun auf die letzte Adresse 
dieses Speichers, also die mit dem Wert 
E8. Die benutzten hexadezimalen 
Werte erhalten Sie, indem Sie sich mit 
der Funktion HEX$ das hexadezimale 
Aquivalent der nach dem CALL-Kom- 
mando stehenden Zahlen ausgeben 
lassen. 

»PRINT HEX$(250,4)« liefert als 
Ergebnis OOFA. Führen wir denselben 
Befehl mit dem Wert 1000 durch, so 
erhalten wir als Ergebnis O3E8. Diese 
Werte schreiben wir nun einfach von 
oben nach unten in unseren Stapel und 
erhalten damit den oben beschriebe- 
nen Stapelaufbau. 

Wie können wir aber nun die im Stack 
stehenden Daten in die Register unse- 
res Prozessors (der CPU) laden, damit 
wir damit in unseren Maschinencode- 
Programmen arbeiten können. 

Das ist relativ einfach. Der Z80-Pro- 
zessor kennt nämlich Befehle, die das 
indizierte Laden eines Registers der 
CPU aus der durch das Indexregister IX 
adressierten Speicherstelle erlaubt. 
Wenn wir also unsere 1000 in den Regi- 
stern H und L speichern wollen, so 
genügen zwei einfache Kommandos. 
LD H, (IX+1) 

LD L,(IX+0) 

Damit befinden sich die beiden Bytes 
dieser Zahl als 16-Bit-Wert in dem Regi- 
sterpaar HL gespeichert. Dasselbe Ver- 
fahren können wir natürlich nun auch 
verwenden, um die 250 in das Regi- 
sterpaar DE laden. Nach 
LD D, (IX+3) 

LD E,(IX+2) 

ist unsere Datenübertragung perfekt, 
und die auszuführende Maschinen- 
code-Routine, die auf diese Daten 
zurückgreifen soll, kann aufgerufen 
werden. An deren Ende muß dann der 
Maschinensprache-Befehl RET (C9 
hex) stehen, der den Computer 
anweist, ins Basic zurückzukehren. 

Wir haben jetzt alle Informationen, die 
wir brauchen, um an ein Maschinen- 
code-Programm Daten mit CALL zu 
übergeben und diese dann ausführen 
zu lassen. Wir wollen deshalb beide 
Varianten, den CALL-Befehl wie auch 
die RSX, anhand eines konkreten Bei- 
spiels durchexerzieren. 

Als Beispiel schreiben wir uns eine 
Maschinencode-Routine, die den Gra- 
fikspeicher umschaltet. Die Umschal- 
tung der Bildschirmbasis geht am ein- 
fachsten mit der Firmware-Routine SCR 
SET BASE. Diese erfordert in Register 
A das signifikante Byte der Bildschirm- 
adresse. Man kann zwar auch zwei Rou- 
tinen schreiben, wobei die erste auf den 
unteren Grafikspeicher umschaltet, die 
andere auf den oberen; wenn man aber 
einen Entscheidungsparameter mit 


übergibt, reicht auch nur eine Routine 
aus. Legen wir unser Beispielprogramm 


ab Speicherstelle 40000 ab, so lautet 
der Aufruf: »CALL 40000, < Inhalt Regi- 
ster A>«, wobei der einzige Parameter 
durch das signifikante, höherwertige 
Byte der Bildschirm-Basisadresse zu 
ersetzen ist. Wollen wir auf den unteren 
Grafikspeicher umschalten, so müßte 
hier der Wert 40hex eingegeben wer- 
den, ansonsten CO hex. Die nachste- 
henden niederwertigen 8 Bit finden 
durch SCR SET BASE ja keine Berück- 
sichtigung. 

Ein Maschinencode-Programm, das 
auf die Dateneingabe reagiert, ist dann 
problemlos zu schreiben. Es benötigt 
nur drei Befehle: 


LD A, (IX+0) DD 7E 00 
CALL SCR SET BASE CD 08 BC 
RET c9 


Die hexadezimalen Codes DD TE ste- 
hen für das Laden des Akkumulators 
aus der durch IX adressierten Speicher- 
stelle. Der dritte Wert gibt die Differenz 
zur gesuchten Speicherstelle an (in 
unserem Fall keine = O). Wenn Sie 
diese sieben Werte nach »MEMORY 
39999« mit »PPOKE 40000,&DD:POKE 
40001,&7E:POKE 40002,&00:POKE 
40003,&CD:POKE 40004,808:POKE 
40005,8&8BC:POKE 40006,8C% in 
den Speicher ab der Adresse 40000 
laden, so können Sie mit »CALL 
40000,&40« auf den unteren Speicher 
schalten und mit »CALL 40000,&C00« 
wieder zurückkehren. (Der Aufruf der 
beiden Bildspeicherbereiche erfolgt 
nur korrekt, wenn zwischenzeitlich der 
Bildschirm nicht geSCROLLt wurde.) 


Zweiter Grafik- 
speicher 


Dies ist die einfachste Variante des 
CALL-Befehls. Sie dürfen nach demsel- 
ben Prinzip natürlich auch mehrere 
Variablen übermitteln. Speziell, wenn 
Sie mit verschiedenen CALL-Befehlen 
in ein und demselben Programm arbei- 
ten, werden Sie möglicherweise die 
Ansprungadressen verwechseln oder 
auch die zu übermittelnden Daten. Hier 
gibt es wieder eine relativ einfache psy- 
chologische Hilfe. Sie definieren näm- 
lich Variable entsprechend der Namen 
der Maschinencode-Routinen und 
laden diese mit der Aufrufadresse. 
Dann können Sie ein Programm auch 
mit Namen aufrufen. Wenn Sie bei- 
spielsweise die Variablen 
Umschaltung=40000 
Oberspeicher=&C0 
Unterspeicher=&40 
festlegen, so können Sie mit »CALL 
Umschaltung,Unterspeicher« auf den 
unteren Grafikspeicher schalten, bezie- 
hungsweise mit »CALL Umschal- 
tung, Oberspeicher« wieder den norma- 
len, oberen Grafikspeicher ab Adresse 
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COOO hex benutzen. Funktional hat 
sich bei dieser Art des Aufrufes nichts 
geändert. Der einzige Unterschied 
besteht darin, daß durch diesen Trick 
der CALL-Befehl etwas »menschen- 
freundlicher« gestaltet wurde. 

Wir können unseren Aufruf jedoch 
noch komfortabler gestalten, indem wir 
die Umschaltung zwischen den Bild- 
schirmen als Basic-Kommando mit Hilfe 
der RSX ausführen. 

Beginnen wir mit einigen grundsätzli- 
chen Bemerkungen zur Ablage der 
RSX. Eine resistente Systemerweite- 
rung ist immer im RAM, genauer in den 
zentralen 32 KByte RAM abgelegt. 
Dies ist der erste Unterschied zum 
CALL-Befehl, der den gesamten RAM- 
Speicher unseres Computers adressie- 
ren kann. 

Während wir also mit CALL jede Ad- 
resse zwischen O und 65535 dez als 
Startwert eines Maschinencode-Pro- 
grammes benutzen dürfen, sind wir bei 
der Verwendung des RSX-Befehls auf 
die Adressen von 4000 bis BFFF hex 
beschränkt. Eine RSX legt man daher 
meist an der Speicherobergrenze ab. 

Woraus besteht nun eine RSX? Um 
diese Frage zu beantworten, gehen wir 
am besten von der Art des Aufrufes aus. 
Wie schon gesagt, schafft eine Sy- 
stemerweiterung mit RSX neue Befehle 
(Basic-Erweiterungs-Befehle). Der Auf- 
ruf einer RSX-Routine geschieht daher 
auch mit einem Basic-ähnlichen Befehl. 

Unser Beispielprogramm könnten wir 
mit den Kürzeln OGRAPH (für das 
Umschalten auf die obere Grafik) und 
UGRAPH (für die Bewegung in der 
Umkehrrichtung) bezeichnen. Wenn 
wir dann in einem Basic-Programm 
diese Befehle mit dem immer noch vor- 
anzustellenden Erweiterungsstrich (»I«) 
eingeben, so soll der Schneider auto- 
matisch auf den gewünschten Spei- 
cherbereich umschalten. 

Das setzt natürlich voraus, daß der 
Computer die zugehörige Ausfüh- 
rungsroutine kennt und weiß, daß diese 
irgend etwas mit den beiden Komman- 
dos zu tun hat. Wir müssen das 
Betriebssystem also zuerst von der Exi- 
stenz dieser Routine in Kenntnis set- 
zen: Die RSX muß initialisiert werden. 

Ist eine RSX-Funktion einmal in das 
Betriebssystem eingebaut worden, so 
kann man sie immer wieder im Verlauf 
des Programms ohne weitere Informa- 
tionen an das Betriebssystem aufrufen. 
Alles funktioniert genauso, wie bei 
einem normalen Basic-Befehl. 

Die Initialisierungsprozedur erfolgt 
dabei mit Hilfe einiger Routinen aus 
dem Betriebssystemkern, den Kernal- 
Routinen. Wir wollen uns die Einbin- 
dung der RSX in das Betriebssystem 
einmal anhand unserer beiden Befehle 
anschauen. 


Eine RSX besteht aus zwei großen 
Teilen 
- einem Sprungzeigerteil und dem Ma- 
schinencode-Programm. 

Der Sprungzeigerteil enthält die Auf- 
rufadressen aller Maschinencode-Rou- 
tinen, die zur RSX gehören. Eine 
Tabelle, die angibt, bei welchen Namen 
welche Routine aufgerufen werden soll, 
findet sich auch in diesem Teil. 

Im zweiten Teil stehen die eigentli- 
chen Programme. Wir können die aus- 
zuführenden Maschinencode-Routi- 
nen in beliebiger Reihenfolge (gegebe- 
nenfalls auch ineinander verschachtelt) 
an jeder Stelle im RAM positionieren. 

Etwas anders sieht es dagegen mit 
unserer Sprungtabelle aus. Diese darf, 


LD HL,0000 

LD (AO 10),HL 

LD BC, <RSX-Anfang= 
AO20> 

LD HL, <Kernal-Spei- 
cher=A0O35 > 
JPKLLOG EXT 


21 0000 
22 10 AO 
01 20 AO 


21 35 AO 
C3 Di BC 


Zwischenspeicher 
OFFSET LOW 
Zwischenspeicher 
OFFSET HIGH 


28 AO 
C3 40 AO 
C3 60 AO 
55 


Anfang Namenstabelle 
JP UGRAPH 
JP OGRAPH 


U 
G 
R 
A 
P 
H 
(6) 
G 
R 
A 
P 


H + 80 HEX 
Trennungsnull 
Kernal-Speicher 
3 Bytes frei 


'PRG:UGRAPH 
CALL SCR GET 
LOCATION 
EX DE,HL EB 

LD A,840 3E 40 
CALLSCR SET BASE CD 08 BC 
LD HL,(AO10) 2A 10 AO 
CALLSCR SET OFFSET CD 05 BC 
LD (A010),DE ED5310A0 
RET c9 


CD OBBC 


'PRG:OGRAPH 
CALL SCR GET 
LOCATION 

EX DE,HL EB 

LD A,&CO 3E CO 
CALL SCR SET BASE CD08BC 
LD HL,(AO10) 2A 10 AO 
CALL SCR SET OFFSET CD 05 BC 
LD (AO10),DE ED5310AO 
RET c9 


CD OB BC 





Tabelle 1. RSX-Sprungblock 


wie schon gesagt, nur in den zentralen 
32 KByte des Speichers liegen, also 
nicht unterhalb eines ROMS. Normaler- 
weise wird man sie, wie schon von der 
CALL-Routine gewohnt, an der Spei- 
cherobergrenze - also zum Beispiel im 
Bereich von AOOO hex oder auch 
40000 dez - ablegen. 

Die Sprungzeigertabelle besteht aus 
zwei Teilen: dem eigentlichen Sprung- 
zeigerblock und den Namen der neuen 
Befehle. Für den Aufbau dieser beiden 
Blöcke gelten eine Reihe von Konven- 
tionen, die unbedingt eingehalten wer- 
den müssen; sonst kann der Betriebs- 
systemkern, das Kernal, die Maschi- 
nencode-Routinen nicht in den Basic- 
Interpreter einbinden und später auch 
nicht ausführen. Sie finden den Aufbau 
eines RSX-Sprungblocks in Tabelle 1 
am Beispiel unserer beiden Befehle. 

Den Anfang dieses Maschinenspra- 
che-Listings bildet die Initialisierungs- 
routine für die RSX. Wir kommen auf 


diesen Programmteil gleich noch 
zurück. Ab Adresse AO2O hex finden 
Sie dann die eigentliche RSX- 


Sprungtabelle. 

In den ersten 2 Byte unseres Sprung- 
blocks steht eine Adresse, der Zeiger 
weist auf den Anfang der Namensta- 
belle. Danach folgen als Sprung- 
Kommandos (JP) die Aufrufadressen 
der verschiedenen Routinen. Diese 
sind im 3-Byte-Format hintereinander 
abgelegt. Der Aufruf erfolgt jeweils 
durch einen unbedingten direkten 
Sprung (JP). 

Ab der Adresse, auf die der Zeiger der 
Namenstabelle deutet, liegen dann die 
einzelnen Befehlsnamen. Ein solcher 
darf aus einem oder mehreren Buchsta- 
ben und/oder Punkten bestehen. Leer- 
schritte innerhalb des Namens sind 
nicht zugelassen, da der Computer den 
Leerschritt als Trennmarkierung zwi- 
schen einzelnen Basic-Kommandos im 
Interpreter benutzt. 

Würden wir also einen Befehl mit 
Leerschritt definieren, so würde der 
Interpreter ihn als zwei neue Basic- 
Kommandos erkennen. Wenn wir 
davon ausgehen (was der wahrschein- 
lichste Fall ist), daß die Einzelwörter kei- 
nen Sinn ergeben, also als einzelne 
Kommandos nicht definiert sind, ergibt 
sich ein »Syntax Errore«. 

Die ASCII-Codes der Namen sind nun 
hintereinander - beginnend mit dem 
ersten Namen - abzulegen. Dabei muß 
allerdings noch ein Punkt beachtet wer- 
den. Da Befehlsnamen und Variablen- 
namen beim Schneider keine vorgege- 
bene Länge haben, muß dem Computer 
irgendwie mitgeteilt werden, daß der 
Name beziehungungsweise die Na- 
mensdefinition beendet ist. 

Dies geschieht, indem man zum letz- 
ten Zeichen des Schlüsselwortes 128 
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oder 80 hex addiert. Dadurch wird das 
höchste Bit (Bit 7) gesetzt, was der 
CPC als Endmarkierung wertet. Aus 
diesem Grund ist auch klar, daß Grafik- 
zeichen (mit Werten über 128) in 
Befehlswörtern nichts zu suchen 
haben. Der CPC würde diese in ein, um 
128 im ASCII-Code niedriger liegendes 
Zeichen, übersetzen und das Befehls- 
wort als abgeschlossen betrachten. Da 
er mit den nachfolgenden Zeichen 
nichts mehr anfangen könnte, ergäbe 
sich wiederum eine Fehlermeldung. 
Den Abschluß der Namenstabelle bildet 
ein Byte mit dem Wert O0 hex. 

Nach dem Ende der Tabelle müssen 
noch 4 Byte für den Betriebssystem- 
kern reserviert werden. Hier stellt der 
Computer die Verbindung zum Basic- 
Interpreter her. 

Wenn Sie diese Konventionen be- 
achten, ist die Initialisierung der RSX 
kein Problem mehr. Der Anfang unserer 
RSX-Befehlstabelle muß in das Regi- 
sterpaar BC geladen werden. Die 
Adresse des ersten für das Kernal 
reservierten Bytes gehört in HL. Wenn 
Sie jetzt noch die Betriebssystemrou- 
tine KLLOGEXT aufrufen, istIhre Arbeit 
beendet. Die neuen Routinen sind als 
Erweiterungskommandos _ integriert. 
Den Rest leistet der CPC selber. 

Die dazu notwendigen Befehle finden 
Sie am Anfang unseres Assemblerli- 
stings. Die ersten beiden Befehle gehö- 
ren dabei nicht zur Initialisierungsrou- 
tine. Sie löschen vielmehr die Speicher- 
stellen AO10 und AO11. In diesen 
Adressen werden unsere beiden 
Maschinencode-Programme den letz- 
ten Offset (Abstand zwischen Start- 
adresse (Basis) des Bildspeichers und 
Adresse des ersten Zeichens) zwi- 
schenspeichern. Um eine definierte 
Anfangsposition zu erhalten, sind diese 
beiden Adressen am Anfang auf O zu 
setzen. 

Damit sind wir nun auch bei der Erklä- 
rung der eigentlichen Routinen ange- 
langt. Komplizierter aufgebaut als die 
einfachen Versionen, die mit CALL 
arbeiteten, weisen sie dafür aber einen 
bedeutend höheren Komfort auf. 

Ab Adresse AO40 hex finden Sie die 
Befehle für das Kommando UGRAPH. 
Zunächst wird eine Betriebssystemrou- 
tine aufgerufen - SCR GET LOCATION. 
Diese stellt eine kombinierte Umkehr- 
routine zu SCR SET BASE und SCR 


RER 
* graphikswitch rsx #* 


’* 
** bv C.S. ** 


Bi 2 227222 2 202 202 272727272272 22222 
MEMORY &4208-1 
DATA 21,808,00,22,10,20,81,28,30,21,35 


‚ad,c3,di,bc,x 


DATA 28,28,c3,40,20,c3,60,a8,55,47,52 
‚41,58,c8,4#,47,52,41,50,c8,20,28,08, 


O,% 
DATA cd,2b,bc,eb,3e,498,cd,88,bc,2a,18 


‚ad,cd,@5,bc,ed,53,190,3a80,c9,x 


SET OFFSET dar. Sie liest die aktuellen 
Werte für Basis und Offset und gibt 
diese in Register A (signifikantes Byte 
der Basis) beziehungsweise in das 
Registerpaar HL (Offset) zurück. 

Als nächsten Schritt sichern wir 
durch Vertauschen der Registerinhalte 
HL in DE und laden dann den Akkumula- 
tor mit 40 hex. Es folgt der Aufruf von 
SCR SET BASE und damit die Umschal- 
tung auf den unteren Grafikspeicher. 
Damit ist vorerst unsere Arbeit beendet 
und wir können ins Basic zurückkehren. 


Auch mit Patches 


geht’s 


Ein guter Verschiebebefehl muß es 
jedoch ermöglichen, mit verschiede- 
nen Werten für den Offset zu operieren. 
Wenn beispielsweise auf dem Haupt- 
bildschirm ein Scroll ausgeführt wurde, 
so würde ohne Berücksichtigung des 
Offset auch der Inhalt unseres Neben- 
speichers neu interpretiert werden. Es 
fände auch hier eine Verschiebung 
statt. Dies darf jedoch nicht passieren, 
wenn man permanent zwischen zwei 
Schirmen hin- und herschalten will, um 
dort die verschiedenen Ausgaben zu 
positionieren (wobei ja nicht jedesmal 
der Schirm gelöscht werden darf). 

Daher setzen UGRAPH und 
OGRAPH auch gleichzeitig noch den 
Offset neu - und zwar auf den alten 
Wert, der in dem nun aktuell ausgewähl- 
ten Grafikspeicher vor der letzten 
Umschaltung Geltung hatte. 

Dazu wird der letzte Offset, der in 
AO10 und AO11 hex zwischengespei- 
chert war, in HL geladen. Als nächstes 
setzt SCR SET OFFSET den Offset- 
Zeiger auf den in HL gespeicherten 
Wert. Damit ist nun auch der Offset- 
Pointer korrigiert. 

Wem dieser Offset ein Buch mit sie- 
ben Siegeln ist, der sollte sich an das 
Scrollen des Bildschirms beim Schnei- 
der erinnern. Normalerweise stimmt die 
Startadresse des Bildspeichers mit der 
Adresse des oberen linken Punkts 
überein. Wird allerdings der Bildschirm 
um eine Zeile nach oben geschoben 
(gescrollt), so wird einfach zu der Start- 
adresse des Bildspeichers ein Wert 
(Offset) addiert, so daß das Zeichen der 
zweiten Zeile angesprochen wird. 


£[SSDC]I 
[Bs8C1 
[CD7E] 
[935E2] 
£[C78C] 
EFFCA]I NEXT i 
NEXT k 


[48BC] 
[F288] 





Startadresse des Bildspeichers und 
Adresse des ersten Zeichens stimmen 
also nicht mehr überein, sondern sind 
durch den Offset getrennt. Jedesmal, 
wenn sich das Bild verschiebt, ändert 
sich dieser Offset. Zurück zu unserem 
Programm: 

Nach der Umschaltung auf den alten 
Offset-Wert muß natürlich der neue, 
gerade überschriebene Wert gesichert 
werden, denn bei einer Rückschaltung 
brauchen wir diesen ja wieder. Am 
Anfang unserer Routine hatten wir ihn in 
DE gesichert. Wir laden nun unseren 
Zwischenspeicher an der Adresse 
AO10 hex aus diesem Registerpaar und 
können jetzt mit RET wieder ins Basic 
zurückkehren. 

Die Interpretation des Befehls 
UGRAPH ist damit abgeschlossen. Um 
das Kommando OGRAPH ausführen zu 
können, müssen wir in unserer Befehls- 
kette nur eine einzige Angabe ändern, 
nämlich den Wert der Bildschirmbasis. 
A muß dazu mit CO hex geladen wer- 
den. Das restliche Programm bleibt 
gleich. 

Unsere Befehlserweiterung ist damit 
komplett. Sie muß nur noch im Speicher 
Platz finden. Dazu dient ein kleines 
Ladeprogramm (Listing). Nachdem Sie 
das Programm eingetippt haben, soll- 
ten Sie es vor dem ersten RUN-Versuch 
unbedingt speichern. Bereits ein klei- 
ner Fehler in einem DATA-Statement 
kann dazu führen, daß sich der Compu- 
ter »aufhängt«. Die RSX-Befehle wer- 
den nach »RUN« mit »CALL &AO00« 
(CALL<Startadresse Initialisierungs- 
routine) eingebunden. 

Sie sollten nun ruhig ein wenig mit der 
RSX-Erweiterung spielen und sich 
überlegen, wie Sie eigene Maschinen- 
code-Programme auf das RSX-Format 
bringen können. Als Ausgangsbasis 
Ihrer Überlegungen kann Ihnen Tabel- 
le 1 dienen. 

Zu Beginn dieses Artikels haben wir 
erwähnt, daß es noch eine dritte Art der 
Einbindung von Maschinencode-Routi- 
nen in den Basic-Raum gibt - die 
Befehlsinterpretation mittels der Error- 
Vektoren. Die ersten beiden Varianten 
sind durch das Betriebssystem vorge- 
sehen und auch vorbereitet und binden 
eine erlaubte Erweiterung in das 
System ein. Die Error-Vektoren ähneln 
eher dem Basic-Kommando ON 
ERROR GOSUB und sind eher für Pro- 


98 DATA cd,2b,bc,eb,3e,c®,cd,88,bc,2a,18 
‚a8B,cd,85,bc,ed,53,10,a0,c9,x 
2 FOR k=8 TO 53 
FOR i=k#+%20+&ABBOO TO kKr&2O+LAQ2R 
READ as: IF a$="x" THEN 148 ELSE POKE 
1,VAL(Ü"K"+a$) 


L8BC8] 
C2A4C]I 
[3D84) 


[BAF4] 
[23F8] 
C2DFE)] 


FOR i=&ABBB TO %A1BB:PRINT HEX$(1,2) 
„HEX$(PEEK (i) „2) NEXT 


Listing. Der Basic-Lader für unsere RSX-Befehle 


LCBF2] 





NA Dprr 
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Kennen Sie auch 
die Schneider-Ausgaben 1 und 2 
von »Happy-Computer«? 
Nein? 
Dann sollten Sie diese beiden Sonderhefte 
unbedingt kennenlernen! 


Denn mit Schneider 1 schaffen 
Sie sich ein ausführliches und 
umfassendes Grundlagenwissen. 





Ed 


Das erste große Schneider-Sonderheft 


Lernen Sie die fast unbegrenzten Einsatzmöglichkeiten 
der tollen OC-Sch kennen. Vergrößern 
Sie den Spaß an Ihrem Hobby und reißen Sie Ihren 
Computer noch mehr aus. Über 120 Seiten Hilfe. Alle 
Schneider-Computer - CPC 6128, 664, 464 - im Ver- 
gleich. Grafik: »Geheimcodes« zur Bildschirmgestal- 
tung. Listing: Malen wie auf einer Leinwand. Sound: Ihr 
Schneider spielt Bach/Musik und Sound selbst program- 
miert. Anwendungen: Echtzeitverarbeitung aut dem 
Schneider / Assembler-Disassembler für den CPC 464. 
Tips& Tricks: Deutsche Tastatur für Ihren Schneider. 





Schneider 2 hält viele 
weiterführende Informationen, 
Anwendungen, Tips und Tricks parat. 


var R 
SE AAPPY.x 
%59° cOMPUTER 


Vom Bildschirm-Zoom 
bis zum Disketten-Doktor 


. 
selbst - 
% RS232-Schnittstelle 
%* Reset-Schalter 


% Drucker 
%* Hoppy-Laufwerke 
%* Speichererweiterungen 


Das zweite große Schneider-Sonderheft 


Wichtige Tips und Tricks für Einsteiger und Fortgeschrit- 
tene: U.a. selbsttätiges Kopieren der gesamten Diskette 
auf Kassette / Neuer RSX-Befehl Eis / Zeitersparnis: 
Speichern im Block. Listings: Disk-Doktor / Krimi-Ad- 
venture »Famit AG« / »Supermon CPC-1002« / Alle Listings 
mit Prüfsumme. Grundlagen: So programmiert man 
3-D-Grafik / Die interessantesten Firmware-Routinen. Preis- 
wert selbstgebaut: RS232-Schnittstelle - mit maß- 
geschneidertem DFU-Programm / Reset-Schalter ohne 
Speicherlöschung. Hardware-Einkaufstips: Drucker, 
Floppy-laufwerke, Speichererweiterungen. 


Nutzen Sie die Bestellmöglichkeit 
der Schneider-Sonderhefte 1 und 2 mit der 
eingehefteten Zahlkarte im vorliegenden Sonderheft 
von »Happy-Computer«)! | 





















































Bedeutung 
Patch für Ready-Modus 
Patch für Error-Einsprung 


Patch für Befehlsausführung 

Patch für Funktionsberechnung 

Patch für Konstante holen (wird durch Interpreterfehler nicht benutzt) 
Patch für Eingabe, Tokenumwandlung 

Patch für Ausgabe, Token listen 

Patch für Ziffernumwandlung bei Eingabe 

Patch für Operatoren 





Tabelle 2. Die 9 Patches des Schneider CPC 464 


fis geeignet. Um sie zu verstehen, muß 
man sich den Ablauf der Befehlsana- 
Iyse beim Schneider etwas näher anse- 
hen. Wenn der CPC beim Programmlauf 
oder im Direktmodus auf einen Befehl 
trifft, so vergleicht er die Zeichenkette, 
die dieser Befehl für ihn erst einmal dar- 
stellt, mit einer Reihe von intern abge- 
speicherten Zeichenketten, den Basic- 
Befehlen. In einem zweiten Schritt wird 
dann, falls ein Befehl ermittelt wurde, 
der Parameter benötigt - beispiels- 
weise eine Zeilenangabe bei GOTO - 
und festgestellt, ob überhaupt Parame- 
ter vorhanden sind und ob diese den 
angegebenen Voraussetzungen genü- 
gen (Format-Check). Bei einem GOTO- 
Befehl würde geprüft, ob die angege- 
bene Zeilennummer überhaupt exi- 
stiert. Nach all diesen Überprüfungen 
führt der Computer den Befehl aus. Die 
einzelnen Teile der Interpreterkette sind 


dabei weitgehend voneinander unab- 
hängig. Die Verbindung zwischen den 
einzelnen Teilen geschieht mit Hilfe von 
sogenannten Patches - absichtlichen 
Flickstellen im System. Bei diesen Pat- 
ches handelt es sich um einfache RET- 
Befehle. Der Schneider kehrt also nach 
dem Aufruf des Patch unmittelbar wie- 
der zu der Position zurück, von der ab 
der Aufruf erfolgte. Auf den ersten Blick 
erscheint dies nicht besonders sinnvoll. 
Bei näherem Hinsehen entpuppt es 
sich aber als genialer Trick. 

Wenn beispielsweise irgendwo ein 
Fehler enthalten ist - sei es, daß Sie 
einen Leerraum vergessen haben oder 
die angegebene Zeilennummer nicht 
existiert, erfreut Sie der Schneider nor- 
malerweise mit seinem reichen Reper- 
toire an Fehlermeldungen. Er verläßt 
dazu an verschiedenen Stellen die 
Interpretationskette und ruft einen Pro- 


Massenspeicher 
besser genutzt 





vielleicht vermuten. 


it »IUSER,x«, »IDRIVE«, »IA« 
und »IB« lassen sich der 
Benutzerbereich und das 


verwendete Laufwerk (A oder B) festle- 
gen. Leider gibt es keine Befehle, die 
erlauben, diese Parameter abzufragen. 
Mit Hilfe einiger PEEK-Befehle geht es 
dennoch! 

Dazu muß man wissen, daß an der 
RAM-Adresse BE40 hex die Start- 
adresse des DPH (Disk Parameter 
Header) von Laufwerk A gespeichert 
ist. Liest man diese Adresse aus und 
zieht von ihrem Inhalt den Wert 528 ab, 
erhältman die Startadresse des von der 
Floppy belegten RAM-Bereichs: 
»START=PEEK(&BE40)+PEEK 
(&BE41)* 256-528 





‚aktive 


Welchem Massenspeicher Sie auch den Vorzug 
geben; ob Sie mit Diskette oder Kassette als 
Speichermedium arbeiten - beide bieten mehr, als Sie 


Am Anfang dieses Speicherbereichs 
befinden sich die gesuchten Informatio- 
nen: 

»PRINT PEEK(START)« liefert das mit 
»IDRIVE«, »IA «oder»IB« gewählte Lauf- 
werk. 
»PRINT PEEK(START+1)« meldet die 
User-Nummer (Benutzerbe- 
reich). 

»PRINT PEEK(START+ 2)« liefert das 
zuletzt aktive Laufwerk. Dieser Wert 
muß nicht unbedingt mit 
»PEEK(START)« übereinstimmen, denn 
es gibt jaauch die Möglichkeit, die Lauf- 
werksbezeichnung im Dateinamen 


anzugeben: beispielsweise ”B:PROG. 
BIN” 
Geben Sie also folgendes ein: 


grammteil auf, der dann den passenden 
Kommentar ausgibt. Zwischen Inter- 
preterkette und Fehlerausgabe begibt 
er sich aber noch zu einer anderen 
Stelle im RAM, dem sogenannten Error- 
Patch. Dabei handelt es sich um eine 
Stelle, die uns Möglichkeit zum Eingrei- 
fen bietet. 

Da diese Verbindung im RAM gespei- 
chert ist, kann man durch Löschen oder 
Überschreiben des Patches noch vor 
der Fehlerausgabe einen eigenen Pro- 
grammteil einbinden. Dieser muß dann 
prüfen, ob es sich bei der Fehlermel- 
dung um einen wirklichen Fehler durch 
Falscheingabe oder vielmehr um einen 
neuen Befehl handelt, der interpretiert 
werden soll. 

Dieses Verfahren erfordert jedoch 
einige Sachkenntnis in Hinblick auf die 
inneren Abläufe des Interpreters. Die 
Einbindung von Befehlen auf diese Art 
und Weise ist also nichts für den Anfän- 
ger. Wer trotzdem damit experimentie- 
ren will, kann die Funktion der einzelnen 
Patches aus Tabelle 2 entnehmen. 
Angegeben ist dabei jeweils das erste 
Byte. Dieses muß durch einen einfa- 
chen Sprungbefehl (JP) überschrieben 
werden. Die Aufrufadresse Ihrer neuen 
Routine kommt dabei in die nächsten 
beiden Bytes. 


(Carsten Straush/hg) 


»lA« 

»a$="B:*.* ”:IDIR,@a$« 

dann resultiert aus »PEEK(START)« 
eine Null, »PEEK (START+2)« aber der 
Wert Eins. 

Wie Sie die Speicher-Geschwindig- 
keit des Kassettenrecorders im CPC 
464 mit zwei POKE-Befehlen auf rund 
3600 Baud erhöhen können, stand in 
unserem Schneider-Sonderheft Aus- 
gabe 1/86. 


Recorder-Tuning 


Inzwischen haben wir aber herausge- 
funden, wie Sie diesen Trick auch auf 
dem CPC 664 und CPC 6128 anwen- 
den können. Beide Computer besitzen 
zwar keinen eingebauten Kassetten- 
recorder, aber statt dessen eine DIN- 
Buchse zum Anschluß eines externen 
Recorders. 

Die Speicherstelle für die Recorder- 
Geschwindigkeit liegt im CPC 664 und 
CPC 6128 auf der Adresse BI1E9 hex. 
Die POKE-Befehle für alle drei 
Schneider-Computer lauten also: 

CPC 464: »POKE &B8D1,2:POKE 
&B8D2,23« 

CPC 664 und 6128: »POKE 
&B1E9,2:POKE &B1EA,23« 

(Martin Kotulla/ja) 
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Serienbriefe 
— kein Problem 


Das Programm WordStar erfreut sich 
immer größerer Beliebtheit. Die Schar 
der eifrigen Benutzer sorgt ständig 
für neue Tips, die seinen Bedie- 
nungskomfort vergrößern. 





rst seit kurzem stolzer Besitzer eines Textverarbei- 
tungs-Programms wie Wordstar, brennt man natürlich 
gleich darauf, dessen fantastische Möglichkeiten zu 
nutzen. Und da fällt der Blick auf eine Fähigkeit, die wirklich 
Tolles leistet: MailMerge! Es kann Daten aus einer vorhande- 
nen Datei mit fertigen Texten vermengen und so beispiels- 
weise Serienbriefe selbsttätig drucken und adressieren. Also 
auf in den Kampf und kurzerhand auf die Adreßdatei zurück- 
gegriffen, die bisher auf irgendeiner Diskette schlummerte. 

Alles wunderbar? Denkste! MailMerge mag nämlich Datei- 
en, die unter Amsdos gespeichert wurden, gar nicht so recht 
leiden. Was nun? Aufgeben und sämtliche Daten eben noch- 
mal neu in eine MailMerge-Datei eingeben? Nein, man 
schreibt sich eben ein kleines Basic-Programm, das jetzt und 
in Zukunft die unterschiedlichen Dateiformate entsprechend 
aufbereitet. 

Dazu muß man natürlich wissen, wie beide Formate über- 
haupt strukturiert sind. Nichts leichter als das. Man lädt unter 
CP/M die jeweilige Datei in den CP/M-Maschinensprache- 
Monitor DDT. 

Bei der Untersuchung des Speicherinhaltes wird die Struk- 
tur schnell deutlich. Nach jedem Datum, das mit »PRINT 
# 9,var$« gespeichert wurde, steht ein Carriage-Return und 
ein Line Feed (ODOA hex). Diese Byte-Folge findet sich 
jedoch in einer MailMerge-Datei nur ein einziges Mal, nämlich 
ausschließlich hinter dem letzten Eintrag. 

Die Konsequenz ist, daß das Umwandlungs-Programm die 





REIHE IHNEN 
s KONVERTIEREN EINER *r% 


C&BA4] 
[D748] 


[7894] 
CASBE]I 
[A496] 
[8262] 
[E498] 


E2E93] 


[OCBö] 
[4566] 
[2D98] 
LEöBE] 
[CDA8] 
[OFF6] 
C3CB4] 
[3840] 
[CEAE] 
[63BC] 
[3@B2] 
tE42C) 
[88D2] 
[8100] 
[BOCE) 
LAAACI 
[316E] 
[F&BB] 
[A448] 
[1482] 
[OFDC) 
LF9IIEI 
[94E2] 
[F672] 
[S3E8] 
C[B18A] 
[A932] 


>> SCHNEIDER CPC X64 << 


AMSDOS — ADRESS - DATEI 


IN EINE 


"#*##* WORDSTAR — MAILMERG — DATEI #** 
"ar% *% 
r%* *r% 
RI 
r%* 
"r%* 
"r%* 
ar 
r% 
"Er 
%* 
"er Telz 84421/385137 #%*%* 
RRRRRRRRRISIIIISEI AIG ÄIAIHAE NASE 


(C) 1985 by 


Hans-Joachim Hesse 


2948 Wilhelmshaven 


G0T0 15080 * HauptProgr amm 
"sasssseseessemommeomomeeeeeeneene 
BILDSCHIRM FORMATIEREN 
"seeszmeessseessooeemesemememeneenen 
MODE 2 
WINDOW #9,1,88,4,22 
PAPER #8,B:PEN #09,1 
WINDOW #1,1,88,1,3 
PAPER #1,1:PEN #1,8 
WINDOW #2,1,808,23,25 
PAPER #2,0: PEN #2, 1 
FOR I = 8 TO 2: CLS #D: 
RETURN 


NEXT I 





jedem Datenfeld folgenden Feldmarkierungen entfernen und 
durch ein Komma ersetzen muß. 

Nachdem der Name der Amsdos-Datei, die maximale 
Anzahl der zu lesenden Datensätze, die Anzahl der Datenfel- 
der innerhalb eines Satzes und zuletzt der Name der entste- 
henden MailMerge-Datei eingegeben sind, liest das Pro- 
gramm die Daten in das Variablenfeld < Adresse$(MaxSatz, 
MaxFeld)> ein (Programmzeilen 700 bis 860). Dabei wird 
hinter jedem Datenfeld, den MailMerge-Konventionen ent- 
sprechend, ein Komma und ein Leerzeichen gesetzt. Ist die 
Datei komplett, kann man mit Hilfe des Programm-Blocks in 
den Zeilen 1300 bis 1410 wählen, welche Daten letztendlich 
in die neue Datei kommen. Ab der Zeile 1130 beginnt dann 
die Speicherung der selektierten Daten, so daß Sie zum Bei- 
spiel aus einer großen Adreßdatei mehrere verschiedene 
MailMerge-Dateien generieren können. 

Diese Auswahl bestimmter Datensätze funktioniert auch 
mit MailMerge-Dateien, wenn Sie diese anstelle der Amsdos- 
Datei laden. 

Ein Sonderfall sind Dateien, die außer den eigentlichen 
Daten noch andere Informationen enthalten, also beispiels- 
weise vor dem ersten Datensatz die Menge der Datensätze. 
Dann müssen Sie die Datei vor der Umformung erst einmal 
laden, um sie ohne dieses Feld wieder zu speichern. 

Nach vollzogener Umwandlung legen Sie unter WordStar 
die WS-Mix-Datei an, zum Beispiel durch: 

.op 

.df Name.dat 

.rv vname,nname,str,ort,tel 

Selbstverständlich muß die hier angegebene Zahl der Daten- 

felder (in diesem Falle fünf) mit der tatsächlichen Anzahlin der 

Datei übereinstimmen. Ansonsten verfahren Sie, wie es im 

Wordstar-Handbuch, Anhang C1, beschrieben ist. 
(H.J.Hesse/ja) 


‚zZ zszzzzzezzmzzzszemzzmmmzzeauzzemuuum 
BILDSCHIRM — AUFBAU 
====2======20=2=2 === =2= === 2-2 
CLS #1:L0OCATE #1,18,2 
PRINT #1, CHR$ (24); " {14 SPACE}"3 
PRINT #1, "AMSDOS —- DATEI(3 SPACE}KON 
VERTIEREN{11 SPACE}"; 
PRINT #1 ,CHR$ (24) 
398 RETURN 
ABO '========-==2omeeseeeseeeeeemeeemeenn 
410 PARAMETER - EINGABE 
420 "'=====2=222ee=oemeseoemeesememenene 
438 CLS =: LOCATE 3,5 
448 INPUT "Name der AMSDOS-DATEI{8B SPACE 
3?{2 SPACE}" ‚AmsDat$ 
ASB LOCATE 3,9 
458 INPUT "WIEVIELE{3 SPACEIDATENSATZE{S 
SPACE}MAX {2 SPACE}?(2 SPACE}" ,MaxSa 
tz LEBAB] 
478 LOCATE 3,11 L9IBABI 
488 INPUT "WIEVIELE{S SPACE}Datenfelder { 
2 SPACTE}MAX{2 SPACE}?{2 SPACE}" ,MaxF 
eld 
498 LOCATE 3,15 
588 INPUT "Name der MailMerge - DateitS 
SPACE}?{2 SPACE}" ,MailDat$ 
518 ELS #2:LOCATE #2,15,2 
52@ INPUT #2, "EINGABE KÜRREKT(2 SPACE} (J 
/N "ja 
5358 IF UPPER$(ja$)="J" THEN 558 ELSE 548 


LEEAE] 
CABFAI 
[2CB2] 
ESABA] 
L192C) 


[32B6] 
LFBSCI 
LAAS8]I 
[F8B@] 
[SSEA] 
CAsBA] 
LFESE] 


[2A18I 
[6E92) 


£E9DFA] 
[32B4] 


LESöE] 
[82C8] 


ESDF6] 
L1ASA] 


[15B4] 
CBE74] 


540 CLS #2: GOTO 4380 


558 RETURN 


Listing. Basic-Dateien mit Wordstar nutzen 













































































C3CB4] 
VARIABLEN + KONSTANTEN [6494] 
See-sereecseeenenmeereeeseeoeremoeem [8EBS] 
DIM Adresse$ (MaxSatz „MaxFeld) [D488] 
sz =8 "  SatzZaehler [9810] 
fb= 1 *  FeldNummer [CBiCE] 
sn = 1 "  SatzNummer LEES@] 
RETURN [7D3A] 
en LA3761 
AMSDOS - DATEI LESEN [9B62] 
UIsesemeeseneneemereneeseoooenneooon [537A] 
CLS : CLS #2:LOCATE 24,18 [CAE4) 
PRINT " Einen Moment bitte" [F&86] 
LOCATE 24,8 [89FC]I 
PRINT "Die AMSDOS-DATEI wird geladen 
® tEEB2] 
OPENIN AmsDat# LA9IBA]I 
WHILE NOT EOF [3786] 
INPUT #9,a% LOCFA] 
a$=MID$s(as,1)+", " L93CC)I 
Adresse$ (sn, fb)=afs [9618] 
fb=fb+1 [2406] 
IF fb=MaxFeld+i THEN sn=sn+i [466C] 
IF fb=MaxFeld+i1 THEN fb=i1 [2324] 
WEND [6DD&6] 
CLOSEIN [5D96] 
RETURN LASSE] 
"Sszesesssmesemsosmsosssmeoscoseoosseoocooe LES7A]I 
AMSDOS-DATEI KONVERTIERE [5430] 
"seeesssomecoeseoocoeeesecssemeseocunn L357E] 
DIM Adr$(sn) [9946] 
Satz=1i [B49A] 
FOR Feld = 1 TO MaxFeld LEBE4] 
IF Satz = sn THEN RETURN [617A] 
3 [73CE] 
988 Adr$ (Satz) =Adr$ (Satz) +Adresse$ (Satz, 
Feld) [9214] 
998 NEXT Feld CBC38] 
1800 Adr$(Satz)=LEFT$(Adr$ (Satz) ,„LEN(Adr 
$(Satz))-2) EF3B6] 
1018 GOTO 1300 [8CFE] 
1029 Satz=Satz+1 [F488] 
108350 GOTO 958 [648B6] 
1100 "===. eeeenseeseoeeccoeocecmemece [BDCCI 


1118 ABSPEICHERN MAILMERG.ADR [8482] 


Wer hätte gedacht, daß es über 
Diskettendateien viel mehr zu 
erfahren gibt als das, was DIR- oder 
CAT-Befehl ohnehin schon anzeigen? 
Lassen Sie sich überraschen. 





arum soll es eigentlich nur für Kassettenbetrieb 

sogenannte Header-Lese-Programme geben? 

Dieses Listing zeigt, daß es auch mit Diskette 
ohne weiteres möglich ist. 

Der »Header« (Programm-Kopf) enthält Informationen, die 
der Computer benötigt, um Programme beziehungsweise 
Dateien richtig laden zu können. Dort steht beispielsweise, 
ob es sich um ein Basic- oder Maschinensprache-Programm 
handelt, an welche Adresse es zu laden ist und wo die Start- 
adresse liegt. So etwas ist natürlich auch für den Benutzer 
von Interesse. 

Nach dem Start müssen Laufwerksnummer und Disketten- 
format angegeben werden. Danach erscheinen sämtliche 
Dateinamen am linken Bildschirmrand. Neben den Namen fin- 
den Sie die Angaben über Ladeadresse, exakte Länge in 
Byte, Einsprungadresse (falls vorhanden), File-Attribute 
(R/W, R/O, etc.) und User (Benutzer-Bereich). 

Das Programm ist für den CPC 464 mit Schneider-Dis- 
kettenlaufwerk DDI-1 konzipiert. Durch entsprechende 
Änderungen läßt es sich aber sicher auch an andere Lauf- 
werke anpassen. 

(D.Babirat/ja) 


1120 "===-=-=-=------22=-o-2=ecmseeeeceeeem [5DDO] 
11328 OPENOUT MailDat$ C36DE] 
1148 FOR i = 1 TO sn-1 [374C] 
115@ IF Adr$(i) = "/*" THEN 1178 CA9BA] 
1168 sz=sz+1: PRINT #9,Adr#(i) [DSBE] 
1178 NEXT i [A462] 
1188 CLOSEOUT [44B8] 
1198 CLS: MODE 2 [C53C] 
1288 LOCATE 29,18 1[3A54] 
1218 PRINT "Diet2 SPACE}MailMerge-Datei({ 
2 SPACE}ist geladen" E[FDSCI 
1228 LOCATE 24,13 [7C66] 
12538 PRINT "mit{2 SPACE}> ";jsz;" <{3 SPA 
CE}Saetzen." LCAAS4] 
1248 PRINT:PRINT:PRINT:PRINT:END CDBB4] 
1300 "====-=-=--2.-=ee=-2s=seeeeecsememmemmemm= [5SFDO] 
1310 ' AUSWAHL AUS AMSDOS-ADRESSEN [1526] 
1320 "=====-=-====-.-22=--=22oeseemeeseezem= [BFD4] 
1358 CLS:PRINT CHR$ (24); [7546] 
1548 PRINT TAB(14)," AUS WA H L"+STRI 
NG$ (48,32) ;CHR$ (24) LCACCI 
1358 LOCATE 18,1@:PRINT Adr$(satz) [@8C8] 
1368 LOCATE 18,15:PRINT"Soll dieser Satz 
N [5126] 
1378 PRINT"in die MailMerge-Datei ?" [89D6] 
1388 LOCATE 24,18 CAITEI 
1598 INPUT "Bitte{2 SPACE}waehlent2 SPAC 
E}Siet3 SPACE}< J/N >12 SPACE}" „jas 
LAF342 
1480 IF UPPER$(ja$)="J" THEN GOTO 1928 COFB4A] 
1418 Adr$(Satz)="/*": GDTD 1928 C6BC8] 
1420 ° [971C] 
1500 ’ sze=ssezme=sme==me=me=m=m= [91D4] 
1510 HAUPTSTEUERUNG L9IEAA] 
1520 '====-=-2.-.--=e=ee=o==2=seeemeeme=e==m= [E1DB] 
1550 GOSUB 288 “ WINDOW’S DECLARIEREN L[34A4] 
1548 GOSUB 388 " BILDSCHIRM-AUFBAU [C9BCI 
1558 GOSUB 490 * PARAMETER ABFRAGE [CBDE]I 
1568 GOSUB 688 " VARTABLEN+KONSTANTE [9IB7E)I 
1578 GOSUB 7988 * AMSDOS-DATEI LESEN [737A] 
1588 GODSUB 908 * AMSDOS-DAT KONVERTIE TABE4]I 
1590 GOSUB 11@@ ° MAILMERG-DATEI SPEIC L[349C] 


Listing. Basic-Dateien mit Wordstar nutzen (Schluß) 





REM RBB 
EEUERHKHHHHKTRHHTRNRR L8F6E] 
REM * 

* LCAC74] 
REM * HEADERANALYSE VON DISKETT 
ENPROGRAMMEN EDV4E)I 





[B7A6] 
REM * n, BABIRAT 4 STERNSTR.16 230 
® EIEL 1 10.85 EFE84] 
REM * alle Rechte bei obi 
gem Autor * [89CA]I 
REM ER 
KERKRRÄRERERIERKRRR RR LAS7A]I 
MODE 2:MEMORY 8200 [2040] 
REM LA4BDA]I 
REM ###*x*## LESEFROGRAMM EINFOKEN #*#* 
*rr L[8FEB] 
REM .L[492C] 
DATA %21,%1C,%50,%CD,%D4,%BC,%22,%1D 
£[453D4] 
DATA &50,%79,%32,%41F,%450,%21,%20,%50 
[E724] 
DATA &5E,%23,%56,%23,%4E,%21,%30,%58 
CA74C]I 
DATA &DF,%1D,%59,%CB,%84 [9A42] 
FOR adr=%5808 TO %SBIC:READ byte:FOk 
E ADR,BYTE:NEXT ADR [4BE2] 
GOSUB 1388 : REM ***%* SYMBOLDEFINITI 
ON ##%*# CAFD2] 
REM £763A] 
REM *** MENUE ##** [?1E8] 
REM [602C] 
LOCATE 23,25:FRINT "DISCHEADERANALYS 
E by "3 CHR$ (241) CHR#$ (242) CHR$ (243) CH 
R# (244) "—-"CHR$ (245) CHR$ (246) CHR# (247 
)CHR#$ (248) [9064] 
LOCATE 23,23:FRINT"Diskette einlegen 
und Taste druecken !":CALL %EBQ& [CAE2]I 


Listing. Voller Durchblick beim Disketten-Inhalt 
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LOCATE 23,253:FRINT STRING$ (55,32) 
LOCATE 23,23: INFUT"WELCHES LAUFWERK 
(A/B) ";DRIVE#$ 
TYPE$="":LOCATE 23,23: INFUT"CP/M ode 
r DATEN-Diskette (C/D)";TYFE$ 
LOCATE 23,235:FRINT STRING$ (55,32) 
REM 
REM #*#* BILDSCHIRM VORBEREITEN #*# 
REM 
WINDOW#1 ,2,79,4,19:CL5#1 
FLOT 1,7:DRAW 1,358:PLOT 1,368: DRAW 
6539,368:FL0OT 639,368:DRAW 639,7:FLOT 
639,7:DRAW 445,7:FLOT 445,7:DRAW 44 
5,280:FLOT 445,208:DRAW 160,28:FLOT 16 
0,28:DRAW 150,7:FLOT 168,7:DRAW 1,7 
LOCATE 3,2:FRINT"NAME":LOCATE 19,2:F 
RINT"ATTRIBUT":LOCATE 33,2:FPRINT"STA 
RT":LOCATE 44 ,2:PRINT"LAENGE":LOCATE 
56,2:FRINT"EINSFRUNG":LOCATE 798,2:P 
RINT"USER" 
ZEILE=4:NUMBER=®: INK 8,17:INkK 1,0:BO 
RDER 17 
REM 
REM #%*%*%#* SCHLEIFE FUER MAX. 16 EINTR 
AEGE FRO SEKTOR ##*%* 
REM 
IF UFFER#(DRIVE#)="B" THEN DRIVE=1 E 
LSE DRIVE=® 
IF UFFER$(TYPE$)<>"D" THEN 498 
DIRTRACK=B: DIRSECTOR=1:0OFFSET=192:60 
TO 418 "*##%# DATEN-FORMAT ###%* 
DIRTRACK=2: DIRSECTOR=1:0FFSET=54 
"###%# CP/M FORMAT #r#%*%* 
POKE %5828,DRIVE:FOKE %5021,DIRTRACK 
:FOKE %5@22,DIRSECTOR+OFFSET 
BUFFER=&SBSB-S2:CALL %S5BBR 
LOOP=1:LOCATE 3,22:PRINT"GELESENER 5 
ECTOR :%"3;:PRINT HEX$ (DIRSECTOR+OFFS 
ET) 
BUFFER=BUFFER+32: IF BUFFER>&S522F THE 
N 7980 
REM 
REM #*** ATTRIBUTE UND ERA UNTERSUCH 
EN UND MERKEN ###%* 
REM 
IF PEEK(BUFFER+12)<>B THEN 788 
"*%*%# NOT FIRST BLOCK #%*%* 
IF PEEK(BUFFER)=&ES THEN 788 
"#** ERA ##*%* 
USER=PEEK: (BUFFER) 
"#%*%* USER #%* 
IF PEEK(BUFFER+15)=%8B THEN MULTI=1 
x >16K #8 
IF PEEK(BUFFER+9) >127 THEN RO=1 
"a R/O + 
IF PEEK(BUFFER+1B) >127 THEN SYS=1 
"ar 5YS #% 
REM 
REM ###** NAMEN MIT EXTENSION AUS BUF 
FER LESEN ###*% 
REM 
FOR X=BUFFER+1 TO BUFFER+8B: NAME#=NAM 
EF+CHR$ (FEEK (X) ) ENEXT 
FOR X=BUFFER+9? TO BUFFER+11:EXTENSIO 
N£=EXTENSION$+CHR$ (FEEK (X) ) NEXT 
LOCATE 3,ZEILE:FRINT NAME$; :FRINT"." 
;:PRINT EXTENSION$; 
NUMBER=NUMBER+1:LOCATE 3,23:PRINT"GE 
SAMTEINTRAEGE: "5 :FRINT NUMBER 
IF RIGHT$(EXTENSION$,1)=CHR# (77) THE 
N COM=1 
IF RO=1 THEN LOCATE 19,ZEILE:PRINT"$ 
R/0-";:R0O=® 
IF SYS=1 THEN LOCATE 24,ZEILE:PRINT" 
SYS",:5Y5=8 
IF COM=1 THEN 758 
BLOCK=PEEK (BUFFER+16) :GOSUB 838 
REM *%*##* ZUR DATENAUSWERTUNG ##%#*%* 


IF MULTI=1 THEN 688 
REM **** FILE LAENGER ALS 16K #%* 
LOOP=LOOPF+1: ZEILE=ZEILE+1: IF LOOF<17 
THEN 448 
MULTI=®: BUFFER=BUFFER+32: IF BUFFER>% 
522F THEN 798 
LOOF=LOOF+1: ZEILE=ZEILE+1: IF LOOP<17 
THEN 440 
LOOF=LOOF+1: IF LOOPF<17 THEN 718 
IF BUFFER>%&S522F THEN 798 ELSE 448 
REM 
REM ##*#* VARIABLEN ZURUECKSETZEN ### 
* 
REM 
NAME$="":EXTENSION$="":COM=8: ZEILE=Z 
EILE+1:LOOP=LOOP+1 
LOCATE 78,ZEILE-1:FRINT USER 
IF LOOF<17 THEN 788 ELSE 7978 
IF BUFFER>%S2FF THEN 798 ELSE 448 
LOCATE 27,23:PRINT"WEITER MIT <TASTE 
>":CALL %BEQ& 


[1862] 
[8134] 
[C496] 
[5568] 
I[SF3A] 
[2788] 


[3D3E] 
[3C7E] 


[8944] 


TSERC] 


C[D7B2] 
[6236] 


[23B2] 
[643A] 


[FFE4A] 
[45AC]I 


EI21E] 
[F@4A] 
[S9A6] 
[A4C1C) 
LAACCI 


[8DDC] 
[613A] 


[6BBC] 
[ö33E]1 


[F&CQ] 
[4EF4] 
[ABF2] 
[EEC4] 
LES3Cö] 


CAFB2] 
[623A] 


L[AB3C] 
[öB3E) 


[1766] 
IUFFSC]I 
[4E98] 
[2878] 
[4BAB) 
[BöF6] 
[2224] 
[BS582] 
[BO7AB]I 
[3982] 
[82BA] 
[C64C) 
[CBBE]I 
[6A24] 
[41E8] 
[683A] 


[2F@8] 
Tt623E]I 


[D96B] 
[B14A] 
[1BC4] 
[3D1E] 


LEA3B] 


LOCATE 27,25:FRINT STRING$ (290,32) :CL 
S#1:ZEILE=4 
DIRSECTOR=DIRSECTOR+1: IF DIRSECTOR<SS 
THEN 418 ELSE 198 
REM 
REM #*#** ELOCKNUMMER IN TRACK UND SE 
CTOR UMRECHNEN ###*%* 
REM 
A=BLOCK 
XH=FIX(A/9):YH=A MOD 9 
IF YH£<S THEN F=B ELSE F=1 
TRACK=XH*2+2+F:F=8Q 
ENTERBEIVEERLERD? THEN TRACK=TRAC 
SECTOR= (A#2+18) MOD 9 +1 
IF TRACK>42 THEN 1258 
IF SECTOR>9 THEN 1258 
REM 
REM *#** TRACK UND SECTOR FUER FILEDA 
TEN LESEN ### 
REM 
POEE %59028,DRIVE:FPOKE %&5921,TRACK:PO 
KE %5@22,SECTOR+OFFSET:CALL %&5000 
BUFFER2=%5058 
START=PEEK (BUFFER2+22) #256+PEEK (BUFF 
ER2+21) 
LAENGE=FEEK (BUFFER2+25) #256+PEEK (BUF 
FER2+24) 
ENTRY=PEEK (BUFFER2+28) #256+PEEK (BUF 
FER2+27) 
REM 
REM #*#* FILEDATEN AUF BILDSCHIRM A 
USGEBEN ###*#* 
REM 
LOCATE 33,ZEILE:FPRINT"%"53:IF START< 
4096 THEN FRINT"®"+HEX$ (START) :GOTO 
18780 
FRINT HEX$# (START) 
REM x#%*%* 
LOCATE 44 ,ZEILE:FRINT"&";:IF LAENGE 
x16 THEN FRINT"BBB"+HEX$ (LAENGE) :GO 
TO 11280 
IF LAENGE«256 THEN PRINT"BB"+HEX$(L 
AENGE) :GOTO 1120 
IF LAENGE«“ 4896 THEN FRINT"B"+HEXF(L 
AENGE) :GOTO 1128 
FRINT HEX#(LAENGE) 
REM ##%%* 
LOCATE S56,ZEILE:PRINT"%"3:IF ENTRY< 
16 THEN FRINT"BBR"+HEX$ (ENTRY) :GOTO 
1178 
IF ENTRY“256 THEN PRINT"B@"+HEX$ (EN 
TRY):GOTO 1178 
IF ENTRY<4896& THEN FRINT"@"+HEX$ (EN 
TRY):GOTO 1178 
FRINT HEX# (ENTRY) 
REM #x%%* 
LOCATE 7B8,ZEILE:FRINT USER 
NAME$="":EXTENSIONF="":R0=9:5Y5=Q 
REM 
REM **** DIRECTORY EINLESEN UND WEI 
TER AUSWERTEN ###%* 
REM 
FOEE %59028,DRIVE:FOKE %5821,DIRTRAC 
K:PFOEE %S5@22,DIRSECTOR+OFFSET:CALL 
2.5008 
RETURN 
REM 
REM **%* HARDWAREFEHLER #*%* 
REM 
LOCATE 28,24:FRINT"Falsche Track od 
er Sectornummer -- Taste druecken " 


CALL %BBB5:LOCATE 28,24:FPRINT STRIN 
6$(58,32):6G0T0 1188 

REM 

REM #**%* SYMBOLDEFINITION #*#*#* 
REM 

SYMBOL 241,0,63,33,33,32,33,33,63 
» REM E 

SYMBOL 242,0,33,33,33,33,33,33,63 
: REM U 

SYMEOL 243,0,62,34,34,63,33,33,63 
: REM B 

SYMBOL 244,08,62,32,32,608,532,32,62 
: REM E 

SYMBOL 245,08;62,34,32,62,2,34,62 
: REMS 

SYMBOL 246,08,62,34,34,34,34,34,62 
: REM O 

SYMBOL 247,0,62,32,32,60,32,32,32 
=: REM. F 

SYMBOL 248,8,63,12,12,12,12,12,12 
: REM T 

RETURN 




















CEB88] 


[B888] 
LAASCI 


[BC2C] 
[8aC40] 
LECACI 
[1BSC] 
LBO17E] 
[6952] 


LCED22] 
LICSAI 
[FS72] 
LESD®] 
CB740] 


[4EFC]I 
[7D44] 


LEABB] 
t8FAE]I 


[27BE] 
[7788] 


[EBIE] 
[2D8C] 


£[51D4] 
[2F9B) 


[2A3®] 
[11F6] 
[8926] 
[8F92] 
[B78A] 
[1998] 
[F72A] 
[ABIE] 
CB232] 
[8524] 
LAD32] 
[2C88] 
[9628] 
[CCE6] 
[BC74] 
L719E]1 
[84E8] 
[35978] 


[OBC8] 
[C98CI 
[1C96] 
L6öFS8] 
LZAIAI 
[3240] 
[6688] 
[BDAB] 
[L1BöE] 
129972] 
[4166] 
1[598A] 
[7C76] 
EBA4CI 
[2172] 
[499A] 
[9874] 


[A27CI 
LADBA]I 


Listing. Voller Durchblick beim Disketteninhalt (Schluß) 















































Geschwindigkeit ist 





Wahrscheinlich haben Sie sich auch 
schon einmal darüber geärgert. 

Das Formatieren mit dem 
Schneider-Laufwerk dauert lange. 
Format-Plus schafft endlich Abhilfe. 


öllig ohne CP/M können Sie nun in Windeseile Dis- 
ketten formatieren. Das Programm ist für den Con- 
troller des Diskettenlaufwerks zum CPC 464 ausge- 
legt, arbeitet aber auch auf dem CPC 664 und 6128 (dann 








REM KRHRRRURHHERRH HH HH RR 
KEN [öbs6bA] 
REM * FROGRAMM ZUM DIREKTEN FORMATIER 
EN AUF DRIVE A ODER B + [2228] 
REM * COPYRIGHT by D.Babirat / 2308 K 
iel 1 / Sternstr. 165 *#* [A7D2] 
REM * geschrieben 1 
08.85 * [B22E] 
REM REINER 
KERHRRUHNTTRHRUR NN [BE72] 
REM EFFD4] 
REM [BOAD6]I 
REM #**# LOGD AUFBAUEN ##%*%* [A768] 
REM [40DA] 
GOSUB 598 [6ö3DE] 
LOCATE 15,4:PRINT" FORMAT’ by "CHR$( 
241) CHR$ (242) CHR$ (243) CHR$ (244) "—-"CH 
R$ (245) CHR$ (246) CHR$ (247) CHR$ (248) CDBC4] 
PLOT 1,1:DRAW 1,300:PLOT 1,380: DRAW 
639, 300:PLOT 639,388: DRAW 659,1:PLOT 
6539 ,1:DRAW 1,1 £[9D72]2 
FLOT 180,330: DRAW 188,356:FLOT 100,3 
56:DRAW 309,356:PL0OT 3989,356:DRAW 38 
0,330:PLOT 380,330:DRAW 188,330 [Esö7C] 
REM [5232] 
REM ##*##* MASCHINENFROGRAMM FOKEN #%*%* 
* LACC4] 


REM [6936] 
GOSUB 758 [SAE8]I 
REM [763A] 
REM *** DATEN ABFRAGEN ##* [B878) 
REM [6502C] 
CLS5#1:LOCATE 18,18: INPUT"AUF WELCHEM 
LAUFWERK FORMATIEREN (A/B) ";DRIVE$ TECA2] 
IF UPPER$ (DRIVE$)="RB" THEN DRIVE=1 E 
LSE DRIVE=B CDAD8] 
LOCATE 18,12: INPUT"DATEN ODER CP/M-F 
ORMAT (D/C) "3; FORMAT$ [3F6A] 
IF UPPER$ (FORMAT$)="D" THEN ZEROSEC= 
%&C1 ELSE ZEROSEC=K41 [6538A] 
REM [6136] 
REM #*#%# DATEN AN PROGRAMM UEBERGEBE 
N ##%%* [89CB] 
REM [SF3A] 
POKE %&4878,DRIVE [CESB] 
ZEROTRACK=B: POKE %4979 , ZEROTRACK [B882] 
FOKE &497A,ZEROSEC [DA96] 
REM [59380] 
REM #*%*#** DATEN IN TABELLE FUER FDC U 
EBERTRAGEN ###* [4530] 
REM [4B34] 
ADR=&4098 [D68C] 
FOR LOOP=1 TO 9 [2BB6] 
POKE ADR,DRIVE LA9BA]I 
POKE ADR+1,B [3938] 
POKE ADR+2,ZEROSEC [450A] 
POKE ADR+3,2 [S53C]I 
ADR=ADR+4 [BEFCI 
ZEROSEC=ZEROSEC+2: IF (ZEROSEC AND %F 
)=%B THEN ZEROSEC=ZEROSEC-7 [OCSC]I 
NEXT [D2ZEA] 
REM [6736] 
REM **%#** DISKETTE ANFORDERN ##%*%* C[5DDB] 
REM [613A] 
LOCATE 18,14 [2488] 
FRINT"BITTE ZU FORMATIERENDE DISKETT 
E EINLEGEN UND TASTE DRUECKEN !" [64EC]I 
CALL &BBO& [C118] 
LOCATE 18,14:PRINT STRING$ (68,32) [D172] 
CALL %4200 [61B6] 
REM [6134] 
REM #**#* ENDE UND RUECKSFRUNG ##*#* [2SCE] 
REM [4öF38] 


keine Hexerei 


funktioniert lediglich die Anzeige des aktuell formatierten 
Sektors auf dem Bildschirm nicht). Besonders interessant ist, 
daß damit auch in einem angeschlossenen Zweitlaufwerk for- 
matiert werden kann, was sonst ja nicht machbar ist. Ein 
Durchgang benötigt so nur noch zirka 15 Sekunden anstatt 
der bislang üblichen 37 Sekunden, allerdings unter Verzicht 
auf die automatische Fehlerprüfung. Wer will, kann die 
Maschinencode-Routine in eigene Programme einbauen. 
Erzeugt wird wahlweise CP/M-(Vendor-) oder Datenformat. 


(D. Babirat/ja) 


IF FORMAT$="D" THEN 568 ELSE 558 L524E] 
ELS#1:LOCATE 18,1@:PRINT"DIESE CP/M- 
DISKETTE ENTHAELT KEINE BESCHRIEBENE 
N SYSTEMSPUREN !" LADIEI 
LOCATE 18,14: PRINT"FORMATIERUNG BEEN 
DET! NOCH EINE DISKETTE FORMATIEREN 
(J/W "5 L23AB] 
INPUT TES$ :IF UPPER$(TES$)="J" THEN 
190 ELSE CALL @ L447E] 
REM [3E42] 
REM **** SYMBOLDEFINITION #*%#* [9722] 
REM [AB34] 
MODE 2: INK 8,28: BORDER 28: INK 1,8 L29D6] 
WINDOW#1,3,77,10,23 [2@F6] 
SYMBOL 241,0,63,33,33,32,33,33,63 : 
REM C LC6BCH 
SYMBOL 242,0,33,33,33,33,33,33,63 : 
REM U LFESB] 
SYMBOL 243,0,62,34,34,63,33,33,63 : 
REM B LAS1C] 
SYMBOL 244,0,62,32,32,60,32,32,62 : 
REM E [BF12] 
SYMBOL 245,0,62,34,32,62,2,34,62 : 
REM 5 [2618] 
SYMBOL 246,0,62,34,34,34,34,34,62 : 
REM 0 L6E4B] 
SYMBOL 247,0,62,32,32,60,32,32,32 : 
REM F [851A] 
SYMBOL 248,8,63,12,12,12,12,12,12 
REM T [3818] 
RETURN LCESB] 
REM L6B3A] 
REM **** DATEN FUER FORMATPROGRAMM * 
ur L2CB4] 
REM L623E] 
DATA &F5,&C5,&D5,%E5,%21 ,%37,%03,%22 
„%7B,%48 L13D@] 
DATA &3E,&FD,&32,%7D,%40,%21,%79,&EE 
‚%22,%92 [DEE2] 
DATA %&4B,&3E,&FD,%32,%94,%40,%21,%52 
„Ch ,&22 LE786] 
DATA %95,%40,&3E ,&07 ,%32,%97 ,%40,%26 
„OA ,&2E [8076] 
DATA &BE „&CD,%&75,%BB,%21,%7E,%4D,&DF 
‚%7B,%48 [29301 
DATA %&C3,%&5F ,%40,%3N,%79,%40,%57,%3A 
„%78,%48 LAA94] 
DATA &5F ,&3A,&7A,&AD,&AF ,%21,%98B,%40 
„&DF ,&95 LBOE®] 
DATA &40,&3A,%&79,%40,%3C ,&FE,%28,&CA 
,%73,%48 [88CA] 
DATA %&32,%79,%40,%21,%98,%40 ,%&B6,%&B9 
,%&77 ,%23 [A320] 
DATA %23,%23,%23,%10,%F9,%26,%21,%2E 
„&QE,&CD 
DATA %&75,%BB,%&21,%00,%00,&3A,%79,%40 
„&öF „&DF L964C0] 
DATA &92,%40,%C3,%35,%40,%E1,%D1,%C1 
„&F1,%&C9 L67C6]1 
DATA &B0,&B0,%DO,xOD,LAD,LDD,%A6s,«AF 
„%52,%4D 
DATA &41,%54,%49,%45,%52,%45,%20,%54 
„52,41 L291A] 
DATA %&43,%4B,%20,%3A,%20,%B0 ,&ıB0 ‚BR 
‚aD ,&aB LA7FO] 
I8D DATA %20,&D0,%BR ‚BR L9FIEI 
918 FOR adr= 16384 TO 16537 LECCB] 
928 READ BYTE:POKE ADR,BYTE:NEXT [46C8] 
938 RETURN [B238] 


[AF96] 


[FOBB] 


Listing. Beschleunigung durch »Format-Plus« 
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Mathematik muß 
nicht trocken sein. 
Das Spiel »Leben« 
zeigt, wie logische 
Regeln Symbole in 
Bewegung versetzen. Zweidi- 
mensionale »Computer«, elek- 
tronische Gatter oder ganze Wel- 
ten werden mit »Life« simuliert. 





ür viele ist die Mathematik eine 
grausam trockene Wissenschaft. 
Ein treffendes Gegenbeispiel lie- 
fert ein Spiel, das einem der höheren 
Gebiete dieser »reinsten aller Wissen- 
schaften« entstammt. Es wurde um 
1970 von dembritischen Mathematiker 
John Horton Conway an der Universität 
von Cambridge entwickelt und auf den 
Namen »Leben« (Life) getauft. »Leben« 
ist ein Spiel für einen Spieler, oder bes- 
ser Zuschauer, wenn man es auf dem 
Computer spielt. Die Regeln sind leicht 
zu erlernen. Probiert man es jedoch auf 
einem Damebrett, was ebenfalls mög- 
lich ist, muß man schon höllisch aufpas- 
sen. Einigen von Ihnen dürfte diese 
Kurzweil bereits bekannt sein. Für sie 
sind der Abschnitt über Varianten sowie 
das Programmschema gedacht. 
Basis des Spiels ist eine beliebig 
große Ebene mit schachbrettgleicher 
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Viererblock 














Einteilung. Man kann, um die Regeln 
einzuüben, einfach ein Blatt kariertes 
Papier und einen Bleistift benutzen. Ein 
Karo entspricht jeweils einer Zelle. Spä- 
ter wollen wir uns dann die Abläufe 
überlegen, die man für ein entspre- 
chendes Computerprogramm benötigt. 

Bei Spielbeginn werden einige in der 
Regel zusammenhängende Zellen zum 
»Leben« erweckt und dementspre- 
chend gekennzeichnet. Demnach hat 
jede Zelle entweder den Zustand tot (0) 
oder lebendig (1). Danach ist die Kreati- 
vität des Spielers nicht mehr gefragt, 
denn ab sofort übernimmt »Leben« 
selbst die Regie über die Fortentwick- 


Leben gehorcht 
einfachen Regeln 


lung der Anfangskonstellation. Im Kos- 
mos des »Lebens«, den wir im folgen- 
den Mikronesien nennen wollen (seine 
Bewohner nennen sich Miks), läuft die 
Zeit in diskreten Takten ab, den Mikro- 
nen. Von einer Mikrone zur nächsten 
werden folgende Änderungen vorge- 
nommen: 

1. Geboren wird ein Mik nur in einer 
Zelle, die genau drei Nachbarn auf- 
weist. 

2. Einerseits stirbt Mik an Einsamkeit, 
wenn sich in seinen insgesamt acht 


Faszination Leben 


Nachbarfeldern weniger als zwei Kame- 
raden befinden. Andererseits stirbt er 
einen Erstickungstod, wenn in seiner 
Umgebung mehr als drei Miks wohnen. 
3. Der Mik überlebt nur, wenn seine 
Zelle entweder zwei oder drei belebte 
Nachbarzellen besitzt. 

4. Ein Mik kann sich niemals in eine 
andere Zelle bewegen. 

Das sind schon alle Grundregeln. 
Zum sicheren Verständnis dieser 
»Lebensregeln« wollen wir einmal alle 
möglichen Minimal-Populationen analy- 
sieren, die sich mit maximal vier Miks bil- 
den lassen (Bild 1). Bei der Überprü- 
fung wird folgendermaßen verfahren: 

Eine belebte Zelle wird zunächst auf 
ihre Zukunftsperspektiven hin (Überle- 
ben oder Sterben) geprüft. Anschlie- 
Bend werden die unbelebten Nachbar- 
zellen des gleichen Miks auf eine bevor- 
stehende Geburt hin überprüft. Wird 
eine Anderung erkannt, so müssen die 
entsprechenden Zellen gekennzeich- 
net werden. Auf diese Weise wird jeder 
Mik getestet. Erst nachdem sämtliche 
Kennzeichnungen vorgenommen wur- 
den, erfolgt der Sprung in die nächste 
Mikrone, und die Miks werden entfernt 
oder neu gesetzt. 

Bei der Betrachtung von Bild 1 wird 
sofort klar, daß Zweiergruppen von 
Miks sich in der nächsten Mikrone 
in nichts auflösen (Vereinsamung). 
Ebenso reizlos sind die Kombinationen 
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Bild 1. Mit drei oder vier »Miks« kann man jeweils fünf verschiedene Kombinationen bilden (jeweils erste Spalte) 
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aus nur drei Miks. Drei der möglichen 
Kombinationen verschwinden schon 
nach der zweiten Mikrone, ein Drei-Mik 
geht in einen stabilen Viererblock über, 
der fünfte Drei-Mik schließlich ist ein 
sogenannter Blinker (Bild 1). Bei den 
Vier-Miks sind ebenfalls fünf verschie- 
dene Anfangsfiguren möglich. Vier 
enden stabil, ein Vier-Mik bildet nach 
neun Mikronen vier Drei-Mik-Blinker. 
Spannend wird es erst bei den Fünf- 
Miks. Das sogenannte »r-Pentomino« 
(Bild 2) ist die kleinste Figur, die sich 
(mit großer Wahrscheinlichkeit) über 
alle Grenzen hinaus ausdehnt. Es zer- 
fällt dabei in eine Vielzahl selbständiger 
Kolonien sowie in stabile und blinkende 
Figuren. Bei einem Test dieser Figur 
über mehrere tausend Mikronen, bei 
dem ein IBM PC einige Stunden brü- 
tete, konnte kein definierter Endzu- 
stand gefunden werden. Problematisch 
ist bei derartigen Ausdehnungen natür- 
lich immer der begrenzte Bildschirm 
des Computers. 

Ein weiteres interessantes Fünf-Mik 
ist ein sogenannter Segler (Bild 3), der 
mit viertelter »Lichtgeschwindigkeit« 
schräg durch Mikronesien gleitet. Mit 
einem schnellen Programm erscheint 
der Segler wie ein Lebewesen, das 
schwanzwedelnd über die Bildfläche 
»wuselt«. Einen nahen Verwandten des 
Fünf-Mik nach Bewegung der Figur 
zeigt Bild 4. »Lichtgeschwindigkeit« in 
Mikronesien ist als höchstmögliche 
Geschwindigkeit die Verschiebung der 
Figur um ein Feld in jeder Mikrone. Was 
dem einzelnen Mik nicht erlaubt ist, rea- 
lisiert er also im Kollektiv: kontinuierli- 
che Bewegung. Daß die Dynamik dabei 
mit ständigem Opfern und Neugebo- 
renwerden bezahlt wird, ist nicht die 
einzige Analogie von »Leben« zum wah- 
ren Leben. 


® ® .. 
Spielen Sie Schöpfer 


Conway glaubte zunächst nicht, daß 
Figuren bis in alle Unendlichkeit weiter- 
wachsen könnten. Er setzte deshalb in 
Martin Gardners Mathematik-Kolumne 
im »Scientific American« einen Geld- 
preis für den Beweis des Gegenteils 
aus. Dieser Preis war innerhalb eines 
Monats vergeben. Eine Gruppe junger 
Mathematiker um R. William Gosper jr. 
hatte eine Seglerkanone entdeckt, die 
die uns bereits bekannten Segler regel- 
mäßig in Abständen von 30 Mikronen 
aussendet (Bild 5). Die Kanone selbst 
schwingt währenddessen hin und her, 
das heißt sie erreicht ihre alte Form 
jeweils wieder nach 30 Zeiteinheiten. 

Ein anderer Amerikaner machte 
kurze Zeit darauf von sich reden. Er 
hatte eine Konstellation von 30 Seglern 
entdeckt, die beim Zusammenstoßen 


eine Seglerkanone bildeten. Nur wenig 
später erfand Gospers Mannschaft 
eine neue, eigenwillige Mik-Kolonie. Es 
handelt sich dabei um ein sogenanntes 
»Pentadekathlon« (Bild 6). Dieses 
Gebilde, das sich alle 15 Mikronen wie- 
derholt, geht aus einer sehr einfachen 
Anfangsfigur hervor: Eine ununterbro- 
chene waagerechte Reihe genügt zur 
Anregung des Pentadekathlon, die 
Anfangsfigur selbst wird später jedoch 
nicht mehr erreicht. Dieser Oszillator 
(so nennt man regelmäßig schwin- 
gende Objekte) kann noch einiges 











Bild 3. Der »Fünf-Mik-Segler« durchrast 
mit viertelter Lichtgeschwindigkeit das 
Spielfeld 





Bild 2. Das »r-Pentanino« dehnt sich als 
kleinste Figur unendlich weit aus 





























Bild 4. Der »Acht-Mik-Segler« hat die 
endgültige Lichtgeschwindigkeit 
erreicht 
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Bild 5. 

»Gospers 
Seglerkanone« 
regeneriert 

sich selbst. 

Sie erreicht den 
Urzustand nach 
30 Zeiteinheiten. 
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Bild 6. Das »Pentadekathlon« repräsen- 
tiert eine neue recht eigenwillige 
Mik-Kolonie 
















Bild 7. Der »15-Mik-Segler« erreicht 
immerhin beachtliche halbe Lichtge- 
schwindigkeit 




















Bild 8. Aus der »schiefen Acht« bilden 
sich nach vier Mikronen zwei Segler 


























Bild 9. Die »4-8-12-Kolonie« entsendet 
ganze vier Segler in alle Richtungen 





mehr. An der richtigen Stelle angeord- 
net, frißt er die Segler aus der Seglerka- 
none auf oder wirft sie zurück. Dement- 
sprechend können zwei Pentadekath- 
lons in richtiger Stellung einen Segler 
hin und her schießen. Man kann aber 
auch dafür sorgen, daß sich Segler- 
ströme schneiden. Hierzu müssen 
mehrere Kanonen entsprechend pla- 
ziert und beim Aufbau um 90 oder 270 
Grad gedreht werden. Man erhält so 
sehr ausgefallene Ergebnisse. Eine der 
interessantesten Entwicklungen auf 
diesem Gebiet ist eine Art »Werft«, die in 
zwei kreuzenden Seglerströmen errich- 
tet wird. Diese Werft entsendet ihrer- 
seitsnach einigen hundert Stufen einen 
Segler der größeren »Bootsklasse«. Ein 
absolutes »Dickschiff« zeigt Bild 7. Die- 
ses Modell erreicht trotz seiner Größe 
immerhin die beachtliche halbe Licht- 
geschwindigkeit. Es bewegt sich in vier 
Mikronen um zwei Zellen abwärts. 
Daneben existiert noch eine ganze 
Reihe einfacher Seglerkanonen. Diese 
entsenden einen oder mehrere Segler, 
um anschließend ihr Leben auszuhau- 
chen. Die »schiefe Acht« (Bild 8) bildet 
nach vier Mikronen zwei Segler, die 
sich voneinander entfernen. Die 
»4-8-12-Kolonie« (Bild 9) schickt sogar 
vier Segler in alle Himmelsrichtungen 
davon. Sie braucht dazu 15 Mikronen. 
Von diesen beiden Kanonen ist 
anschließend nichts übrig. Es gibt aber 
auch Kanonen, die ihre Segler ver- 
schießen und zudem deutliche Spuren 
oder ein heilloses Chaos zurücklassen. 
Daß sich mit Seglern auch weitaus sinn- 
vollere Dinge vollbringen lassen als 
»schießen«, werden Sie später sehen. 
Neben den Seglern und deren Fabri- 
ken existiert noch eine ganze Reihe 
reizvoller Anfangswelten. Die soge- 
nannte »Erntemaschine« (Bild 10) zieht 


sich an einer beliebig langen Stange 
aufwärts. Zurück bleiben kompakte Vie- _ 
rerblocks. Ein interessantes Experi- 
ment mit vielen Varianten ist das Impfen 
stabiler Welten mit »Viren«. Ein bekann- 
tes Beispiel ist ein Gebilde aus Vierer- 
blocks (Bild 11), in dessen Mitte ein ein- 
ziges Mik eingepflanzt wird. Dieser Stö- 
renfried erzeugt eine kreisförmige 
Explosion, die sich mit Lichtgeschwin- 
digkeit konzentrisch ausbreitet. Wird 
der Virus jedoch um eine Zelle nach 
links gesetzt, so »repariert« sich die 
Figur innerhalb von zwei Mikronen. 


Die Evolution der 
Ursuppe 


Ein eigenes Kapitel könnte den 
schon angesprochenen Oszillatoren 
gewidmet werden. Um diese zu erzeu- 
gen, genügt oftmals eine symmetrische 
Anfangswelt. Symmetrien bleiben in 
jeder Population über die gesamte 
Lebenszeit erhalten, sofern keine Stö- 
rung von außen eintritt. Einige Figuren 
bilden während ihres kurzen Lebens 
sehr hübsche Kaleidoskope, blähen 
sich dabei weit auf, um ebenso schnell 
wieder zu verschwinden oder in stabile 
und blinkende Häufchen zu zerfallen. 
Naturgemäß entwickeln sich Symme- 
trien weitaus häufiger in diese Rich- 
tung, als daß sie sich für den oszillieren- 
den Endzustand entscheiden wie zum 
Beispiel das Pentadekathlon. Ein primi- 
tiver Oszillator wird von sechs Miks 
gebildet (Bild 12). Der »Kelch« (Bild 13) 
schwingt in die Spiegelverkehrte und 
wieder zurück. Wie sich das »Karo« 
(Bild 14) verhält, sollte jeder einmal 
selbst ausprobieren. 

















Bild 10. Die 
»Ernte- 
maschine« 
hinterläßt 
einfach 
kompakte 
Vierer- 
blocks 





Bild 11. 

Schon ein 

Mik kann 

das ansonsten 
stabile Gitter 
zerstören 






































PT. 
























































Bild 12. Der »Blinker« besteht aus sechs 
Zeilen, die sich nicht vermehren 


Sicherlich hat der eine oder andere 
sich schon gefragt, welchen Sinn die- 
ses Spiel erfüllt. Amüsement für neuro- 
tische Mathematiker etwa - oder purer 
Selbstzweck? Daß das Spiel durchaus 
von einer philosophischen Seite aus 
betrachtet werden kann, aus der sich 
auch für andere Wissenschaften weit- 
reichende Konsequenzen ergeben, 
wollen wir an dieser Stelle beleuchten. 


Wir haben »Leben« bis hierher in der 
Grundform mit einigen recht einfachen 
Anfangsfiguren kennengelernt. In die- 
sem Stadium »hinken« Vergleiche mit 
biologischen Vorgängen in der Natur 
sicherlich sehr stark. Jedoch bietet 
»Leben« eine hervorragende Basis, um 
auch weitaus komplexere Zusammen- 
hänge zu simulieren. Hierzu können 
einerseits die Regeln erweitert werden, 
oder es müssen komplexere Anfangs- 
welten aufgebaut werden, in der 
gewisse Eigenschaften verschiedener 
Kolonien gezielt eingesetzt werden. 
Derartige Experimente können aller- 
dings nur mit komplizierten Vorausbe- 
rechnungen realisiert werden, da das 
Herumprobieren mit größeren Kolonien 
nur selten zu befriedigenden Ergebnis- 
sen führt. Dazu reicht einerseits die uns 
zur Verfügung stehende Rechnerkapa- 
zität nicht aus, andererseits würden 
allein die mathematischen Theorien 
bereits genügen, um dieses Heft voll- 
ständig zu füllen. Nur ansatzweise sol- 
len deshalb einige der Bedeutungen 
dieses aufregenden Spiels genannt 
werden. 


Es lassen sich zum Beispiel auf der 
Basis von Leben zweidimensionale 
Computer konstruieren. Eine Seglerka- 
none entspricht dabei einem Taktgeber, 
die Segler selbst dienen gleichermaßen 
als elektrische Impulse oder Nachrich- 
tenträger. Wie wir schon gesehen 
haben, lassen sich durch Zusammen- 
stöße von Seglern die verschiedensten 
Zustände erreichen. Damit steht auch 
der Konstruktion logischer Gatter 
nichts mehr im Wege. Die einfachtse 
Funktion, der Inverter (Not-Gatter, Bild 
15), besteht aus einer Seglerkanone, 
die eine kontinuierliche Impulsfolge 
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Bild 13. Der »Kelch« schwingt in die Bild 14. Das »Karo« besteht aus 16 ein- 
Spiegelverkehrte und wieder zurück zelnen Zeilen, symmetrisch angeordnet 


Bild 15. Der 
»Inverter«: 
Eine Segler- 
kanone sendet 
kontinuierliche 
Impulsfolgen 
aus 


Bild 16. Diese 
vier Ausgangs- 
populationen 
erzeugen 
interessante 
Bilder 
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aussendet. Auf diesen Gleiterstrom 
wird senkrecht der Strom der Eingangs- 
signale gesendet, in der Weise, daß kol- 
lidierende Segler sich gegenseitig aus- 
löschen. Einer logischen 1 im Ein- 
gangssignal entspricht dabei ein vor- 
handener, einer logischen O ein nicht 
vorhandener Segler. Taucht nun ein 
»Nichtsegler« (0) am Kollisionsort auf, 
so kann der Segler des Kanonenstroms 
unbeschadet passieren, das bedeutet 
aus der O wird im Ausgang eine 1 und 
umgekehrt. Bemerkenswert ist, daß 
das eigentliche NOT-Gatter, der Kolli- 
sionsort, keine eigene Struktur benö- 
tigt. 

Dementsprechend lassen sich eben- 
falls AND-Gatter und OR-Gatter auf- 
bauen und durch Verknüpfung mit dem 
NOT-Gatter selbstverständlich in 
NAND- und NOR-Funktionen umwan- 
deln. Diese »Schaltungen« sind aber 
bereits derart kompliziert, daß sie auf 
einem Heimcomputer nicht program- 
miert werden können. 

Ebenso schwierig, aber machbar, 
sind Register. Diese bestehen aus sta- 
bilen Viererblocks, die durch gezieltes 
Beschießen mit Seglern um drei Zellen 
vor- oder zurückgesetzt werden kön- 
nen. Logisch O oder 1 sind hier von der 
Plazierung abhängig. Berücksichtigt 
man die komplexen Strukturen, die ein- 
fache logische Funktionen bereits auf- 
werfen, so übersteigen die Ausmaße, 
die ein Allzweck-Life-Computer benö- 
tigt, die Grenzen der Vorstellung. 

Wer sich über diese Art Computer 
näher informieren möchte, dem sei das 
vierbändige Werk »Gewinnen - Strate- 
gien für mathematische Spiele« emp- 
fohlen. Es wurde von John Horton Con- 
way, Richard K. Guy und Elwyn R. Ber- 
lekamp verfaßt und istim Vieweg-Verlag 
erschienen. »Leben« befindet sich in 
Band 4. 


Früher brauchte ich 
ee 7) Ordner 


Eine ganz andere, aber kaum weniger 
wichtige Frage ist, ob Gebilde existie- 
ren, die in der Lage sind, sich selbst zu 
reproduzieren. Andere Mathematiker 
suchen nach dem genauen Gegenteil: 
Ist ein sogenannter »Garten Eden« 
möglich; eine Anfangswelt, die im Ver- 
lauf eines Spiels nicht entstehen kann? 
Ein solches »Paradies« könnte sich 
demzufolge nicht selbst reproduzieren 
und müßte, da es keine Vorläufer hat, 
vom Spieler selbst erschaffen werden. 
Glaubt man den Berechnungen, so ist 
hierzu ein Quadrat mit der Seitenlänge 
von einigen Milliarden Zellen erforder- 
lich. 


Das Programm, 
® ® .. [} 
ein Reiz für sich 


Betrachtet man dagegen die Theorie 
der »reproduzierenden Zellular-Auto- 
maten«, drängt sich der Vergleich mit 
der Entstehung des wirklichen Lebens 
auf. Laut einer Theorie entstanden die 
ersten primitiven Lebensformen dieser 
Erde aus einer Ursuppe von Aminosäu- 
ren und reproduzierten sich aus den 
diesen innewohnenden einfachen 
Strukturen, einer Art »Urerbinforma- 
tion«. »Leben« könnte demnach ein ma- 
thematisches Modell von der Entste- 
hung des Lebens sein. Conway sagte 
dazu einmal: »Irdisches Leben ist kom- 
plizierter, als es sein muß. Statt der 92 
Elemente genügen eigentlich zwei: aus 
und ein!«. Ist vielleicht das ganze Uni- 
versum ein gigantischer zellulärer Auto- 
mat? 

Wem eine Welt aus lauter Nullen und 
Einsen der Ketzerei gleichkommt, dem 
schlagen wir eine Erweiterung der 
Spielregeln vor. Diese Regeln lassen 
sich natürlich ebenso programmieren. 
In vielen Fällen müssen nur die 


Heute p DETR 


Zustände, die eine tote oder lebendige 
Zelle annehmen kann, erhöht werden. 
Man kann auf diese Weise auf wesent- 
lich kleineren Feldern die »Evolution« 
nachvollziehen: 

1. Programmieren Sie Freß- und Nah- 
rungs-Miks. Es wäre zum Beispiel denk- 
bar, daß Freß-Miks ohne Nahrung ster- 
ben, sich mit ihr aber schnell vermeh- 
ren. 

2. Bauen Sie Zonen unterschiedlicher 
Eigenschaften im Life-Universum mit 
ein. Denkbar wären »Schwarze 
Löcher«, in deren Umgebung jegliches 
Leben ausstirbt. 

3. Geben Sie auserwählten Miks oder 
ganzen Kolonien Unsterblichkeit. In der 
unmittelbaren Nähe solcher Kolonien 
entsteht ständig neues Leben. 

4. Möglich ist auch eine automatische 
Begrenzung der Lebenszeit. Überlegen 
Sie sich Regeln für Krankheit, Alter, 
Selektion, Tod. 

5. Schaffen Sie Regeln für Wanderkolo- 
nien. 

Sicherlich fallen Ihnen noch mehr 
Variationen ein, um die erweiterten 
Regeln »lebensnah« zu gestalten. Der 
Phantasie und dem Programmierspaß 
sind keine Grenzen gesetzt. 

Wer brennt nach so viel Theorie nicht 
darauf, endlich etwas auf seinem Moni- 
tor zu sehen? Doch bevor Sie sich auf 
das Abtippen des Programms stürzen 
(falls nicht schon längst geschehen), 
empfehlen wir noch etwas Geduld. Es 
lohnt sich allemal, erst etwas Denkar- 
beit in die Suche nach einem effektiven 
Algorithmus zu investieren. 

Das hier vorgestellte Programm reali- 
siert vereinfacht den Algorithmus, den 
Sie im folgenden vorfinden. Es ist leicht 
überschaubar und sehr einfach zu 
erweitern. 

Doch nun zum Ablaufschema. Zu- 
nächst einmal müssen wir einen Editor 


Nur noch die Diskelfe Jochen und 
«/ ), abheften _» 
















































































für unsere Simulation anlegen. Dazu 
müssen die Ausmaße unseres Spielfel- 
des bestimmt werden. Es bietet sich 
der Zeichenbildschrim an, der in unse- 
rem Programm benutzt wird. Natürlich 
wäre es reizvoller, auf hochauflösende 
Grafik zurückzugreifen. Jedoch erhöht 
sich damit die Zahl der Berechnungen 
extrem. Was das unter Basic bedeutet, 
weiß jeder, der schon mal programmiert 
hat. Das Programm wird sehr langsam. 

Im Modus 1 stehen uns immerhin 38 
mal 23 Zellen zur Verfügung (40x25 
minus Rand), was für die meisten der 
gezeigten Figuren ausreicht. Nach dem 
Start des Programms steht der Cursor 
in der Mitte des Bildschirms und läßt 
sich mit den Cursortasten auf die 
gewünschten Positionen bringen. Mit 
der Copy-Taste können Miks gesetzt 
und wieder gelöscht werden. Der Zei- 
chensatz unseres CPC kommt der 
Symbolik unseres Spiels sehr entge- 
gen. Wir haben als Miks die Männchen 
(CHR$(249)) gewählt. Wem andere 
Zeichen übersichtlicher erscheinen, 


setzt nur einen anderen Wert ein (bei- 
spielsweise CHR$(143)). Sie müssen 
aber alle CHR$(249) ersetzen! Ist die 
Anfangspopulation bestimmt, wird mit 
der Leertaste gestartet. Mit »A« kann 
das Programm jederzeit abgebrochen 
werden. 

Der Editor (Zeile 120 bis 280) 
besteht im wesentlichen aus einer 
Tastenabfrage. Hier werden auch die 
gesetzten Zellen in einem zweidimen- 
sionalen Stringfeld »(b$(s,z)« (siehe 
auch Tabelle) abgelegt. Da nur in der 
Umgebung belebter Zellen ein Ereignis 


b$ = Bildschirmfeld 
minx, maxx 
miny, maxy 


stattfinden kann, werden zur Einspa- 
rung von Rechenzeit die Variablen 
minx, miny, maxx und maxy angelegt. 
Diese Variablen dienen der Kennzeich- 
nung der linken oberen und rechten 
unteren Ecke eines »Rechenfensters«. 
Es handelt sich hierbei natürlich um 
kein Window, sondern es wird lediglich 
der Bereich festgelegt, der später vom 
Programm überprüft wird. Diese Varia- 
blen müssen während des Editierens 
und nach der Berechnung der neuen 
Positionen ständig aktualisiert werden 
(Zeilen 230 bis 570). 


Begrenzung des »Rechenfensters« in x-Richtung 
Begrenzung des »Rechenfensters« in y-Richtung 


s aktuelle Cursorposition (Spalte) 


z aktuelle Cursorposition (Zeile) 
xy Spalte, Zeile der Umgebung der Zelle (s,z) 
| Anzahl der belebten Nachbarzellen 


UgX, 09x = 
ugy, 09y = 


Tabelle. Die Variablenliste zu »Leben« 


neue Begrenzung des »Rechenfensters« (x-Richtung) 
neue Begrenzung des »Rechenfensters« (y-Richtung) 
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REITER 

KERHRRR 

2 22 
22223 

"Hei seememmen 

zaHnnR* 

"*####**Copyright 19865 by Th. Stopfkuch 

ENnKHHRH* 

I 2 227222 2 2 a en er 2 27 

KERHEHE 

CLEAR:MODE 1:DIM b$(41,28):BORDER 6:F 

OR i=® TO 41:L0OCATE 1,1:PRINT i:FOR j 

=®8 TO 28:b$(i,j)=" ":NEXT j:NEXT i:CL 

S 

INK 3,24:FOR i=1 TO 48:LOCATE i,1:PRI 

NT CHR$ (143) 3; :LOCATE i,25:PRINT CHR$( 

143)35:NEXT:FOR i=2 TO 24:LOCATE 1,i:P 

RINT CHR$ (143); :LOCATE 48,i:PRINT CHR 

$(145) 5 :NEXT 

INK 2,8:PEN 2:PAPER 3 

LOCATE 5,1:PRINT"L I FE - Erleben Si 

e das Leben"; 

PEN 1:PAPER ®:LOCATE 28,12:CALL &BB8 

A 


LIFE 


minx=41:maxx=@:miny=26:maxy=® 
"--- Eingabe der Anfangskonfiguratio 
Te 

INKEY$="" THEN 138 

INKEY (@)<>-1 THEN GOTO 258 

INKEY (1)<>-1 THEN GOTO 248 

INKEY (2)<>-1 THEN GOTO 278 

INKEY (8)<>-1 THEN GOTO 288 

INKEY (47)<>-1 THEN 308 

INKEY (9)=-1 THEN 138 
s=POS (#8) :z=VPOS (#9) 
IF b$(s,z)=CHR$ (249) THEN b$(s,z)=" 
" ELSE b$ (s,z)=CHR$ (249) 
CALL %&BB8D: PRINT b$(s,z):LOCATE s,z: 
CALL &BB8D 
minx=MIN (s,minx) zminy=MIN(z,miny):zma 
xx=MAX (maxx ,Ss) zmaxy=MAX (maxy,z) 
GOTO 138 
IF VPOS(#@)<35 THEN 138 ELSE CALL &BB 
EREERERF CHR$ (11); :CALL &BB8A:G0TO 1 
.] 
IF POS(#@) >38 THEN 138 ELSE CALL &BB 
8D:PRINT CHR$(9);:CALL &BBBA:GOTO 13 


[%] 

IF VPOS(#8) >23 THEN 138 ELSE CALL &B 
BSD: PRINT CHR$ (19); :CALL &BB8A:GOTO 
138 

IF POS(#@)<3 THEN 138 ELSE CALL &BB8 
D:PRINT CHR$ (8); :CALL &BB8A:GOTO 138 


"--- Berechnung der neuen Positionen 
CALL &BB8D: EVERY 18 GOSUB 598: LOCATE 
18,25:PAFER 3:PEN 2:PRINT "Generati 


LE6s&C]I 
[B87C] 
[1456] 
[255E] 
[AE74] 


L&AEE] 


[95SF4] 
[A718] 


[E14] 


EBFO6] 
[SBEE] 


[D318] 
[&D16] 
[0038] 
L253E] 
[5E44] 
[4A54]1 
LIFFC]I 
[A322] 
LF7AA] 
[BFOE] 
[19868] 
[7B4A] 
[F®46] 
[754A] 
[35DC2] 
[45B4] 


[4558] 
[241E] 


on Nr. :{2 SPACE}" 

g=g+1:LOCATE 28,25:PAPER 3:PEN 2:PRI 
NT g:PAPER ®:PEN 1 

FOR z=miny-i TO maxy+i 

IF z<2 OR z>24 THEN GOTO 488 

FOR s=minx-1 TO maxx+1 

IF s<2 OR s>39 THEN GOTO 478 

LOCATE s,z:PRINT CHR$ (22) +CHR$&(1):LO 
CATE s,z:PRINT CHR$(144) 

IF b$(s,z)=" " THEN 1=8 ELSE 1=-1 
FOR y=z-1 TO z+i 
FOR x=s-1 TO s+1 

IF b$(x,y)=CHR$ (249) 
(43) THEN 1=1+1 
NEXT x 

NEXT y 

LOCATE s,z:PRINT CHR$ (22) +CHR$ (®) :LO 
CATE s,z:PRINT b$(s,z): 

IF 1=2 AND b$(s,z)=CHR$ (249) OR 1=3 
AND b$ (s,z)=CHR$ (249) THEN 478 

IF 1=3 AND b$(s.z)=" " THEN b$(s,z)= 
CHR$ (42) : LOCATE s,z=:PRINT CHR$ (42); 
IF b$(s,z)=CHR$ (249) THEN b$(s,z)=CH 
R$(43):LOCATE s,z:PRINT CHR$ (43); 
NEXT s 

NEXT z 

“--- Setzen der berechneten Zeichen 
ugx=41:0g9x=9: ugy=26:ogy=® 

FOR z=miny-i TO maxy+ti 

IF z<2 OR z>24 THEN GOTO 588 

FOR s=minx-1 TO maxx+i 

IF s<2 OR z>39 THEN GOTO 578 

IF b$(s,z)=CHR$ (42) THEN b$(s,z)=CHR 
$(249):LOCATE s,z:PRINT CHR$(249):60 
SUB 668 

IF b$(s,z)=CHR$(43) THEN b$(s,z)=" " 
:LOCATE s,z:PRINT " ":GOSUB 448 

NEXT s 

NEXT z 

minx=ugx :maxx=ogx:miny=ugy:maxy=ogy 
IF minx>maxx THEN 328 

IF minx<2 OR miny<2 THEN minx=2:miny 
=2 

IF maxx>39 THEN maxx=39 

IF maxy>24 THEN maxy=24 

G0TO 318 

“--- Bestimmung der neuen Berechnung 
sgrenzen -—— 

ugx=MIN (s ,ugx) 209x=MAX (s,ogx) 
ugy=MIN (z „ugy) zogy=MAX (z,ogy) 

RETURN 

in$=INKEY$: in$=LOWER$(in$):IF in$="a 
" THEN GOTO 68 ELSE RETURN 

LOCATE 48,1:PRINT"a" 

GOTO 718 


OR b$(x,y)=CHR$ 



































[0926] 


CAFBB] 
£2D18] 
LES68] 
LO@DA] 
[9252] 


CBDE4] 
[0664] 
CSF12] 
CAAF6] 


[4860] 
[@D18] 
[A11C]I 


[385C] 
[6CD6] 
[7482] 


LES3C4] 
[331A] 
ECDF2A] 


L[IFIEI 
[7A94] 
[@B1A] 
[B164] 
CD80C] 
C[D964] 


[D6AB] 


[8778] 
L1C1iC] 
[CB2C] 
[F238] 
[8E42] 


[4A38] 
[884A] 
[4658] 
[164E] 


[24DC] 
C1ABC]I 
[CEE2] 
CAB3SCI 


[8B86] 
[9178] 
[F952] 


Listing. »Leben« ist unter Basic leicht zu programmieren 





sale: 
GAMLFYLER 












































Nach dem Ende der Eingabe und der 
Zuordnung der entsprechenden Varia- 
blen beginnt das Programm mit der 
eigentlichen Bearbeitung (Zeile 290 
bis 640). 

Innerhalb des »Rechenfensters« wer- 
den alle Zellen auf die Spielregeln hin 
überprüft. Für jede Zelle muß der Inhalt 
der acht Nachbarfelder gelesen wer- 
den (Zeile 380 bis 420). Dabei ist die 
Variable »I« Zähler der belebten Nach- 
barfelder. Die Zeilen 430 bis 450 bil- 
den den Kern des Programms. Die 
Regeln sind hier in nur drei Zeilen 
codiert. Als Besonderheit arbeitet das 
Programm mit zwei weiteren Symbolen: 
Ein Kreuz (CHR$(43)) zeigt an, daß der 
Mik im folgenden Zeittakt sterben wird, 
ein Sternchen (CHR$(42)) bedeutet, 
daß in einer unbelebten Zelle ein Mik 
geboren wird. Nach der Überprüfung 
werden die zusätzlichen Symbole 
angepaßt. So wird ein Kreuz gelöscht, 
ein Sternchen wird in einen Mik umge- 
wandelt (Zeile 490 bis 640). An dieser 
Stelle wird ebenfalls das »Rechenfen- 
ster« aktualisiert. In der letzten Zeile 
fragt das Programm alle 0,2 Sekunden, 
ob eine Taste gedrückt wurde. 

Haben Sie das Programm verstanden 
und sich nicht durch die vierfach ver- 
schachtelten FOR-NEXT-Schleifen ab- 
schrecken lassen? Dann werden Sie 
zum Schluß sicher die Tips interessie- 
























ren, die das Programm beschleunigen. 

Viele Wege führen nach Rom. Dop- 
pelt so viele führen vom Problem zum 
Programm. Weil das ganz besonders für 
unser Programm gilt, können wir hier 
nur einige Tips geben, »Leben« effekti- 
ver zu programmieren. 


Das erste Ziel wird natürlich sein, die 
hochauflösende Grafik zu benutzen. 
Bei einer Auflösung von 320 x 200 
Punkten müssen 64000 Bildpunkte 
berücksichtigt werden. Nun würde aber 
bei üblicher Array-Speicherung schon 
das Feld allein unsere Speicherkapazi- 
tät weit überschreiten. Man benutzt 
daher folgenden Trick. Für jede Zelle 
gelten genau vier Zustände: Zelle tot, 
Zelle lebendig, tote Zelle wird bei t+1 
lebendig, lebende Zelle stirbt bei t+1. 
Man belegt daher für jede Zelle nur 
noch Halbnibbles (2 Bit). So schrumpft 
der Speicherbedarf für eine 
320x200-Spielwiese auf 16 KByte. 
Der Nachteil dieser Methode ist, daß 
die Zeilen- und Spaltenvariablen nicht 
mehr gleichzeitig als Feldkoordinaten 
benutzt werden können. Das Beschrei- 
ben und Abfragen der Halbnibbles muß 
mit AND und OR geschehen. 


Machen Sie Ihr Hobby zu 
Ihrem Beruf! 


Wir sind ein moderner, ständig wachsender Fachverlag mit ca. 350 Mitarbeitern und zwei Tochtergesellschaften in den 
USA (Silicon Valley in Kalifornien) und der Schweiz. Wir verlegen Fachzeitschriften 
ter und Elektronik sowie Software für Heim- und Personal Computer. 


Für unsere Redaktion Happy-Computer suchen wir Fachleute für 


%* AtariXL und ST 
%* Peripherie/Hardware 


%* Programmiersprachen 


Ihr Aufgabengebiet als Fachredakteur umfaßt das Testen von neuer Hard- und Software, das Bearbeiten von Listings 
unserer Leser sowie das Schreiben von Fachartikeln. Daneben sollen Sie sich durch den Besuch von Messen und die 
Kontaktpflege zu Herstellern die notwendigen Informationen und Neuigkeiten in der Branche verschaffen. 


Wir bieten Ihnen ein ausgezeichnetes Betriebsklima in einem jungen, unkonventionellen Team, ein gutes Gehalt und vor- 
bildliche Sozialleistungen (13. Monatsgehalt, Fahrtkostenzuschuß, Essenszuschuß, Altersversorgung usw.). 


Ihre schriftliche Bewerbung (mit tabellarischem Lebenslauf, Lichtbild, Zeugnissen und - falls vorhanden - Kopien von 
veröffentlichten Arbeiten) senden Sie bitte an unsere Personalabteilung. Für erste Kontaktgespräche steht Ihnen Herr 
Scharfenberger zur Verfügung (Tel. 089/46 13-1 22). 


Markt & Technik, Verlag Aktiengesellschaft, 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


und Bücher aus dem Bereich Compu- 


%* Datenfernübertragung 


Begeistert Sie die Computertechnik? Als Redakteur in unserem Team sollten Sie aber nicht nur fachlich gut Bescheid 
wissen, sondern auch Spaß am Schreiben haben und eine kräftige Portion Neugier besitzen. 


Bei unserem Programm wurde der 
Rechenaufwand durch Bestimmen 
eines »Rechenfensters« gemindert. So 
werden jedoch immer viele nicht rele- 
vante Zellen abgefragt. Man legt daher 
bei einem »hochauflösenden« Pro- 
gramm ein weiteres Feld an, in dem die 
Koordinaten der lebendigen Zellen und 
deren Nachbarzellen gespeichert wer- 
den. Ferner sorgt man dafür, daß keine 
Doppeleintragungen stattfinden. Auf 
diese Weise wird keine Abfrage zwei- 
mal vorgenommen. Statt daß, wie in 
unserem Programm, das Fenster ge- 
dehnt wird, wandern jetzt die Bereiche 
mit den Figuren über das Spielfeld. 

Will man die Spielregel für »Life« 
erweitern, muß ein dreidimensionales 
Feld angelegt werden. Die »Lebensin- 
formationen« stehen dann in der dritten 
Ebene. 

»Leben« ist nicht nur ein interessan- 
tes Spiel, es bietet auch ein grenzenlo- 
ses Betätigungsfeld, um Programmier- 
techniken zu üben und zu erlernen. Bild 
16 zeigt noch andere bemerkenswerte 
Testkombinationen. So wird das Pro- 
blem beispielsweise gern an Informatik- 
kursen der Hochschulen gestellt. Zu 
guter letzt noch eine Warnung: So man- 
cher Mathematiker soll von »Leben« 
schon süchtig geworden sein ... 


(Matthias Rosin/hg) 
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Wer würde nicht gern einmal eine 
Boeing 727 als Pilot fliegen? Mit »Jet- 
liner« können auch Sie auf allen grö- 
Beren Verkehrs- und Militärflughäfen 
Deutschlands starten und landen. 





feuern, 20 Verkehrs- und neun Militärflugplätzen 
gespeichert. Sie können während des Fluges auf 

jedes Funkfeuer einstellen und entsprechend navigieren. Bei 
der Landung sind die Ost-West-Lage der Landebahnen, ihre 
individuellen Höhen und unterschiedlichen Längen beson- 
ders zu beachten, da Sie innerhalb der Landebahngrenzen 
starten, wieder aufsetzen und ausrollen müssen. 

Da es sich um einen reinen Instrumentenflug handelt, ste- 
hen folgende Anzeigen zur Verfügung: 
- HGS: Geschwindigkeit in Knoten (1 Knoten = 1,9 km/h) 
Warnlampe und -ton, wenn HGS über 500 Knoten steigt. 
- VGS: Vertikalgeschwindigkeit in Fuß (1 Fuß = 32 cm). 
Warnlampe und -ton, wenn VGS unter minus 8000 Fuß fällt. 
- HÖH: Höhe des Flugzeugs in Fuß. Wenn der Abstand zwi- 
schen Flugzeug und Boden kleiner als 300 Fuß ist, wird die 
relative Höhe zwischen Boden und Flugzeug angegeben. In 
diesem Fall wird in der Anzeige ein »H« sichtbar, das zu blin- 
ken beginnt, wenn Sie beim Sinken dem Boden gefährlich 
nahe kommen, ohne daß das Fahrwerk ausgefahren wurde. 

Sonst wird die absolute Höhe über Null angegeben. 
- KOM: Der Kompaß, Anzeige in Grad. 
- ALF: In diesem Fenster erscheint die Kennung des Funk- 
feuers, darunter die Richtung in Grad. 
- ENT: Entfernung zwischen Flugzeug und Funkfeuer in Mei- 
len (1 Meile = 1,6 km). 
- HRZ: Der künstliche Horizont gibt die Lage des Flugzeugs 
an. 
- LOB: Diese Anzeige tritt nur bei Boden- und Landebahn- 
nähe in Erscheinung. Sie zeigt die Abstände zu den vier Lan- 
debahnseiten (V für vorne, H für hinten, L für links und R für 
rechts) in tausendstel Meilen an. Drehen Sie das Flugzeug 
um 180 Grad, so tauschen gegenüberliegende Anzeigen die 
Plätze. 

Die Fahrwerkpositionen: 


- „1 = Fahrwerk unten 
- EM = Fahrwerk oben 


- „ = Fahrwerk klemmt; In diesem Fall müssen Sie das 
Fahrwerk wieder einfahren. 

- K: Schubkraft (0 bis 9) 

- MOT: Zustand der drei Motoren: 

nicht ausgefüllt (rot) = Motor aus 

dunkel ausgefüllt (rot) = Motor läuft an 

dunkelgrün ausgefüllt (orange) = Motor auf halber Drehzahl 
(auch Motorausfall) 

hellgrün ausgefüllt (gelb) = Motor auf voller Drehzahl 

- TR: Der Treibstoffvorrat in Litern. Eine Warnlampe spricht 
an, wenn der Treibstoffvorrat unter 3000 Liter sinkt. 
Maximalgeschwindigkeit 


D er Simulator hat die Daten von 43 Navigationsfunk- 


- mit Landeklappe 1 230 Knoten 
- mit Landeklappe 2 210 Knoten 
- mit Landeklappe 3 190 Knoten 
- mit Landeklappe 4 170 Knoten 
- wenn Fahrwerk unten 270 Knoten 
- am Boden 190 Knoten 


60 Knoten 

520 Knoten 
minus 9900 Fuß 
minus 500 Fuß 


- bei Kurven am Boden 

- in der Luft 

Maximale Vertikalgeschwindigkeit 
beim Aufsetzen 


Tastaturbelegung: 

»M« = Hochziehen/Abheben 

»l« = Runterdrücken/Aufsetzen 

»J« = Linkskurve 

»K« = Rechtskurve 

»Z« = Anwählen eines neuen Funkfeuers 
(oder Joystick O) 

Nach Anforderung eines neuen Funkfeuers wird die Ken- 
nung gelöscht und Sie müssen eine neue eingeben (immer 
dreistellig, also beispielsweise: »D«, »M«, »SPACE«). Falls das 
eingestellte Funkfeuer zu einem Flugplatz gehört, wird die 
Bodenhöhe der Flugplatzhöhe angeglichen. Erscheint aber 
die alte Kennung wieder im Fenster, so liegt die Höhe des 
angewählten Flugplatzes über der augenblicklichen Flug- 
höhe; Sie müssen dann noch höher steigen. 

»Q« = Anhalten der Simulation 

»W« = Wieder fortfahren 

»A« = Fahrwerk einziehen 

»S« = Fahrwerk ausfahren 

»[« = Landeklappen ausfahren 

»]« = Landeklappen einfahren 

»0« bis »9« = Schubkraft: 

»0« = Gegenschub (Bremsen, angezeigt als »B«) 
»1« = Motoren anlassen, im Stillstand laufen lassen 
»2« bis »8« = Manövrier- und Fluggeschwindigkeiten 
»9« = Maximale Schubkraft zum Abheben; sehr hoher Treib- 
stoffverbrauch! 

Nach dem Landen: 

»I« = Auftanken, Motor reparieren lassen 

»E« = Ende des Spiels 

Start- und Landebahnen werden grafisch auf dem Bild- 
schirm dargestellt. 


von München 
Nürnberg 


Nun zur Sache: Sie wählen durch Drücken der Taste »4« 
München als Startflugplatz. Danach wird das Cockpit aufge- 
baut und die Anzeigen erscheinen. Jetzt lassen Sie mit der 
Taste »1« die Triebwerke an, erhöhen den Schub (»2«) und 
kurven so, daß der Kompaß 90 Grad zeigt, um parallel zur Lan- 
debahn zu stehen. Dann geben Sie maximalen Schub (»%) 
und fahren bei einer Geschwindigkeit von zirka 90 Knoten die 
Landeklappen auf Stufe 2 aus (zweimal »[«). Bei einer 
Geschwindigkeit von zirka 120 Knoten heben Sie ab und zie- 
hen das Fahrwerk ein (»A«). Wenn das Flugzeug schnell 
genug ist (ab zirka 180 Knoten), fahren Sie beide Landeklap- 
pen ein (zweimal »]«). Nun steigen Sie auf etwa 5500 Fuß und 
stellen auf das Funkfeuer ALB ein (»Z«, »A«, »L«, »B«), redu- 
zieren den Schub auf Reisegeschwindigkeit (»7«) und fliegen 
darauf zu. 

Bei einem Triebwerkausfall ist zu beachten, daß die 
Geschwindigkeit zurückgeht; den defekten Motor lassen Sie 
nach der Landung reparieren (»T«). Wenn ALB nur noch zirka 
15 Meilen entfernt ist, stellen Sie den Flughafen Nürnberg 
(NUB) als Kennung ein und navigieren so, daß sich die Funk- 
feuerrichtung auf 270 Grad bewegt. Dabei reduzieren Sie 
den Schub (»5«) und gehen auf 2000 F hinunter. Wenn die 
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Peilung 270 Grad beträgt, schwenken Sie auf diese Richtung 
und gehen mit Schub 3 auf zirka 200 Fuß über Flughafen- 
höhe hinunter. Bei einer Geschwindigkeit unter 270 Knoten 
fahren Sie das Fahrwerk aus. Achten Sie bei der Landung 
besonders darauf, daß das Flugzeug innerhalb der Lande- 
bahngrenzen aufsetzt. Wenn Sie gelandet sind, fahren Sie 
alle vier Landeklappen aus und gehen auf Gegenschub (»O«). 
Nach dem Stillstand zeigt ein Druck auf die Taste »E« Flugzeit 
und Treibstoffverbrauch an. (Claus Herwig/ja) 


Allersberg Elbe 
Hamburg/Fh Luburg 
Alsie Leck 
Barmen Olno 
Bremgarten Linz 
Bremen Luxemburg 
Cola Maisach 
Frankfurt/Fh Memmingen 
Helgoland Metro 
Dinkelsbühl München 
Leine Nordholz 
München/Fh Nienburg 
Dortmund Nattenheim 
Stuttgart Nürnberg 
Düsseldorf Oldenburg 
Eelde Cheb (Eger) 
Eggebek Osnabrück 
Erding Rekken 
Erlangen Remstein 
Fürstenfeldbruck Rodenberg 
Frankfurt Schleswig 
Fulda Taunus 
Gedern Berlin/Tegel 
Germinghausen Tango 
Gütersloh Trasadingen 
Hannover Walda 
Hamburg Warburg 
Hopsten Weser 
Husum Wittmund 
Innsbruck Würzburg 
Köln/Bonn Wipper 


Erläuterungen der Abkürzungen 
KNG = Kennung 

FF = Funkfeuer 

FH = Zivil-Flughafen 

MF = Militär-Flughafen 





REM /\/\/N/N/N/N/N/N/N/N/N/N/NI/NI/N/N 


REM \/ JETLINER 7° 
REM /\ For CFC by Claus Herwig IN 
REM \/ (c) January 1986 \/ 
REM /\ EN 
REM \/ Orginal version by \/ 
REM /\ Roman Grandis (CP 2/85) /\ 


REM \/\N/N/N/N/NZ/NINZN/NINI/NI/NININI/NI 
RANDOMIZE TIME 


118 GOSUB &200 


MODE 1:FEN 1 


1538 DIM z$(25) 


INK 8,1:INK 1,24:INk 2,15:INK 3,6 


158 a4=8:1g=4 


wvgs=4:svgs=21 


218 wkr=38:skr=19 


wlai=7:wla2=14:sla=1 


238 wtr=34:str=23 


wmot=36: smot=21 


258 wkom=11:skom=18 


410 


wkkom=11:skkom=21 
wkent=11:skent=23 
wwli1=35:5wl1=21:ww1l2=3:swl2=18B:ww1l 3=3 
3:s5w13=23: 
whoe=3: shoe=23 
wk1=36:sk1=17:wkiln=36:sk1n=18 
wfw=33:sfw=17 
wgs=4:sgs=18 
wlav=26:slav=18:wlah=26:slan=22:wlal 
=24:slal=28:wlar=29:slar=2® 
wff=13:sff=28 
lb$#(1)="{CTRL J3{CTRL I3{CTRL 13 {CTR 
L-IPECTRL I3TETRE I3tETRE I3tCCTRL I 
{CTRL I3{CTRL I3t{CTRL I3tCTRL II{CTR 
L-I13>{CTRL I3{CTRL I3tCETRL I>.{CTRL J 
>{CTRL H>{CTRL H> {CTRL J>tCTRL H>tC 
TRL H3/{CTRL J3{CTRL H3{CTRL H32{CTR 
L JF{CTRL H3T{ECTRL H3/{CTRL J>{CTRL H 
>{CTRL H> {CTRL J3{CTRL H3{CTRL H>.X 
CTRL J>{CTRL H3{CTRL H> {CTRL J>{CTR 
L HF {CTRL’H3/{CTRL J>{CTRL H3{CTRL H 
3/XCTRL J>tCTRL H>{CTRL H3/{CTRL Jr 
CTRL H>{CTRL H> {CTRL J>tCTRL H>X<CT 
L H3.{CTRL KI{CTRL K3{CTRL KICCTRL K 
>{CETRL K3{CTRL KI{CTRL KILCTRL K3TCT 
RL K3{CTRL KI{CTRL K3{CTRL K}CCTRL I 
+{CTRL I3{CTRL I>{tCETRL IYtCTRL IY3tCT 
RL I>{CTRL I>{CTRL I>{CTRL I><CTRL I 
>{CTRL IY{CTRL I3{CTRL I>tCTRL I>tCT 
RL I>{CTRL I3{CTRL I>{CTRL I>{tCTRL I 
F{CTRL I>.{CTRL J> {CTRL J>\{CTRL J> 
\{CTRL J3\{CTRL J> {CTRL J>.XCTRL J> 
{CTRL J3>\{CETRL J3\tCTRL J>\tCTRL J> 
{CTRL J3.{CTRL K3{CTRL KILCTRL K}tC 
TRL KF{CTRL KI{CTRL K3{CTRL K3{CETRL 
K}{CTRL K3TCTRL KFTCTRL KILCTRL K}tC 
TRL K3{CTRL H3{CTRL H3{CTRL H3{CTRL 
H> {CTRL H3T{CTRL H3{CTRL H3LCTRL HCC 
TRL H>{CTRL H3{CTRL H3 {CTRL H> {CTRL 
H>{CTRL H3{CTRL H>3{CTRL H3{CTRL H>{C 
TRL H>{CTRL H>3{CTRL H3{CTRL H3 {CTRL 
H}{CTRL H3{CTRL H3{CTRL H3{CTRL H3{C 
TRL H3{CTRL H3{CTRL H3{CTRL H3 {CTRL 
H> {CTRL H>3{CTRL H}3{CTRL H3{CTRL H3" 
1b$(2)="{CTRL J>{CTRL I>{CTRL I>iCTR 
L IS{CTRL I>{CTRL I>{CTRL I>iCTRL I} 
{CTRL I>{CTRL I>{CTRL I3{CTRL I>{CTR 
L I>{CTRL IF{CTRL I>{CTRL I>/{CTRL J 
>{CTRL HF{CTRL H3 {CTRL JY{CTRL H3{C 
TRL H>.{CTRL J}{CTRL H3{CTRL H> {CTR 
L J><{CTRL H>{CTRL H3/{CTRL J>{CTRL H 
>{CTRL H3/{CTRL J3{CTRL H>{CTRL H3/X 
ECTRL JI{CTRL H3{CTRL H> {CTRL J>tCTR 
L H3{CTRL H}.{CTRL J3ICTRL H}{CTRL H 
> {CTRL J>{CTRL H3{CTRL H3/{CTRL J>t 
CTRL HY{CTRL H3/{CTRL J}{CTRL H}{CTR 
L H3/{CTRL KI{CTRL KI{CTRL K3{ECTRL K 
3{CTRL K}{CTRL K3TCTRL KY{CTRL K3{CT 
RL K3{CTRL KF{CTRL KI{CTRL K3{CTRL I 
>{XCTRL I>{CTRL I3{CTRL I>tCTRL I>{CT 
RL I>{CTRL I>{CTRL I>{CTRL I>{CTRL I 
3>{CTRL I>{CTRL I3{CTRL I>{CTRL I>tCT 
RL I>{CTRL IS{CTRL I>{CTRL I>tCTRL I 
3{CTRL I>\{CTRL J> {CTRL J}.{CTRL J}> 
{CTRL JIN{CETRL J3\{CETRL J3\{CTRL J}3 
{CTRL J3.{CTRL J> {CTRL J>\tCTRL J> 
\{CTRL J>\tCTRL KF{CTRL KI{CTRL KytC 
TRL K3TCTRL K3{CTRL K3{CTRL K3{CTRL 
K{CTRL KI{CTRL KITCTRL KI{CTRL Ktc 
TRL K}{CTRL H3{CTRL H3{CTRL H3 {CTRL 
3>{CTRL H3{CTRL HF{CTRL H3{CTRL H>tC 
TRL H3{CTRL H3{CTRL H3{CTRL H3 tCTRL 
H> {CTRL HF{CTRL H3{CTRL H3{CTRL H3{C 
TRL H>{CTRL H3{CTRL H3{CTRL H3 {CTRL 


Listing. Fliegen ohne Pilotenschein 























[116A] 
EZ1F23 
[B6E61 
C[DA88] 
L&B3E] 
[8D9AI 
[ASSB] 
L3F78] 
[A2S2] 
ECBF54] 
E[FF2E] 
[8108] 
[2E28] 
[2F6C] 
[8FBE]I 
[35C0] 
[27AE] 
[29D6] 
[5888] 
LSCSC] 
LIZ2FE] 
[DAB4] 


[8B7A] 
[9CD2] 
[AFBB] 
[D8BB4] 
[9648] 


[SBDC]I 
{S5D66] 


[SBSE] 





« Verzeichnis und Lageplan der enthaltenen Flughäfen 
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H3{CTRL H3{CTRL H3{CTRL H3{CTRL HY{C 
TRL H}3{CTRL H3{CTRL H3{CTRL H3XCTRL 
H>XCTRL H3{CTRL H3{CTRL H3{CTRL H3" 
1b#(3)="{CTRL J>3tCTRL I>{CTRL I>{CTR 
L I>{CTRL I>{CTRL I>{CTRL I>{CTRL Ir 
{CTRL I3{CTRL I3{CTRL I>{CTRL I>Y{CTR 
L I>{CTRL I>{CTRL IH{CTRL IY/{CTRL J 
3{CTRL H>{CTRL H3/{CTRL J>3tCTRL HrtCc 
TRL H}3/{CTRL J>{CTRL H3{CTRL H> {CTR 
L J>XCTRL H3{CTRL H>.{CTRL J}{CTRL H 
3{CTRL H> {CTRL J3tCTRL H>{CTRL HY/L 
ETRL J3{CTRL H3{CTRL H3/{CTRL JI{CTR 
L H3{CTRL H3/{CTRL JI{CTRL H3{CTRL H 
3 XETRL J3{CTRL H3{CTRL H3.{CTRL Jrt 
ECTRL H3{CTRL H3 {CTRL J>3{CTRL H3{CTR 
L H}/XCTRL K3{CTRL K3{CTRL K}{CTRL K 
3{CTRL K3{CTRL K}TCTRL KITETRL KY{CT 
RL K3{CTRL KF{CTRL K3{CTRL KILCTRL I 
F{CTRL I3{CTRL I>{CTRL I>t{CTRL I>{CT 
RL I>{CTRL I>{CTRL I>{CTRL I>{CTRL I 
F>{CETRL I>{CTRL I>tCETRL I>{tCTRL I>t{CT 
RL I>XCTRL I>{CTRL I>{CTRL I>{CTRL I 
F>{CTRL I>\{CTRL J>\tCTRL J>\tETRL J> 
{CTRL J}. {CTRL J3 {CTRL J3\{CTRL J> 
NECTRL J>\N{CTRL J> {CTRL J>.{CTRL J> 
{CTRL J3\tCTRL K3{CTRL K3TCTRL K}tc 
TRL K3{CTRL K}{CTRL K3{CTRL K}{CTRL 
K}ICTRL KILCTRL KIICTRL KI{CTRL K+tC 
TRL KF{CTRL H3{CTRL H3{CTRL H3{CTRL 
H>{CTRL H3{CTRL H3{CTRL H>{CTRL H3t{C 
TRL H3{CTRL H3{CTRL H3{CTRL H3{CTRL 
H>{CTRL H}{CTRL H>{CTRL H3{CTRL HrtCc 
TRL H3{CTRL H3{CTRL H3{CTRL H>{CTRL 
H3{CTRL H3{CTRL H3{CTRL H3{CTRL H+t{C 
TRL H>{CTRL H3{CTRL H3{CTRL H3{CTRL 
H3XCTRL H3{CTRL H3{CTRL HY{CTRL H>" 
1b$(4)="{CTRL J>t{CTRL I>{CTRL I>{CTR 
L I><CTRL I>{CTRL I>{CTRL I>{CTRL Ir 
{ETRL IS{CTRL IH{CTRL IS{CTRL I>{CTR 
L I>{CTRL I>{CTRL I>{CTRL I> {CTRL J 
F{CTRL H3{CTRL H> {CTRL J>tCTRL HY{C 
TRL H3 {CTRL J3tCTRL H>3{CTRL H> {CTR 
L J3{CTRL HI{CTRL H3 {CTRL J}{CTRL H 
>{CTRL H3 {CTRL J>tCTRL H3{CTRL H> { 
ECTRL J3{CTRL H>{CTRL H> {CTRL J>{tCTR 
L H>{CTRL H3 {CTRL J>{CTRL H>{CTRL H 
3 XETRL J3{CTRL H3{CTRL H3 {CTRL J>t 
CTRL H3{CTRL H> {CTRL J}{CTRL H3{CTR 
L H}> {CTRL K3{CTRL K3{CTRL KI{CTRL K 
3>{CTRL KITCTRL KYT{CTRL K}tCTRL K}CCT 
RL K}{CTRL KFICTRL KI{CTRL KITCTRL I 
>{CTRL IYtCTRL IItCTRL I>{CTRL I>{CT 
RL I>{CTRL I3{CTRL I>{CTRL I>tCTRL I 
3{CTRL I>{CTRL I>{CTRL I>{CTRL I>{CT 
RL I>{CTRL I3{CTRL I>{CTRL I>{CTRL I 
>3{CTRL I> {CTRL J} {CTRL J> {CTRL J> 
{CTRL J> {CTRL J3 {CTRL J> {CTRL J> 
{CTRL J3 {CTRL J3 {CTRL J> {CTRL J> 
{CETRL J} {CTRL K3TCTRL K}{CTRL Krtc 
TRL K}{CTRL K3{CTRL K3{CTRL KI{CTRL 
K}{CTRL KIICTRL K3{CTRL KI{CTRL K}tC 
TRL K}{CTRL H3{CTRL H>{CTRL H3{CTRL 
H} {CTRL H3{CTRL H3{CTRL H3{CTRL H3{C 
TRL H}{CTRL H3{CTRL H3{CTRL H3{CTRL 
H}{CTRL H3{CTRL H3{CTRL H3{CTRL H>{C 
TRL H}3{CTRL H3{CTRL H3{CTRL H3{CTRL 
H> {CTRL H>{CTRL H3{CTRL HF{CTRL Hr{C 
TRL H3{CTRL H3{CTRL H3{CTRL H3{CTRL 
H>{CTRL H3{CTRL H3{CTRL H>{CTRL H3" 
z$(1)=STRING$ (48,CHR$ (143) ) 
z$ (2) =CHR$ (143) +CHR$ (129) +SPACE$ (17) 
+CHR$ (139) +CHR$ (135) +SPACE$ (17) +CHR$ 
(130) +CHR$ (143) 
z$ (5) =CHR$ (143) +SPACE$ (18) +CHR$ (138) 
+CHR$ (133) +SPACE$ (18) +CHR$ (1453) 
z$(4)=2$(3):z$(5)=Z$ (I)ız$(b)=2$ (3): 
2$(7)=2$(3):2$(B)=2$ (I):2$(9)=2# (I): 
z$(1B)=2$ (I) :z$(11)=Z$ (I) z$ (12) =Z$L( 
S):z$(15)=2$(5) 
z$ (14) =CHR$ (143) +CHR$ (132) +SPACE$ (17 
) +CHR$ (142) +CHR$ (141) +SPACE$ (17) +CHR 
$(136) +CHR$ (143) 
z#(15)=STRING$ (48,CHR# (145) ) 
z$ (16) =SPACE$ (48) 
z$# (17) =CHR$ (32) +CHR$ (158) +CHR$ (154) + 
"HGS"+CHR$ (154) +CHR$ (154) +CHR$ (156) + 
CHR&$ (158) +CHR$ (154) +CHR$ (154) +" KOM" + 
CHR$ (154) +CHR$ (156) +SPACE$ (7) ++CHR$ ( 
158) +CHR$ (154) +"LDB"+CHR$ (154) +CHR$ ( 
156) +CHR$ (32) +CHR# (134) +CHR$ (132) +CH 
R$ (32) +CHR$ (298) 
z#(17)=z# (17) +CHR$ (213) +CHR$ (143) +CH 
R$ (143) +CHR$ (32) 
z# (18) =CHR$ (32) +CHR$ (149) +SPACE$ (6) + 
"kK"+CHR$ (149) +SFACE$ (6) +CHR$ (255) +CH 
R$ (158) +" HRZ"+CHR$ (156) +SPACE$ (2) +"V 
"+SPACE$ (5) +"V"+SPACE$ (4) +"B"+CHR$ (1 
SB) +"K"+CHR$ (156) +CHR$ (32) 
z#(19)=CHR$ (32) +CHR$ (147) +5STRING$ (6, 
CHR$ (154) ) +CHR$ (155) +CHR$ (147) +STRIN 
6G# (6 ,CHR$ (154) ) +CHR$ (1535) +CHR$ (149) + 
CHR&$ (32) +CHR$ (159) +CHR$ (32) +CHR$ (149 
) +CHR$ (158) +CHR$ (154) +CHR$ (155) +CHR$ 


[6BAD] 


[47A4] 


[4A1E] 
[AFBB] 


[74AA] 


[2C58] 


[BFSE] 


[8924] 
[8824] 
[8326] 


[4538] 
[258E] 


[2BEC]I 


788 
808 
818 


828 


838 
848 
858 
868 
8978 
888 
898 
928 
918 
928 
938 
748 
958 
968 
978 
988 
9978 


1208 
1218 
1228 
1938 
1248 
12858 
1868 
1878 
1288 
10978 
1188 
1118 
1128 
1138 
1148 
1150 
1168 
1178 
1188 
1198 
1288 


1218 


154) +CHR$ (154) +CHR$ (158) +CHR$ (154) + 
CHR$ (154) +CHR& (155) +CHR$ (154) 
z#(19)=z$ (19) +CHR$ (156) +SPACE$ (3) +CH 
R& (149) +CHR$ (32) +CHR$ (149) +CHR$ (32) 
z$ (28) =CHR$ (32) +CHR$ (150) +CHR$ (154) + 
"VGS"+CHR$ (154) +CHR$ (154) +CHR$ (156) + 
CHR$ (158) +CHR$ (154) +CHR$ (154) +SPACE$ 
(3) +CHR&$ (154) +CHR$ (156) +CHR$ (149) +CH 
R$ (32) +CHR$ (159) +CHR$ (32) +CHR$ (149) + 
"L"+SPACE$ (4) +CHR$ (149) +SPACE$ (4) +"R 
"+CHR$ (32) +CHR$ (158) +"MOT" 
2+(28)=z#(2B) +CHR$ (157) +CHR$ (32) 

z$ (21) =CHR#$ (32) +CHR$ (149) +SPACE$ (6) + 
"£"+CHR$ (149) +SPACE$ (6) +CHR$ (255) +CH 
R$& (151) +CHR$ (32) +CHR$ (159) +CHR$ (32) + 
CHR&$ (157) +CHR$ (147) +CHR$ (154) +CHR$ (1 
58) +CHR$ (154) +CHR$ (154) +CHR$ (155) +CH 
R$ (154) +CHR#$ (154) +CHR$ (158) +CHR$ (154 
) +CHR$ (153) +CHR$ (32) +CHR$ (149) 
z$(21)=z# (21) +STRING$ (3,CHR$ (230) ) +C 
HR&$ (149) +CHR$ (32) 

z$ (22) =CHR$ (32) +CHR$ (151) +CHR$ (154) + 
"HH" +CHRS$ (154) +CHR$ (154) +CHR$ (157) + 
CHR$ (151) +CHR$ (154) +CHR$ (154) +" ENT" + 
CHR$ (154) +CHR$ (157) +CHR$ (149) +CHR$ (3 
2) +CHR$ (159) +CHR$ (32) +CHR$ (149) +5PAC 
E$ (2) +"H"+SPACE$ (5) +"H"+CHR$ (158) +CH 
R$ (154) +CHR$ (154) +" TR"+CHR$ (154) 
z$(22)=z$ (22) +CHR$ (154) +CHR$ (157) +CH 
R$# (32) 

2$ (23) =CHR$ (32) +CHR$ (149) +SPACE$ (6) + 
"£"+CHR$ (149) +SPACE$ (6) +" m" +CHR$ (149 
) +CHR$ (32) +CHR$ (159) +CHR$ (32) +CHR$ (1 
49) +SPACE$ (2) +CHR$ (147) +STRING$ (5,CH 
R$ (154) ) +CHR$ (155) +CHR$ (149) +SPACE$ ( 
6) +"1"+CHR$ (32) 

z$ (24) =CHR$ (32) +CHR$ (147) +STRING$ (6, 
CHR$ (154) ) +CHR$ (153) +CHR$ (147) +5STRIN 
G$ (6 ,CHR$ (154) ) +CHR$ (155) +CHR$ (147) + 
STRING$ (3 ,CHR$ (154) ) +CHR$ (1553) ++SPAC 
E$ (9) +CHR$ (147) +STRING$ (6 ,CHR$ (154) ) 
+CHR$ (155) +CHR$ (32) 
2z#(25)=SPACE$ (48) 

CLS:PRINT"{12 SPACE3JETLINER" 
FRINT"{2 SPACE}For VC-28 by Roman Gr 
andis (CP 2/85)" 

FRINT"{4 SFPACE3Adapted for CFC by Ci 
aus Herwig" 

FRINT 

PRINT"Hamburg 

PFRINT"Bremen 


PRINT"M;nchen. 
PRINT"K:1n/Bonn. 
FRINT"Frankfurt. 
FRINT"N;rnberg 
PRINT"Stuttgart 
PRINT"D;sseldorf 
FRINT"Berlin/Tegel 
PRINT "Husum 
FRINT"Leck 
PRINT"Eggebek 
PRINT"Schleswig 
PRINT"Bremgarten 
PRINT"Firstenfeldbruck.F" 
PRINT"Hopsten oO 
FRINT"Memmingen 
PRINT"Remstein 
PRINT:FRINT"{3 SPACE3Bitte w@hlen" 
a$=INKEY$ 
a+=LDOWER#$ (a$) 
IF a$="1" THEN ai=9.25: a2=8: a3=31ß: 
bn1$="ALF":GOTO 5868 
IF a$="2" THEN ai=B.16:a2=9: a3=23B: 
bn1i1$="EMN":GOTO 5968 
IF a$="3" THEN ai=B.1:a2=8: a3=255:b 
ni$="HAD":GOTO 5968 
IF a$="4" THEN al=-B.34:a2=0: a3=168 
ıbni$="DM ":GOTO 59868 
IF at="5" THEN al=-B. 62: a2=B: a5=140 
:bni1$="KBO":GOTD 5848 
IF a$="6" THEN a1l=8.95: a2=8: a3=160: 
bni$="DF ":GOTO 5868 
IF a$="7" THEN ail=9.6:a2=B: a3=350:b 
ni$="NUB":GOTO 5968 
IF a$="8" THEN ail=-98.4:a2=8: a3=168: 
bni$="DS ":60T0 5948 
IF a$="9" THEN ail=8.35:a2=8: a3=290:b 
ni$="DUS":GOTO SB68 
IF a$="B" THEN al=9.2:a2=B: a3=350:b 
n1$="TGL":G0OTO 5868 
IF a$="u" THEN al=-B. 2: a2=9: a3=125: 
bn1$="HUU":GOTO 5868 
IF a$="1" THEN ail=-®. 36: a2=8: a3=38: 
bn1$="LCK":60T0O 5868 
IF a$="e" THEN ail=B.2:a2=B: a5=280:b 
n1#="EGB":G0OTO 59868 
IF a$="s" THEN ai=9.1:a2=B:a3=160:b 
n1$="SWG":GOTO 59868 
IF a$="b" THEN ail=-B.7:a2=B: a5=328: 
bn1$="BGT":60T0 59868 
IF a$="f" THEN ail=9.4:a2=B: a3=560:b 
ni1$="FFB":GOTO 5968 





























L2ED2) 
[LiFFO] 


[BSFC]I 
LEE28] 


[4574] 
[Z1ACI 


[SBBQ] 
[L1A66] 


EDBA4] 


[SB4E)] 
L[EBIE] 
[7684] 


LACS6] 


[C2688] 
[7690] 
[DSAB] 
LAF26] 
[8242] 
[F948] 
C[DAA2) 
LCE1iD6] 
£[19DB] 
[3DQBA] 
[ABDBI 
[243E] 
[CB3A]I 
[F9I60]1 
[4396] 
[OFFAI 
LAFSA] 
CBFCC]I 
[685C] 
[341A] 
[F1D6] 
LAAA4] 
[D696] 
[6356] 


[1574] 
[8CBE] 
[5014] 
£119C) 
[978E2] 
[9426] 
[AB44] 
[4F40]1 
ECFSA]I 
[9838] 
CB254] 
[SBF8] 
[967A] 
[S3D61 
[DiDE] 






































SPIELE 











IF a$="o" THEN ail=-8.18:a2=9: a3=100 
bn1s=" HOP" GOTO 5968 

IF a$="m" THEN ai=-B. 45: a2=9: a3=338 
:bni$="MEM":GOTO 5968 

IF a$="r" THEN a1=8.7:a2=8: a5=180:b 
ni1$="RMS":GOTO 59068 

GOTO 1848 

MODE 1:a4=1 

PEN 2 

FOR i=1 TO 25 

PRINT z$(i); 

NEXT i 

LOCATE wmot „smot:PEN 3:PRINT STRING 
$(3,CHR$(238)) 

LOCATE wff#f,sff:PEN 1:PRINT bn$ 
LOCATE wkr ,‚skr:PEN 1:PRINT"®" 

FOR i=1 TO 12:PLOT 289+i1 ,531:DRAWR 8 
„AB: NEXT 

FOR i=1 TO 12:PLOT 321+i1,31:DRAWR @ 
„48: NEXT 
b3=29:b4=1:k8=1:b5=9:b6=9:b7=B:b8=1 


6:d1=9:d2=1:n7=390898: sq1=9:d4$="UNT 
EN" 

17=8:dö=1:t1=TIME/SQ® 
d1=-8:k2=8:zf=1 

EVERY 15,1 GOSUB 6408 

DI 

b=JOY (8) 

b$=INKEY$ 


b$=LOWER$ (b$) 


IF ww=1 THEN 2128 

IF b=1 OR b$="i" THEN b3=b3+d8:G60OT0O 
2268 

IF b=2 OR b$="m" THEN b3=b3-d8: :ru= 
1:60T0 2268 

IF b=4 OR b$="j" THEN b5=b5-1:G0T0 
2268 

IF b=8 OR b$="k" THEN b5=b5+1:G60T0 
2268 

EI 

IF b=16 OR b$="z" THEN 5208 

DI 

IF b$="q" THEN ti1=TIME/S3BB: ww=1 

IF b$="w" THEN ti2=TIME/3BB:ww=B:ti1 


=ti-(ti2-til) 
IF ww=1 THEN 2828 


IF b$="]" THEN ei=ei-1:IF ei<i THEN 
eil=d 

IF b$="[" THEN ei=ei+t1:IF ei>3 THEN 
ei=4 

IF b$="a" THEN b4=8 

IF b$="s" THEN b4=1 

IF b$="\" THEN h2=h2+188:60T0 2788 
IF bö=1 AND dö=1 THEN t1=TIME/SBB: 

ds=8 

IF b$="" THEN 2268 


IF ASC(b$)<48 OR ASC(b$) >57 THEN 22 


G1=ASC (b$) -48: di-b$: IF di=® THEN d 
IF ensi THEN di=d1-3: IF di<ß THEN d 
IF 43 =® AND di<>1 THEN di=B:di1$="B" 
IF n?=8 THEN di=8 

LOCATE wkr ,‚skr 


FEN 1:PRINT di#$ 
EI 
IF di$="B" THEN n7=n7-8.1 


IF b6=8 THEN n7=n7-5*di 

n7=n7- (d1- (d1*b8/40000) ) *e6 

IF n7<=@® THEN n7=B:LOCATE wmot „smot 
:PEN 3: INK 3,6:PRINT STRING$ (3 ,CHR$ 
(238) ) :d1=9:d1$="B":G0T0O 2348 

DI 

LOCATE wtr ,str:IF n7>3@88 OR n7=8 T 
HEN PRINT" LCTRL H} "5 

FEN 1:PRINT USING" #444" 3n7 

GOSUB 6488 

EI 

eö=(TIME/3BB-e7): IF esizf THEN 25390 


IF eö’zf THEN eö=zf 

e7=TIME/3B8 

IF f1<128 THEN f1=128 

IF #3=@ AND di=1 AND di=1 THEN GOSU 
B 6008: #5=1 

ef=INT (S@BU#RND (1) ) +1 

IF ef<>34 OR eo=1 OR bö=® THEN 2488 


DI 

LOCATE wmot+2,smot:PEN 2:FPRINT CHR#$ 
(231) 

EI 

eo=1 
f4=(d1*B.9-b7/7B- (28-b3) /5-e1/2-b4) 
*e6:b7=b7+f4:1IF b7<® THEN b7=8 
#5=b7:IF b7>5 THEN a3=a3+b5*#e6 

IF a3>348 THEN a3=a3-368 

IF a3<@ THEN a3=a3+368 

DI 

LOCATE wkom,skom 


[786&C] 
[9364] 


C4BDE] 
[SS50C] 
[B22E] 
tE934] 
[CA1CI 
[284E] 
[CC60]1 


[35CQ] 
[8074] 
[DC7A] 


[7208] 
[31DE] 


CADB2] 
[688C] 
LE3E4] 
[ESCB] 
[S@DE] 
[91EA] 
[DF96] 
[5658] 
[BAAA] 


[8262] 
[2884] 
[ZEA4] 


[DSACI 
ESFF2] 
[CASC]I 
[SDE2] 
[639A] 


[OFBA] 
[6CAA] 


[791E] 


[C528] 
U[2DE6] 
[CFOE] 
LAIFCI 


[S9AE]I 
[8@ABI 


[ASBA] 
[6518] 
[83D4] 


[B10C] 
[aF4B] 
L9IE24) 
[7B7E] 
IFSF4] 
[7194] 
[8E6B] 
[7A84] 


[A548] 
[69EC) 


L9E972] 
[SDBE] 
[BFAC]I 
[S2F6] 


[1685C] 
[&AFE] 
[3878] 
LF@C2] 


[2432] 
[D7BA] 


[9814] 
[4CEE] 


[4928] 
L7FF4] 
[85S5E] 


[D996] 
[1868] 
[6036] 


[37SE] 
[S3EC] 
[59CC] 


PEN 1:PRINT USING"####. 
EI 

f8=b7+es/3408 
h1=a3#FPI/180:al=al+f8*5SIN(h1) 
a2=a2+f8*C0S(h1) 

IF a2=® THEN a2=B8.B901 

h3=SQR (a1l”2+a2”2) 

h4=ABS ( (ATN(al/a2))/PI*18B) :h5=hö+ta 
1:h7=h8+a2 
IF h5>h6 AND 
IF h5<h& AND 
IF h5=h6& AND 
IF h5=h6& AND 
IF h5>h6 AND 
IF h5>h6 AND 
IF h5<ih& AND h7>h8 THEN 
IF h5<h6& AND h7<h8 THEN 
IF h2:36@8 THEN h2=h2-36B 
IF h2<@ THEN h2=h2+368 


#"3a3 


h7=h8 
h7=h8 
h7>h8 
h7<h8 
h7>h8 
h7<h8 


THEN 
THEN h2=98 
THEN 
THEN 
THEN 
THEN 


h2=188+h4 
h2=368-h4 
h2=180-h4 
h2=3608+h4 


LOCATE wkkom,skkom 

FEN 1:PRINT USING"####.#":h2 
EI:DI 

DIz:LOCATE wkent „skent 
PEN 1:FPRINT USING"####. 
EI 

k2=(b3-2B) *#-b7+(e1-8.5%*b4) #150: k3=b 
7*(1+B.2*eil) 

IF b3=28 THEN k2= 

IF (b8-16)=B AND b3>28 THEN b3=28 
IF k3<18@8 THEN k2=k2-(180-Kk3) “2 

IF b6=® AND k2<B THEN k2=8 

IF b8>32888 AND k2>B THEN k2=k2#((4 
2000-b8) /1BBRD) 

IF b8i (16+30@) AND k2<B AND b4=B TH 
EN INK 3,1,24:sd=1 
IF b7:>5@@ THEN INK 
OCATE wwl2,swl2: 
1):EI 

IF k2X-88088 THEN INK 3,1,24:sd=1:DI 
:LOCATE wwli1,swli1:PEN 3:PRINT CHR$( 
231) EI 

IF n7<3@@8 AND n7>® THEN INK 3,1,24 
:DI:LOCATE ww15,swl3:PEN 3:PRINT CH 
R$(231):EI 

IF sd=1 THEN sd=9:50UND 2,284,50,1 
DI 

IF k2X-9999 THEN k2=-9999 

LOCATE wvgs,svgs: IF k2>-80@8 THEN F 
RINT"{CTRL H3 "5; 

FEN 1:FRINT USING" #444"; k2 

EI 

d8=3:IF b3>1@ AND b3<S@ THEN d8=2 
IF b3>14 AND b3<26 THEN d8=1 
b8=b8+e&6#Kk2/60: IF (b8-16)<Q THEN bB= 
16:b6=8 

IF (b8-16) >2 THEN bö=1 

IF b6ö=@® AND di<i1 THEN b7=b7-4 
DI:LOCATE whoe,shoe 

IF (b8-16) »3@@ THEN PEN 1:PRINT USI 
NG"######";b8:G0T0 3030 

IF (b8-16)<3@08 AND b4=B AND k2<B TH 
EN FEN 3 ELSE PEN 2 

PRINT"H"z3:PEN 1:PRINT USING" #HHH#"; 
(b8-16) 

EI 

IF ei=k6 THEN 3128 

SOUND 2,568,188,1 

kö=e1:DI:LOCATE wkl,skl 

IF k6=8 THEN PEN 2:PRINT CHR$ (208) 
ELSE PEN 1:PRINT CHR$ (204) 

EI:DI 

LOCATE wkin,„skln 

IF k6=® THEN PEN 2:PRINT USING"#";k 
ze FEN 1:PRINT USING"#";k6 


#";h3 


53,1,24:sd=1:DI:L 
PEN 3:PRINT CHR$ (23 


IF k8=b4 THEN 3208 

SOUND 2,11536,18@,1 

k8=b4 

DI 

LOCATE wfw,sfw 

IF k8=B THEN PEN 2:PRINT CHR$(137)C 
HR$ (129) :d4$=" OBEN" 

IF k8=1 THEN k9=RND (1): IF k9I5Q.8 TH 
EN FEN 2:FRINT CHR#$ (134) CHR$ (32 ):d4 
$="{2 SFACE}3?{2 SPACE}" ELSE FEN 2: 
PRINT CHR#$ (134) CHR$ (132) :d4$="UNTEN 


EI 

IF b7<® THEN b7=8 

DI:LOCATE wgs,sas: IF b7<S@® THEN FR 
INT"{CTRL H3 "3 

FEN 1:PRINT USING" #####":b7:EI 
IF (b8-16) >3@@ AND ktri=1 THEN 3440 
FEN 1:DI 

LOCATE wlav,slav 

IF (b8-16) >388 THEN FRINT"{S5 SFACE} 
":60T0 3290 


Listing. Fliegen ohne Pilotenschein (Fortsetzung) 














[EEF8] 
[8BF4] 
[B9SCI 
[7C8A] 
[8628] 
[189A] 
LEBEE] 


[B268] 
[D680] 
[279E] 
[CFB4] 
[D3@2) 
[F798) 
LEBFA]I 
ECB9CI 
[F496] 
LISSE] 
[8286] 
LS9IFB] 
[747C] 
[F488]2 
[C886] 
[A618] 
[8810] 
[SEFE] 


[21B@] 
[SE8CI 
[5858] 
LA4CCC] 
[816C] 


[922E] 
[2CD2] 


[757A] 
T6F3E] 


[4946] 
[CF4A] 
L1SF2] 
[7DC8] 


[81 AE] 
[81B4] 
LSCFA] 
[CBB4] 
[523A] 


LF936] 
[F682] 
[D4F8] 
[8622] 


[72E6] 
L762E] 


LAAQ4I 
[81E8] 
[SC7E]I 
[öACE)] 
LEAF4] 


[SF14] 
[EBBB] 
[FOCB] 


[D484] 
CABE6] 
[S37E] 
[BD1C] 
LEBEC]I 
[S7ECI 
[A724] 


[A796] 


[BSFA] 
[SOF6] 
[4B1C] 


[268A] 
[SBZE] 


[5254] 
[B7C8] 
CEEBC]I 


[FSCC]I 


85 






























































4160 


IF ABSter-h5)<1@ AND a3<=188 THEN P 
RINT USING" ###4##"; ( (er-h5) +1B00B) :GO 
TO 3298 

IF ABS(h5-fr)<i1® AND a3>18@ THEN FR 
INT USING" ####4#" 3; ((h5-fr) *198B0) :GOT 
0 3290 

FRINT"{S SFACE}" 

LOCATE wlah,slah 

IF (b8-16) >388 THEN FRINT"XS SPACE} 
":60T0 3358 

IF ABS(h5-fr)<i® AND a3<=188 THEN F 
RINT USING" ###4##" 5; ( (h5-fr)#+1B0B) :GO 
TO 3358 

IF ABS(er-h5)<1® AND a3>188 THEN FR 
INT USING" #####" 35 ((er-h5) 1220) :GOT 
0 3358 

PRINT"{5 SPACE}" 

EI 

DI 

LOCATE wlal,slal 

IF (b8-16) >388 THEN FRINT"i4 SFACE} 


":60T0 53398 

IF ABS(h7-hr)<ii AND a3>=188 THEN FR 
INT USING" #4#4##"3 ((h7-hr) #100D) :GOTO 
3398 


IF ABS(gr-h7)<1 AND a3<188 THEN FRI 
NT USING" ####"35 ((gr-h7)*1BQ0) :GOTO 
3398 

PRINT"{4 SPACE}" 

LOCATE wlar,slar 

IF (b8-16) >380Q THEN 
":ktr1l=1:G60T0 3448 
ktri=® 

IF ABS(gr-h7)<i AND a3>=18Q0 THEN PR 
INT USING" ####"3; ((gr-h7) *1800) :GOTO 
3448 

IF ABS(h7-hr)<i AND a3<18@ THEN FRI 

NT USING" ####"3 ((h7-hr) *1000) :G0TO 
3440 

PRINT"{4 SPACE}” 

EI: IF ei=1 AND b7>238 THEN 17=1:G0T 

0 4000 

IF ei=2 AND b7>218 THEN 17=2:G0T0 4 

200 

IF ei=3 AND b7>19@ THEN 17=3:G0T0 4 

jr r]] 

IF ei=4 AND b7>17® THEN 

000 

IF b4=1 AND b7>27@ THEN 17=5:G0T0 4 


PRINT"(4 SPACE} 


17=4:G0T0 4 


ul") 

IF (b8-14)=8 AND k2<i-588 THEN 17=6: 
G0OTO 4900 

IF b7>528 THEN 17=7:G0T0 4888 

IF b6ö=® AND(h5>(er+B.1) OR h5< (fr-8 
.1) OR h7>(gr+B.1) OR h7< (hr-8.1)) 
THEN 17=8:60T0 4990 

IF b6s=B AND (h5S>er OR h5{ifr OR h7>gr 
OR h7<hr) THEN 17=9:G60T0 4088 

IF (b8-164)=® AND k2<-598 THEN 17=6: 

G0T0 49008 

IF b&s4=B AND d4$=" 

GOTO 4908 

IF bs4=B AND d4$="{2 SPACE}?{2 SPACE 
3" THEN 17=11:60T0 4808 

IF b6=® AND b7>198 THEN 17=12:60T0 

4000 

IF b6=® AND b7>&6@ AND b5<X>@ THEN 17 

=13:60T0 4888 

IF k2<-9908 THEN 17=14:G0T0 49808 

IF bös=® THEN b3=28 

IF b7<1 AND b6s=@® AND dö=B THEN t2=T 
IME/300:60T0 4588 

di=1 

GOTO 20008 

t2=TIME/300 

ENV 1,5,80,189,5,-3,1880 

FEN 8: INK 8,1,24:L0CATE 198,3:PRINT 

REMAIN (1) 

SOUND 2,119,900,15,1,,180 

FOR i=1 TO 190000: NEXT 

INK ®,1 

PEN 1:LOCATE 18,7:PRINT"ENTER" 

IF INKEY(18)=-1 THEN 4878 

CLS 

MODE 2:PRINT"{3 SPACE3Unfallursache 
":PRINT 

IF 17=1 THEN 


OBEN" THEN 17=1@: 


FRINT"Sie haben mit La 
ndeklappen ’i1' die H:chstgeschwindig 
keit von 2580 k ;berschritten" 

IF 17=2 THEN FRINT"Sie haben mit La 
ndeklappen '2' die H:chstgeschwindig 
keit von 218 k ;berschritten" 

IF 17=3 THEN FRINT"Sie haben mit La 
ndeklappen '3' die H:chstgeschwindig 
keit von 198 k ;berschritten" 

IF 17=4 THEN FRINT"Sie haben mit La 
ndeklappen’4° die H:chstgeschwindig 
keit von 178 k ;berschritten" 

IF 17=5 THEN FRINT"Sie haben mit au 
sgefahrenem Fahrwerk die H:chstgesc 
hwindigkeit von 278 k ;ber-{2 SFACE 
>schritten" 

IF 17=12 THEN PRINT"Sie haben die H 


[9538] 


[87CB0] 
LEDC6] 
[B48C) 


[88BC] 


[9324] 


[DBACI 
LACBC) 
L3EEE] 
C4BEE] 
[8D96] 


[84982] 


[S4A6] 


[3426] 
L1E88] 
[D7B&ö] 
[2448] 
[L1E24] 
[9A92] 
[B11A] 
CBF88] 
£[9D78] 
CBBEA] 
[DSFE] 
[29880] 
[3D88] 
[6BAB) 
CASC4] 
[29C8] 
[8264] 
[S89E] 
[FF74] 
[2B6E] 
£[315C] 
[42AB] 
[A4QA] 
[628C] 
[22E8] 
CBBSE] 
[9FBB]I 
[49870] 
[D286] 
£ESDD&6] 
[73EC] 
[3626] 
[92F@] 
[öFFA] 
[9752] 
[C69C) 


LECC6]I 


CC9EE]I 


[BO2F®] 


[FDQ4] 


[4406] 


[DZAE] 


:chstgeschwindigkeit am Boden von 1 
98 k ;berschritten" 

IF 17=7 THEN PRINT"Sie haben die H: 
chstgeschwindigkeit von 528 k ;bers 
chritten" 

IF 17=11 THEN PRINT"Sie haben das r 
echte Fahrwerk nicht ausgefahren" 
IF 17=& THEN FRINT"Sie haben zu har 
t aufgesetzt" 

IF 17=1@ THEN PRINT"Sie haben das H 
auptfahrwerk nicht ausgefahren" 

IF 17=13 THEN PRINT"Sie haben bei z 
u hoher Rollgeschwindigkeit gekurvt 


IF 17=8 THEN PRINT"Sie haben au“erh 
alb der Landebahn aufgesetzt" 

IF 17=9 THEN PRINT"Sie sind von der 
Runway abgekommen" 

IF 17=14 THEN PRINT"Sie haben die m 
aximale Vertikalgeschwindigkeit von 
-998080 # ;berschritten" 
t3=t2-t1:st=INT (t3/360B) :mi=INT (t3/ 

&8-st*#6Q) :Ssk=INT (t3-mi *#68-str*36BB) 
PRINT=:PRINT"Flugzeit "st" St "mi" M 
in "sk" Sek" 
FRINT"Treibstoffverbrauch ";:trv=tr 

v+ (38888 -n?7) PRINT INT(trvw)"1" 
FRINT:PRINT"NEchster Flug f, sonst 
a$=INKEY$: IF a$="" THEN 4298 

IF a$="n" THEN END 

IF a$<>"f" THEN 4298 ELSE RUN 

IF ru=® THEN 2880 

tiil=TIME/3@8: IF ru=si THEN ru=ß@ 
d$=INKEY$ 

IF d$="t" THEN eo=8:DI:LOCATE wmot, 
smot:sou=1:PEN 1:PRINT STRING$(53,CH 
R#+(231)):EI:trv=trv+ (30OBRB-n7) 2n7=3 
BBRR: ti2=TIME/SBB:t1=t1-(ti2-til):G 
üTO 299008 
IF d$="e" 
[") 

GOTO 4318 
IF b6=B THEN 2008 


THEN t2=TIME/388:G0OTO 425 


DI=:LOCATE wf#,sff 
PRINT"{3 SPACE}":EI 
PEN 2 


as=INKEY#: IF a$="" THEN 50580 ELSE a 
$=UPPER$ (a$) :bni$=a$:DI:FEN 2:LOCAT 
E wff ,s#t#f:FRINT bni$:EI 
b#=INKEY#: IF b#$="" THEN 5848 ELSE b 
#=UPPER#$ (b$) :bni1$=bni1$+b#:DI:PEN 2: 
LOCATE wff#f,sff:PRINT bni$:EI 
c#=INKEY#: IF c$="" THEN 5058 ELSE c 
$=UPPER# (c#) :bn1$=bni1$+c$:DI:PEN 2: 
LOCATE wf#,sff:PRINT bni#:EI 

IF bni$="ALF" THEN zz=53:G0SUB 5768 
:h8=1218.2:h6=355.9:G0SURB 57808: er=3 
56.2:fr=355:60T0 5728 

IF bni$="ALS" THEN h8=1295:h6=345:6 
OSUB 5799:60T0 5728 

IF bni$#="ALB" THEN h8=953:h6=448:60 
SUR 57909:60T0 5728 

IF bni$="BEMN" THEN zz=11:60SUB 5768 
:h8=1182.7:h6=317.1:G605SUB 5780: er=3 
18.1:fr=316.6:60T0 5728 

IF bni$="BAM" THEN h8=1880:h6=269:6 
0OSUB 5700:G60T0 5728 

IF bni$="BGT" THEN zz=708:60SUB 576 
3:h8=874.4:h6=3907.2:G0SUB 5790: er=3 
07.4:#fr=305.2:60T0 5728 

IF bni$="COL" THEN h8=1847:h6=288:6 
OSURB 5700:60T0 5728 

IF bni#="DKEB" THEN h8=949:h6=492:60 
SUB 5700:60T0 5728 

IF bni$="DOM" THEN h8=11803:h6=282:6 
OSUB 5798:60T0 5728 

IF bni$="DUS" THEN zz=147:G0SUB 576 
8:h8=1977:h6=253.8:G05SUB 5788: er=25 
4.8: fr=2553.4:60T0 5728 

IF bni$="DLE" THEN h8=1135:h6=363:6 
OSUB 5799:G60T0 5728 

IF bni$="DHE" THEN h8=1251:h6=278:6 
OSUB 57098:G60T0 5728 

IF bni$="DM " THEN zz=1737:G0SUB 57 
68:h8=887.9:h6=469: GOSUB 5780: er=47 
8:fr=468.3:G0T0 5728 

IF bni#="DF " THEN zz=368:G05SUB 576 
2:h8=1092.3:h64=330.7:GOSUB 5700:er= 
331.5: #fr=329.6:G60T0 5728 

IF bni$="DS " THEN zz=13@8:605SUB 57 
68:h8=921.3:h6=365.2:G60SUB 5788@:er= 
366: fr=564.4:60T0 5728 

IF bni$="EGB" THEN zz=65:G60SUB 5768 
:h8=1277.4:h6=324.9:G05UB S700:er=3 
25.4:fr=324.5:60T0 5728 

IF bni$="ERD" THEN h8=988:h6=477:6G0 
SUB 5729:G0T0 5728 


IF bni$="ERL" THEN h8=979:h6=434:6G0 
SUB 5790:60T0 5728 
IF bni$="EEL" THEN h8=1189:h6=240:6 


OSUB 57808:G60T0 5728 
































[2FA2] 


[B45A] 
EFS12] 
[8BEA] 
[2810] 


[8310) 
[7A94] 
[9F1A] 


LAS78] 
[9476] 
[4206] 
[1824] 
[3104] 
C[3D84] 
[B85B6] 
[41D0] 
[1136] 


[7C4A] 
[E1A4] 


[C8B0] 
[F452] 
[621A] 
[4B94] 
[4966] 
[2CBE] 
[D238] 


[5920] 


[9ISCE)I 


LEEDCI 


[F6C4] 
[8DECI 
CBB64] 


[08841 
£77BA] 


[ABB] 
[FEE2] 
[4066] 
C42DB] 


[BOAD] 
[AECB] 
[OSCA] 


[A262] 


[998C1 


[45D8] 


[667A]l 
LEF78] 
LE49C]I 
[8ICE] 









































IF bni$="FFM" THEN h8=1883:h6=333:6 
OSUB 5798:G60T0 5728 

IF bni$="FFB" THEN zz=1783:G60SUB 57 
68:h8=892.6:h6=451.2:G0SUB 5788: er= 
451.6: fr=458.7:6G0T0 5728 

IF bni1$="FUL" THEN h8=19836:h6=365:6 
OSUB 5788:60T0 5728 

IF bni$="GED" THEN h8=1925:h6=354:6 
OSUB S70B:60T0 5728 

IF bni1$="GMH" THEN h8=1878:h6=297:G 
OSUB 5788:60T0 5728 

IF bni1$="650" THEN h8=1116:h6=397:6G 
OSUB 5788:G60T0 5728 

IF bni$="HAM" THEN h8=1221:h6=363:G 
OSUB 5788:60T0 5728 

IF bni$="HAD" THEN zz=183:G0SUB 576 
8:h8=1147.7:h6=354.6:G0SUB 5788: er= 
355.3:#r=353.7:G60T0 5728 

IF bni$="HOP" THEN zz=129:G60SUR 576 
0:h8=1140.8:h6=276.7:G0SUB 5700: er= 
277:fr=276.4:G0T0 5728 

IF bni$="HUU" THEN zz=93:G0SUB 5768 
:h8=1270.9:h6=318.65:60SUB 5788: er=3 
19.4:fr=318.4:G0T0 5728 

IF bni$="INN" THEN h8=836:h6=465:60 
SUB 57900:60T0 5728 

IF bni$="KBO" THEN zz=308:G0OSUB 576 
8:h8=1951.8:h6=279.9:G605UB 5780: er= 
271.6:fr=278.2:G60T0 5728 

IF bni$="LBU" THEN h8=935:h6=372:G60 
SUB 5780:60T0 5728 

IF bni$="LBE" THEN h8=1219:h6=342:6 
OSUB 5788:G0T0 5728 

IF bni$="LCK" THEN zz=24:G0SUB 5768 
:h8=1287.6:h6=3909.7:605UB S7@8:er=3 
18.9: fr=309.1:60T0 5728 

IF bni#="LUX" THEN h8=977:h6=241:60 
SUB 57@8:60T0 5720 

IF bni$="LNZ" THEN 

SUB 57909:G0T0 5728 

IF bni$="LNO" THEN 

OSUB 5799:G0OT0O 5728 
IF bni$="MEM" THEN zz=28079:G6G0SUBR 57 
68:h8=879.5:h6=412:G0OSUB 5788: er=41 
2.3:fr=410.9:60T0 57280 

IF bni$="MAH" THEN h8=896:h6=452:60 
SUB 5700:G60T0 5728 

IF bni$="MTR" THEN h8=1017:h6=349:6G 
OSUB 5700:G60T0 5728 

IF bni$="MUN" THEN h8=891:h6=473:G0 
SUR 5788:G60T0 5728 

IF bni$="NTM" THEN h8=19001:h6=252:6 
OSUB 57908:60T0 5728 

IF bni$="NIE" THEN h8=1158:h6=342:6 
OSUB 5788:60T0 5728 

IF bni$="NOR" THEN h8=1951:h6=254:6 
OSUB 5708:G0T0 5728 

IF bni$="NDO" THEN h8=1226:h6=307:6 
OSUB 5788:60T0 5728 

IF bni$="NUB" THEN zz=1045:605SUB 57 
68:h8=971.5:h6=431.5:G605UB 57B8:er= 
433: fr=431.3:G0T0 5728 

IF bni$="OBG" THEN h8=1191:h6=293:6 
0SUB 5799:G60T0 5728 

IF bni$="0OSN" THEN h8=1132:h6=305:6G 
OSUB 5700:G60T0 5728 

IF bni$="OKG" THEN h8=10903:h6=478:6 
0OSUB 5799:60T0 5728 

IF bni$="RMS" THEN zz=782:G0SUB 576 
8:h8=966:h6=296.5:G0SUB 5788: er=297 
.5:fr=2968.2:60T0 5728 

IF bni$="ROD" THEN h8=1133:h6=342:G 
OSUB 5798:60T0 5728 

IF bni$="RKN" THEN h8=1129:h6=249:6 
OSUB 5788:G0T0 5728 

IF bni$="SW6G" THEN zz=73:G0OSUB 5768 
:h8=1267.3:h6=331.8:605UB S788:er=3 
33:fr=331.7:G0T0 5728 

IF bni$="T60" THEN h8=917:h6=368:60 
SUB 5790:60T0 5728 

IF bni$="TGL" THEN zz=121:G60S5UB 576 
@:h8=1153.8:h6=485.2:G0SUB 5788:er= 
486.1:fr=484.3:G60T0 5728 

IF bni1$="TAU" THEN h8=1815:h6=314:G 
OSUB 5788:G0T0 5728 

IF bni$="TRA" THEN h8=862:h64=341:60 
SUB 5788:G60T0 5728 

IF bni$="WSR" THEN h8=1281:h6=318:G 
OSUB 5780:G0T0 5728 

IF bni$="WTM" THEN h8=1213:h6=276:G 
OSUB 5788:60T0 5728 

IF bni$="WRB" THEN h8=1898:h6=341:6 
OSUB 57809:G0T0 5728 

IF bni$="WUR" THEN h8=983:h6=386:60 
SUB 5788:60T0 5728 

IF bni$="WYP" THEN h8=19863:h6=275:6G 
OSUB 5788:60T0 5728 

IF bni$="WLD" THEN h8=915:h6=443:60 
SUB 57900:60T0 5728 

G0OTO 5200 

IF a4=B THEN RETURN 

ail=h5-h&6: a2=h7-h8: RETURN 

gr =h8+@.85:hr=h8-8.B5:bn$=bni$ 


h8=895:h6=564: 60 
h8=10565:h6=218:6 


[S4BE] 


[C9EB]I 
[BEF4] 
[B2CQ] 
I[FSE6] 
[BIE2]I 
[92BC)] 


[A1EB8] 


[8460] 


[BFD2] 
[DD9YE] 


[D8E4] 
[DD98) 
[29CC) 


LA3YE] 
[31BA] 
[FEBC]I 
[SBEC]I 


[5448] 
[7F84] 
[ö2FC] 
[3EBB] 
[8CEE] 
[FBE4] 
[97D80] 
[45DA] 


[F73A] 
CADD&] 
[29F2] 
[FCE6] 


[1544] 
[94E6] 
[CA4BAI 


CAB®2] 
[19B8] 


[A514] 
[C1E4] 
[3492] 
[BOSBE]I 
[8A14] 
[1DF4] 
[7DE2] 
[C72E]I 
[68A2] 
[6524] 
[51D8] 


[D968] 
I[FBB6] 


IF a4=8 THEN 1308 

LOCATE wff#,sff:FEN 1:PRINT bn$ 
G0T0 2998 

IF b8>zz2+288 THEN 16=zz:RETURN 
IF zx=@® THEN zx=1:16=zz: RETURN 


PEN 1:LOCATE wff,sff:PRINT bn$:GOTO 


2888 


LOCATE wmot „‚smot:PEN 3:PRINT STRING 


$(3,CHR$(231)) 


1=8:FOR i=956 TO 716 STEP -1:SOUND 
1,i1,5,1:SOUND 4,284,5,2,,,5:1=1+@.0@ 


29:NEXT 


LOCATE wmot „‚smot:PEN 2:FRINT STRING 


$(3,CHR#£(231)) 


SOUND 1,716,5@08,1:S0UND 4,284,500,1 


973,9 
FOR j=1 TO 28988: NEXT 


LOCATE wmot+1,smot:PEN 1:FRINT STRI 


NG$ (2,CHR$ (231)) 


FOR i=716 TO 568 STEP -1:SOUND 1,i, 


5,1:SOUND 4,284,5,19,,,5:NEXT 


LOCATE wmot „smot:PEN 1:PRINT CHR$ (2 


31) 


SOUND 1,568,1@@,1:SOUND 4,284,1@@,1 


933,5 
asou=568 
RETURN 
SYMBOL 
SYMBOL 
8,96 

SYMBOL 
SYMBOL 


AFTER 32 


SYMBOL 
SYMBOL 


94,60,102,108,102,102,230,1®8 


58,0,66,60,182,102,102,60,0 
59,36,8,102,102,102,102,62,8 


64,72,8,12@,12,124,140,118,0 
42,186,108,198,198,198,108,5 


43,48,198,198,198,198,198,12 


124,90,68,102,102,126,102,1® 


6275 
6288 
6308 sou=568-(d1*3B-38):IF eo=1 THEN 
=sou+148 

IF n7=B THEN sou=956 

IF sou<iasou THEN FOR i= 


6302 


63804 asou TO 


255,0,120,204,204,128,0,0,0 


sou 


sou 


STEP -18:SOUND 1,i,4,1,,4:S0UND 4, 


284,4,19,,,9:NEXT 
IF sou>asou THEN FOR i= asou TO 
STEP 18:SOUND 1,i1,4,1,,4:SOUND 
84,4,19,,,5:NEXT 


6306 


6308 
4:SOUND 4,284,50,10,,,5 
asou=sou 

RETURN 


6318 
6328 
6400 
EN b3=48 

IF b3<® THEN b3=2 

IF bS<-12 THEN b5=-12 
IF b5>12 THEN b5=12 


6418 
6415 
6417 
6428 

5te4) 
6430 


6432 
6454 
64536 
6438 
6440 


IF bk1>88 THEN bk1=80 
IF bk2>88 THEN bk2=88 
IF bk1<® THEN bki=® 
IF bk2<B THEN bk2=® 
IF abki1>bki THEN fa=8 
1+31:abki=abki1-1 ELSE 
‚abk1+31:abki=abki+1 
DRAWR 11,8,fa 

IF abk2>bk2 THEN fa=® 
2+31:abk2=abk2-1 ELSE 
‚abk2+31: abk2=abk?+1 
DRAWR 11,8,fa 

G0TO 6438 


ta=1:MOVE 


6458 
6468 
fa=1:MOVE 


6470 

6480 

6608 
GOSUB 4300 

661B IF b&Xi>B AND abh=i1 THEN RETURN 

6628 
FRINT 1b#(4) zabh=1:RETURN 

6625 

r)“B THEN RETURN 

abh=@ 

IF b7<S AND xc=1 THEN RETURN 


66350 
6640 
6658 
[1-12] 
6678 
6688 
6678 
6788 
6718 
6720 
6738 
6748 
6758 
67608 
6778 


1b=1b+1 

IF 1b=4 THEN 6728 

IF b7:150 THEN 6720 

IF b7>S® AND 1b=3 THEN 6728 
IF b7>12@ AND 1b=2 THEN 6728 
RETURN 

1b=® 

ibi=1bi+1 

IF 1ibi=4 THEN 1bi=1 

LOCATE 1,1 

PRINT 1b$(1b1) 

RETURN 


Listing. Fliegen ohne Pilotenschein (Schluß) 











IF sou=sasou THEN SOUND 1,s0u,58, 


:MOVE 290, 


:MOVE 322, 


sou 
4,2 


l,, 


b3=CINT (b3) :b5S=CINT (b5S) : IF b3>48 TH 


e4=b5: e5=-b5:bk1=2# (b3+teS) :bk2=2#(b 
IF abki=bk1 AND abk2=bk2 THEN RETUR 
N 


abk 
290 


abk 


322 


IF #3=1 AND sou‘ 956 THEN ON SQ(1) 


IF b6<i>@ AND abh=@ THEN LOCATE 1,1: 
IF (h7-hr OR gr-h7 OR er-h5 OR h5-f 


FEN 1:IF xc=@® THEN xc=1:G0T0 6728 


[865A6] 
[9ATE]I 
[9E1B] 
[2F@CI 
[CBEE] 


[7030] 
E1DBC] 


[971A] 
LEEBE] 


[65680] 
L89CE] 


[F478] 
[7358] 
[9578] 


[9384] 
[3016] 
L9S9E]I 
t[17AA] 


[7882] 
EFIFCI 


LIASBI 
CAF&2] 
LADF6] 
[8D38) 


[DC88] 
[CEF®] 
[97AB] 


LASSA] 
[DCAd] 


[5C7C] 


L192A] 


L892E] 
[246C] 
E[CA96] 


[A472] 
[1218] 
EBFAA] 
L7BFE] 


[594C] 


[SF68] 
[@O1AB] 
LEDB®) 
LCSCCI 
LECD4) 


[6692] 
19188] 


[4996] 
LCAFB4] 
£[C730] 


[780A] 
[CFB2] 


L8AS41 


CBABE] 
L93BE)] 
[42A8] 
[38E®] 
L1C4E]I 
[4E3SE] 
L3C9C)I 
LAADE] 
C[B424] 
[CB9CI 
[B354] 
[88BE] 
[BSD8] 
[S4B®] 
[28C4] 
[BCAB]I 






























































Haben Sie ein Faible für Helikopter? - 
Und lieben Sie Abenteuer? 

Dann nichts wie ran an die Buletten. 
Ein exzellentes Action-Spiel wartet 
auf Sie, das dem Hit auf dem C 64 
»Fort-Apokalypse« nachempfunden wurde. 





m ein Maximum an Spielgeschwindigkeit zu errei- 

chen, sind alle zeitkritischen Routinen in Maschinen- 

Sprache geschrieben. Auch die -zig verschiedenen 
Bilder des Spieles sind als Binär-Felder gespeichert. Das 
Maschinen-Programm enthält einige Routinen, die mit RSX- 
Befehlen aufgerufen werden. Am besten geben Sie zunächst 
den Basic-Teil des Spieles (Listing 1) ein und speichern ihn, 
denn nach dem Starten lädt er den Maschinen-Code automa- 
tisch nach. Danach geben Sie den Basic-Lader aus Listing 2 
ein und speichern ihn sicherheitshalber ebenfalls. Normaler- 
weise benötigen Sie ihn nicht mehr. Sollten sich aber Fehler 
eingeschlichen haben, könnte die ganze Arbeit nach einem 
»RUN« zunichte sein. Wenn Sie den Lader nun starten, spei- 
chert dieser selbsttätig den Maschinen-Code als Binärdatei 
»Chopper.bin« auf Kassette oder Diskette ab. 

Der Sinn des Spieles ist schnell erklärt. Mit einem moder- 
nen Hubschrauber sollen Sie alle in einem unterirdischen 
Labyrinth gefangengehaltenen Menschen herausholen, um 
sie aus der Knechtschaft eines wirren Diktators zu befreien. 
Die Zeit aber drängt: Ihre Treibstoffanzeige nähert sich nur 
allzu schnell der Null-Marke. Doch damit nicht genug, natür- 
lich macht Ihnen der teuflische Herrscher die Aufgabe nicht 
gerade leicht. Da stellen sich Ihnen bewegliche Energie- 
Blöcke und wachsame Kreaturen in den Weg, und die engen 
Passagen der Höhle verlangen Ihre volle Konzentration. 

Zum Schluß noch ein heißer Tip: Die wandernden Blöcke 
wechseln unter Beschuß ihre Bewegungsrichtung. 

(Rüdiger Möller/ja) 


















1 '(c) by ruediger moeller LCE2SC]I 
2 "werner sombartstr. 2 7758 konstanz [3450] 
3 "tel. 87531/54151 [7478] 
4° LACF6] 
5 "listing 1 [6FBE] 
& '>chopper.basic C[B738] 
7 Ale LCCFC]I 
12 MEMORY 29999: LOAD"CHOPPER.BIN":CALL 4 

2oao [28640] 
2@ MODE @:DEFINT a-z [E826] 
380 'init [46BC] 
48 PRINT CHR$(23)+"1" [8118] 
5® DIM raum (26,6):DIM ra$(2&4) :DEFREAL a- 

z:DIM ton(48):DEFINT a-z [FEBCI 
60 DEG: power =3@@:raum=1:pilot=7:x=1@:RES 

TORE 1188: y=164:maenne=® [CE94] 
78 sink=808:alx=x:aly=y:POKE &3SC,x:FOKE %& 

=D,yvsPOKE 399997,1 E[FCBB] 





88 RESTORE 1188:FOR n=1 TO 25:ra$(n)="": 

FOR ni1=8 TO S:READ raum (n,ni) NEXT:NE 

xT CD3F4] 
9a DEFREAL a-z:GOSUR 1438:DEFINT a-z [4604] 
1088 ENV 1,5,3,1,5,-3,1:SOUND 4,8,-32768, 
@,1,2,1:ENV 2,5,3,1,15,-1,1@:ENV 3,5 
5,1,19, 71,9 CACBA] 
CLS:fefl1=9:60SUB 570: !SWITCH,18,40,8 
:GOSUB 519:G0SUB 448:GOSUR 3780: :SWIT 
CH,PEEK (39999) „x,yımflag=® 
ON raum(raum,4)+1 GOSUB 610,620,735®, 
850,720,980,1050,1050,111@ 
CALL 39500: IF fefl=1 THEN :!MOVE,nr ,„f 













C21BE] 
[CSF®] 
[7150] 
[E7&8] 







Xıty 
x=PEEK (&3C) : y=PEEK (&3D) : fire=PEEK (&3 
E) 





siza=ssizatl:IF siza>=sink THEN siza= 
@:power=power-1:G0SUB 558:GOSUB 598: 
sink=sink-3: IF sink<1@ THEN sink=18 





[öEF2] 












170 


188 


410 


420 


430 
449 
4508 


460 


470 
480 


490 


500 
s1@ 


528 
538 


548 
558 


el=].] 
578 
588 
572 


[141%] 
618 
628 
638 
640 


650 
[1-).] 
678 
680 
698 
720 


718 
728 


730 
748 
758 


»<1 OR x>74 OR y<8 OR y>4& THEN 2 


ı COLL ,„FEEE (39999): IF PEEK(62)=255 TH 
EN 2680 
IF firei>@ THEN GOSUB 3280 
GOTO 128 

hubi aus bildschirm 
IF x<S5 THEN raum=sraum (raum,2) :x=74 
IF x>74 THEN raum=r aum (raum,3):x=1 
IF y<8 THEN raum=r aum (raum ,®) : y=46 
IF y>45 THEN raum=raum (raum, 1): y=8 
alx=x:aly=y:POKE %3SC,x:POKE &SD,y:60 
TO 11@ 

hubi hat collidiert 
!'COLL,9:coll=@:coll=PEEK (62): :COLL,1 
®:coll=coll+FEEK (62) 
IF coll=255 THEN 478 
IF raum(raum,S)=®8 THEN 478 
IF mflag=@ THEN !SWITCH,9 ELSE 
CH,1®@ 
raum (raum,S)=B: !SWITCH, 112maenne=mae 
nne+1:G60SUB 518:SOUND 1,120,8,08,2:6G0 
TO 128 
“schuss !! 
xk=x#8: yk=399-y#8: IF PEEK(39999)=1 T 
HEN MOVE xk+34,yk-22:DRAWR 180,-20 E 
LSE MOVE xk-2,yk-22:DRAWR -19080,-28 
SOUND 129,2,8,08,2,2,1:0N raum (raum, 4 
) GOSUB 790,820,890,97460,1020,1080,1@ 
890,1160 
IF PEEK(39999)=1 THEN DRAWR -100,20 
ELSE DRAWR 180,20 
RETURN 
“ screen aus datas lesen 
GOSUR 518 
CALL 397008,319B00+r aum# 100 
IF raum(raum,5)=1 THEN :!INIT,18,3117 
28,8,16,FEEK (39480) „PEEK (37481): 1 INIT 
‚7,31@490,8,16,PEEK (39488) „PEEK (39481 
)=2ıSWITCH,Y:mflag=8: !INIT,11,31300,8 
‚16,PEEK (3948B) „PEEK (39481) 
IF raum (raum,5)=® THEN :!INIT,10,3117 


0,8,16,PEEK (39480) „PEEK (39481): 1 INIT 
‚11,315808,8,16,PEEK (39488) „PEEK (3948 
1)2:SWITCH,11 
ON raum(raum,4) GOSUB 720,840,710,977 
0,1040,1090,1188,1170 
RETURN 

"hubis anzeigen 
FOR n=1 TO 2:LOCATE 1,n:FRINT SPACE$ 
(13) NEXT 
FOR n=® TO pilot-1::SWITCH,®,n#*6,8:N 
EXT: RETURN 
* EXPLOSION !!' 

!SWITCH,PEEK (39999) :5SOUND 129,0,0,0, 
3,8,1::SWITCH,12,x,y:FOR n=1 TO 1088 
:NEXT: SWITCH, 12:x=alx:y=aly:pilot=p 
ilot-1:605UB 448: IF pilot=® THEN CAL 
L 38900:G0T0 60 

!:SWITCH ,FEEK: (39999) „x,y:sink=80: FOKE 
&3C,x:POKE &3D,y:GOTO 128 

“ maennchen anzeigen 

LOCATE 16,3:PRINT maenne; : IF maenne< 
>25 THEN RETURN 

CALL 38900: PRINT CHR$(7):FOR n=1 TO 
288: SOUND 1,RND*478,2,7:NEXT 

MODE 1: a$="VLH#KDEHO#DOOH#FDHOOFKHO# 
EHIUHLW#&## ] XU#EHORKOXOJHVWXHUTHHLFK 
#EHVROGHUV#VFKRHO#H#HDEHF$": FOR n=1 TO 
LEN (a$) :FPRINT CHR$ (ASC (MID$ (a$,n,1) 
)-3)3 2NEXT 

CALL &BCQ8: END 

IF raum(raum,S)=1 THEN !ANIMATE,9,1® 
smflag=mflag XOR 1 

RETURN 

"power anzeigen 

LOCATE 1,3:PRINT"POWER"; 

LOCATE 6,3:PRINT power: IF power>® TH 
EN RETURN 

CALL 38900:60T0 68 

CALL &BD19:CALL &BD19:RETURN 

feind 1 wanderblock nach rechts 

CALL &BD19 

IF siza\8<>siza/8 THEN CALL &BD19:RE 
TURN 

IF fr=-1 THEN 688 

fx=fx+8: IF fx-fstx>16 THEN fx=fstx 
ıMOVE ,17,#x,fy=RETURN 

fx=fx-B: IF fxifstx THEN fx=fstx+16 
ıMOVE ,17,#x,fy: RETURN 

!COLL,17:2IF PEEK(&3E)=255 THEN fr=fr 
*-1 

RETURN 

fstx=PEEK (39482) : fsty=PEEK (39483) : 
WITCH,17,fstx ,fsty: fx=fstx: fy=fsty: 
efl=8:fr=1:ver=B: RETURN 

“ feind 1 wanderblock vertikal 

CALL &BD19 

IF siza\8<>siza/8 THEN CALL &BD19:RE 
TURN 


!SWIT 


S 
f 


Listing 1. »Chopper« Basic-Teil 





L1ESCI 


[857C] 
C3ABB] 
[FB4ACI 
[2496] 
[4B3E] 
[A73E]I 
C[DC46] 
[FFAE)I 


L1E40] 
[BOs9E]I 


L76AA]I 
[41EC]I 
[C8FA]I 


[0078] 


[2316] 
C9BEE] 


[B228] 


[A476] 


L1ECA] 
[CC32]2 
[C29C] 
[SBE2] 
[A470] 


[AB9C1 


[9E14] 


[AB16] 
[CF2ZE]I 
[A&D6] 


[8766] 


[E@A4] 
[348C] 


[458C] 


[F@Bö] 
[6034] 


CFFEE] 
CB748] 


CDBA42] 
[80521 


[297C] 
LAA36] 
[DAQ2] 
LAAFB]I 


[B124] 
E14DE] 
E7CSE]I 
[BACA]I 
[C416] 


[494E) 
[7ED4] 
[C68A] 
[0766] 
LAEBA]I 
[AD6A] 


[6D56] 
[CES®] 


[1C00] 
[13@C] 
[831A] 


[8052] 














RAAPPY®: 
TAMILYNER 





































































768 
778 
788 
790 
800 
818 
820 








830 
8408 







850 
848 







870 





888 
8708 






908 
910 






9728 
730 






948 





958 
9768 
970 







988 
9798 
1008 











1018 
1020 







1850 




















IF fr=-1 THEN 888 
CALL &BD17 
fy=fy+4:1IF fy-fsty>12 THEN fy=fsty 
!MOVE,17,fx,fy=z RETURN 

fy=fy-4: IF fyifsty THEN fy=fsty+12 
!ıMOVE,17,fx,fy: RETURN 

!ICOLL,17:1IF PEEK(&3E)=255 THEN fr=fr 
“1 

RETURN 

fstx=PEEK (39482) : fsty=PEEK (39483) : | 
WITCH,17,#stx ,fsty: fx=fstx:fy=fsty: 
ef1l1=9: fr=1: ver=®:RETURN 

‘ wartminen 

CALL &BD19:CALL &BD19: 


S 
f 


IMOVE,19,fx,fy 


IF ABS(fx-x)>12 OR ABS(fy-y)>B THEN 
RETURN 

ıMOVE ,19,x+2,y+2:RETURN 

!COLL,19: IF PEEK(&SE)=255 THEN :!SWIT 
CH, 19:zraum (raum, 4)=® 

RETURN 

fef1l1=9: fx=PEEK (39482) +7: fy=PEEK (3948 
3)+3:2 1SWITCH,19,fx,fy=znr=19:RETURN 
"4 block 

blza=blza+t1:IF blza>1B®@ THEN blza=i 


FOR n=8 TO 3:IF blza/za(n)=blza\za(n 


) THEN !SWITCH,17,fx+14#n,fy 
NEXT: RETURN 
RETURN 


blza=1:fx=PEEK (539482) : f y=PEEK (39483) 
:fefl=8d:FOR n=®B TO 3:za(n)=RND*20+14 
:NEXT: RETURN 

* bombe 
CALL &BD19:CALL &BD19 

boza=boza#+t1l:IF boza=1@® THEN :SWITC 
H,28: :SWITCH,12,fx,fy:SQOUND 129,0,8 
‚8,2,8,1:FOR n=1 TO 1B888:NEXT: :SWIT 
CH,12::!SWITCH,2@:G0OTO 478 

RETURN 

'COLL,„2@: IF PEEK(%3ZE)=B THEN RETURN 


!SWITCH, 29: !SWITCH,12,#fx,„fy:SOUND 1 

29,08,08,0,2,82,1:FOR n=1 TO 12008:NEXT 

raum (raum,4)=9: SWITCH, 12:boza=Q:R 

ETURN 

boza=@: #x=PEEK (39482) : fy=PEEK (39483 

):fefl=8: :5WITCH,28,fx,fy:RETURN 
kamikaze 

Dan IF fx>88 OR fx<1 THEN fx=f 

stx:fy 

CALL LBD19: RETURN 

RETURN 

treff=8:fr=-1:fefl=1:fstx=PEEK (3948 

2): fsty=PEEK (39483) : fx=fstx:fy=fsty 

ınr=15: !SWITCH,15,fx,fy:RETURN 

treff=®: fstx=PEEK (39482) : fsty=PEEK ( 

39483) : fx =fstx:fy=fstyenr=16: !SWITC 

H,16,fx,fy:fr=1:fefl=1:RETURN 

“ strahlen 

CALL &BD19:stza=sstza+ti1: IF stza<S@ T 

HEN CALL %&BD197: RETURN 

stza=® 

MOVE sxk,syk:DRAW 639,.8:MOVE sxk,sy 

k:DRAW 639,328:MOVE sxk,syk:DRAW ®, 

328:MOVE sxk,syk:DRAW B8,2:MOVE skx,„ 

syk:DRAW Q,sky:MOVE skx ,syk:DRAW sk 

x„@=:MOVE skx,syk=:DRAW skx „328:MOVE 

skx,sykz:DRAW 639, syk: !COLL „PEEK (397 

79) 


IF PEEK(&3E)=255 THEN x=10:v=l6:rau 
m=1:POKE &3C,x:FOKE &3D,y:alx=x:aly 
=y:60T0 11® 

RETURN 


fef1l=8: sxk=PEEK (39482) #8: syk=399-PE 
EK (39483) #8: stza=Q9: RETURN 
0,0,0,2,1,1 
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COFSC]I 
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Listing 1. »Chopper« Basic-Teil (Schluß) 


DATA 8,8,0,0,0, 


73 








7):FOR 
LOCATE 
LOCATE 
LOCATE 


n=1 TO 28:i$=INKEY$:NEXT 
7,15:PRINT"CHOFPER!" 
18,16:PRINT"RBY" 
3,17z2PRINT"RUEDIGER MOELLER" 


LOCATE 1,2:FRINT"FRESS{4 SFACEFANYL 
4 SPACEIKEY" 
!'SWITCH,B,66,12:2:!SWITCH,1,18,12 
!SWITCH,B,66,41::SWITCH,1,18,41 
!SWITCH,1,14,27::SWITCH,®B,60,27:!5W 
ITCH,® 

RESTORE 1438 

FOR n=@8 TO 18:READ a: INkE n,a:NEXT 
DATA 0,25,2,53,26,23,16,16,11,13,18 
RESTORE 1568 

DEFREAL a-z 

ENV 5,3594, 1, 15, - 1; S3ENV 4,5,3,1,13, 
-1,5 

sp=8:RESTORE 1568 

FOR n=1 TO 15:READ ton (n):zNEXT 
start=28: adr 3=35008: adr 2=3505@: adri 
=35200: adr 4=359028 


IF (SQ(4) AND &X111)=4 THEN GOSUB 1 
IF ei AND &X111)=4 THEN GOSUB 1 
IE (s0«2) AND &X111)=4 THEN GOSUB 1 
IF IKevsc>"“ THEN CALL 38928: RETUR 
SoTo 16500 


SOUND 4,ton (start+PEEK (adr3)) „2*sp, 

8,5,8®8,PEEK(adrS+t1l):adr3=adr3+t2: IF a 
dr3>358@015 THEN adr3=35800: !ANIMATE, 
0,1:G60SUB 1678 

RETLUIRN 

start=PEEK (adr4) :adr4=adr4+1: IF sta 
rt=255 THEN adr4=35019:G60T0 1678 

RETURN 

SOUND 1,PEEK (adr 1) +256*PEEK (adri+1) 
‚„PEEK (adri+2)*sp,B,ö6:adri=adri1+3: IF 
PEEK (adr1)=255 THEN adr 1=35200 

RETURN 

SOUND 2,FEEK (adr2) +256*PEEK (adr2+1) 
„FEEK (adr2+2)*sp ,„B,6: adr2=adr2+3: IF 
PEEK (adr2)=255 THEN adr2=358580 

RETURN 

DATA 965,851,758,716,638,568,506,47 

8,426,379,558,319,284,253,2597 

SPEED WRITE 1:SAVE" '!CHOPPER.MAIN":S 

AVE" !'CHOPPER.BIN",b,S@800, 12000 


"(c) by ruediger moeller 


isting 2 
chopper . data 


ATA 38800 


DATA 192,192,128,0,8,128,8,0,0,192,0, 


4,64,200,128,64,196,200 
ATA 192,192,196,208,192,192,196,192, 
92,64,64,192,128,0,0,192 


DATA 8,0,64,0,128,0,128,0,64,8,192,19 
2 
DATA 8,0,0,0,0,64,192,192,0,0,64,0,12 
8 
DATA 192,192,196,200,192,192,196,200, 


192,0,0,0,0,0,0,0,0,0 
0,192,20,128,64,196,128 
28,192, 


192,200,0,64,192 


DATA 128,0,0,192,0,0,64,0,128,2,128,® 


64,8,192,192,192,0,0,0 
2,2,8,0,195,195,0,195, 

95,67,131,131,8,65,2,18 

ATA 18,5,15,11,1,5,5,2,5,8,5,65,7,3, 

11,131,195,75,135,195 

DATA 1,65,65,5,10,8,65,1,18,15,195,1 

95,15,5,195,195,195,2,65 

DATA 8,11,131,135,195,130,67,130,7,1 
‚65,3,65,195 

‚5,65,1,2,18,8,3 


‚2,0,8,2,0,2 


5,135,65,135 
31 
18,138,138,2 


‚75,67,7,3,6 


DATA 1,1,67,2,195, 
0,0,0,1,0, 


‚2,5,0,0,80,0, 
20,0,0,0,0,0,65 


Listing 2. »Chopper« Basic-Lader 
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[SD1E] 
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[SS4E] 
[B208)] 
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CBFFA] 
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[BA16] 


[B8ö2E] 
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[749A] 
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LFSOA] 
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[31122 
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tE2SC] 
LACF2] 
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LADSCI 
CACFB] 
L[9EPCI 
[98DE]I 
[S58A4] 
[F11B] 
[BO4CCI 
LAAZE]I 
[C854] 
[C7A&] 
[@C7C]I 
[7BOC] 
[57B4] 
[17F8] 
[264F8] 
E1DAA] 
EF&BA] 
[9962] 
[869A] 
[SCB&6] 
[7AAE]I 


[C428] 
























































Listing 2. »Chopper« Basic-Lader (Fortsetzung) 


DATA 8,8,2,0,2,2,8,2,8,02,8,2,0,0,3,& 
0,0,0,1,65,0,8,8 
0,75,15,0,0,0,0,80,7,130,65, 
‚3,130,0,8,8 
2,2,195,8,0,0,0,67,1,65,5 
‚131,67,195 
7,65,65,195,195,80,8,8,13 
2,0,1,6757 
1,65,8,2,5,8,2,5,15,1,3, 
67 


3 
‚8,65,65,65,3,5,1 
1,52, 
18,0,0,131,195,1® 
2.152,0,2,1 „ii 
DATA 3,11,8,195,135,135,2,7,7,5,11,6 
7,138,130,195,75,75,138® 
DATA 131,0,10,65,65,131,195,195,7,2, 
11,15,1,2,67,195,131,2,11 
DATA 3,7,65,75,15,5,7,3,8,2,75,B,1,1 
0,8,1,0,2,65,2,130,67,135 
DATA 7,8,1,65,195,135,135,3,3,0,0,8, 
7,65,195,130,15,0,0,0,1 
DATA 1,7,65,135,0,0,0,0,2,130,5,67,8 
‚8,0,465,1,5,2,65,8,0,0,65 
DATA 67,131,3,7 0,8,1,7,75,8, 
0,0,0,0,0,2, 
8,67,8,0,0,0 


1,8,11,11,5, 


‚5,0,0,0,195 
‚130,0,10,8,0 
io 
65,0,0,2,0,0, 
5 
2,2,0,0,0,0,1 

135,75,75,2,0 
‚67,75,7,1,65 
3,65 
'65,130,1,135, 
5,11,130,131,130 
‚1,130 
0,5,1,10,2,5,131, 


65,65 
18,2,5,1,18,1,® 


Alm» U8r«- N 


DATA 65, 


0,0,2,0,0,0,0 
(7) 
1 


DBSSU- run» 


28,4,4,4,8,8 
160,8,4,4,0,8 
160,0,2,2,0,0 
168 

‚„48,48,48,48, 


’ 
1: 
’ 
1 
’ 
3 
7 
14] 
[) 
1 
’ 
, 
’ 
’ 
’ 
’ 
’ 
’ 
hl 
8 


’ 
4 
[] 
[") 
["] 
["] 
4 
["] 
oO 
[%] 
8 
4 
[") 
["] 
["] 
["] 
[") 
[") 
["] 
[") 


2,2,0,2,2,0,8 
() 
0,0,0,0,8,4,8 


SSFSSTUSSTEPSSTSAFPSSHT-- 


TEEN IT 
EEE ER 


DATA 48,4 


0 
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‚2,2,0,0,0,8 
‚2,0,2,0,0,0 
‚20,0,0,0,48, 


Dessau 
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8,4,64,0,0,0 
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[) 
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52,136,204,68 
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STH--S-UB8858588688SS8U- 
ones 


[6öEE6] 
E3DCA] 
[8842] 
CB16C] 
LA48FA] 
[CED8] 
[38DE] 
[7878] 
[8EAB] 
[588C] 
[223C] 
LIEBE] 
[8F4C]I 
[93E4] 
[824C] 
CZAF6] 
[4620] 
[84E2] 
LFEAC]I 
[@412] 
L[C398] 
LAB2E]I 
[3778] 
[2342] 
tE236] 
[33BC] 
[2628] 
[1C24] 
[4652] 
[85A6] 
LEE2A] 
[8538] 
[@7BA] 
[73D4] 
LF@2C] 
[5238] 
L[29FA] 
[143E) 
[C2C4] 
[8588] 
[BOAA] 
[BOCACI 
[8BAE]I 
[1250] 
LA&CA]I 
ECB9DCI 
[8E68] 
[322A] 
[EED4] 
[C1F78] 


DATA 2,2,0,0,0,8,0,0,2,02,0,0,40,0,0, 
2,60,0,0,0,68,40,60,8,&0 

DATA 48,52,60,68,60,68,48,0,32,0,32, 
2,0,0,0,02,0,0,0,0,68,284 

DATA 96, 108,8,0,0,8,8,0,20,0,0,0,68, 
4,60,68,60,60,55,48,68,20 

DATA 69,60,68,16,0,16,80,8,8,8,0,0,8, 
0,0,0,68,16,96,48,204,0 

DATA 2,0,0,20,204,0,0,136,0,8,136,1® 
4,60,204,156,204,64,0,156 

DATA 148,104,0,0,136,156,80,2,20,20,8 
‚28,8,204,0,0,0,64,0,0,8 

DATA 2,128,126,0,0,60,68,136,0,40,15 
6,68,0,284,148,196,136,156 

DATA 156,60,68,128,8,136,0,60,68,0,0 
‚284,0,8,0,64,0,0,64,0,8 

DATA @,0,48,48,48,48,48,48,48,48,48, 
48,48,48,48,48,48,48,48 

DATA 48,48,48,48,48,48,48,48,48,48,4 
8,48,48,48,48,48,48,48,48 

DATA 48,48,48,48,48,48,48,48,48,48,4 
8,48,48,48,48,48,48,48,48 

DATA 48,48,48,48,48,48,48,48,48,48,4 
8,48,48,48,48,48,48,48,48 

DATA 48,48,48,48,48,48,48,48,48,48,4 
8,48,48,48,48,48,48,48,48 

DATA 48,48,48,48,48,48,48,48,48,48,4 
8,48,48,48,48,48,48,48,48 

DATA 48,48,48,48,48,48,48,48,48,48,4 
8,48,48,48,48,48,0,8,156 

DATA 108,156,108,0,0,0,80,0,0,0,2,68, 
68,0,0,0,136,0,64,192,68 

DATA 8,128,0,136,0,128,68,68,0,64,0, 
2,0,20,48,0,0,48,48,0,16 

DATA 48,48,32,16,48,48,32,16,48,48,3 
2,16,48,48,32,0,48,48,8 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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L9A1B] 
LF278] 
L99E6] 
LDA2E] 
[4506] 
[L1C86] 
LBCDC] 
L1CB8] 
LFOSCI 
LCBiCI 
[8B1E] 
LE9I20] 
[9622] 
[D724] 
[7996] 
[SACQ] 
[63C8] 
L46E6] 
Li2BE] 
LB1AE] 
LESB®O] 
LACFCI 
[DSEE] 
L9B00) 
L7F78] 
L1FaCI 
[S4ACI 
L637E] 
[6142] 
LBBA&] 
L&FE2] 
[361E] 
LF428] 
LFDCB] 
[8404] 
L8B9E] 
[53E9) 
LB&BA] 
L&C1EI 
L751A] 
[46B2] 
LF784] 
LAB&C] 
LF88CI 
[872E] 
[B6C6] 
LSF36] 
L42E2] 
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[DAAD] 
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[95D41 hi T, CBB12] 
LOASCI 1 [91209 
LF65B] 8 LF188] 
L1A641] L2F2EI 


or 
DrD« 


[2@FC] j CCECE)] 
[F&66C] [FD42] 
CZFE®B] ; [3584] 
L1CAA]I [C374] 
[D182] 


D 


[a1C2] 
[9B84] C[B7A2] 
[E788] 
[78A4] 
[SDDE] 
[693E] 
C8DAE]I 
LACFA] 


[2DBC] 
[F322]) 


SOONS-UNSDO-D- 00 MD. 


DOUOrTOS=-SOSDND- 


[47AB] 
CBS1E] [7D86] 


C[B4AA] [3E12] 
[131E] 5 [5D2C1 
LACF6] £[47D8] 


D+-D0r,0r0s 


DmD- 


[BBA2] 2 [7638] 
L39F8] i [B72C] 
[78521 55 LESFO] 
LF41C) [3E1A] 
[19881 
[8800] 
[7492] 


[7522] 


C[DE44] 


LEB16] 

LA6A4] 
[8210] ‚2,2,142,0, 

LFDD®]J 


’ 
D 
8 
D 
8 
D 
1 
D 
1 
D 
8 
D 
73 
D 
8 
D 
1 
D 


CDBCE] ‚8,4,239,0, 
‚1,4,8,8,5 LBAD®] 
ER [2FAA] 27,80,18,159 

‚313,11,0 ‚2,8,253,8, [CD24] 

[FSE2] DATA 0,0,0,0 

0,2,0,0,0,0, [) [5506] 

[4508] DATA 38908 [A988] 
DATA 6,255,33,0,1 

[A492] 8,205,20,188,201, 
2 DATA 95,95,25,216 
LASZE] ‚28,0,0,8,8,0,8,0,0 [8180] 
DATA 390088 L8F7E] 

[B736] DATA 254,1,192,175,58,213,152,62,8, 

59,214,152,221,86,1,221,94 LSACCI 

[F868] DATA 8,6,180,26,254,9,204,183,152,2 

54,18,284,198,152,285,126 [3964] 

[BS16] DATA 152,19,16,239,201,245,197,213, 

229,254,1,408,20,245,205,124 [202A] 

LAD1A] DATA 157,58,213,152,253,119,1,58,21 

4,152,253,119,0,241,205,22 EFFC6] 

[CCE6] DATA 157,58,213,152,198,8,58,213,15 

2,254,80,32,12,58,214,152 LB97E] 

L9BEA] DATA 198,4,50,214,152,175,580,213,15 

2,225,209,193,241,201,58 [4314] 

[D258] DATA 213,152,50,56,154,58,214,152,5 

8,57,154,62,1,2801,58,213 [6B06] 

[6200] DATA 152,50,58,154,58,214,152,50,59 

‚154,62,1,201,8,48,0,28,0 LACE6] 
[6E12] DATA 39588 [C6488] 
DATA 175,50,62,02,58,244,180,71,203, 

[85C4] 64,40,7,58,61,0,61,50,61 [A206] 
DATA 8,283,72,40,7,58,61,0,68,50,61 

[B1CC] ‚2,203,88,48,14,58,60,8,61 [3990] 
DATA 58,68,8,205,178,154,175,50,63, 

[C9BE] 156,203,88,40,15,58,60,0 LA286) 
DATA 68,50,60,0,205,205,154,62,1,58 

LF278] ‚63,156,203,96,48,5,62,255 LF&AE] 
DATA 508,62,0,58,68,0,1083,58,61,2,11 

L[E1E6] 1,58,63,156,205,25,189,285 [CD@BE] 
DATA 47,157,201,58,63,156,254,90,208 

[88141 ‚„197,62,1,285,22,157,193 L121A] 
DATA 175,285,124,157,58,68,0,253,11 

[D88E] 9,1,58,61,8,253,119,0,62 [9306] 
DATA 8,285,22,157,2801,58,63,156,254 

[AsECI ‚„1,288,197,175,285,22,157 LSD6E] 
DATA 62,1,205,124,157,58,60,0,253,1 

LBS3E] 19,1,58,61,0,253,119,8,62 [B55A] 
DATA 1,285,22,157,193,201,8,0,0,8,8 

LA2EB] ‚28,8,8,0,0,0,0,0,0,0,0,0 LAF2A] 
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DATA 39808 
DATA 8,8,0,8,8,2,2,2,14,80,10, 
32,15,1,178,32,26,47,117 
DATA 8,70,8,20,8,140,32,38,67,48,44 
‚38,67,48,44,38,56,48,44 

DATA 38,48,48,44,38,48,48,44,38,56, 
48,44,38,48,48,44,38,48,48 

DATA 44,38,48,48,44,38,67,48,44,38, 
48,48,44,38,52,48,44,38,52 

DATA 48,44,38,67,56,44,38,56,48,44, 
38,52,48,0,70,0,30,0,140 

DATA 32,38,67,52,44,38,67,56,44,38, 
67,48,44,38,67,48,44,38,67 

DATA 52,44,38,67,56,44,38,67,48,44, 
38,67,48,44,38,67,52,44,38 

DATA 67,48,44,38,67,48,44,38,52,48, 
44,38,52,48,44,38,67,48,44 

DATA 38,56,48,44,38,48,48,0,70,8,40 
‚8,140,32,38,48,48,44,38 

DATA 67,48,44,38,48,48,44,38,48,48, 
44,38,52,48,44,38,48,48,44 

DATA 38,56,48,44,38,48,48,1,1,73,15 
6,33,116,156,195,209,188 

DATA 90,156,195,120,156,195,244,156 
‚195,148,156,195,185,156 

DATA 195,201,156,73,78,73,212,67,79 
‚76,204 ,83,87,73,84,67,208 

DATA 77,79,86,197,65,78,73,77,65,84 
‚197,8,8,0,73,156,254,6,192 

DATA 221,126,1@0,221,94,8,221,86,9,2 
21,70,6,221,78,4,221,11® 

DATA 0,221,102,2,205,254,156,2@1,25 
4,1,40,26,254,3,192,221,126 

DATA 4,205,124,157,221,126,0,253,11 
9,0,221,126,2,253,119,1,221 

DATA 126,4,24,3,221,126,0,2@05,22,15 
7,201,254,3,192,221,126,4 

DATA 221,102,2,221,118,8,285,47,157 
‚201,254,4,40,23,254,2,192 

DATA 221,126,0,205,124,157,253,1@2, 
1,253,110,8,221,86,2,221 

DATA 94,0,24,12,221,86,6,221,94,4,2 
21,102,2,221,118,0,205,74 

DATA 157,221,254,1,192,221,126,0,2@ 
5,189,157,201,197,205,124 

DATA 157,193,253,117,0,253,116,1,25 
3,112,2,253,113,3,253,115 

DATA 4,253,114,5,201,285,124,157,25 
3,110,0,253,102,1,253,70 

DATA 2,253,78,3,253,94,4,253,86,5,2 
05,96,157,201,229,205,22 

DATA 157,225,253,117,8,253,116,1,25 
3,70,2,253,78,3,253,86,5 

DATA 253,94,4,285,96,157,201,229,21 
3,122,205,22,157,209,225 

DATA 123,205,124,157,253,117,0,253, 
116,1,205,22,157,201,197 

DATA 213,205,240,157,289,193,197,22 
9,26,174,119,19,44,204,230 


0,173, 


O DATA 157,16,246,225,193,13,200,2085, 


2730 
2740 


4900 
el.lul") 
5005 
Sp10 
6800 


214,157,24,235,253,33,21 

DATA 158,254,0,200,71,253,35,253,35 
‚253,35,253,35,253,35,253 

DATA 35,16,242,201,62,8,50,62,8,197 
‚213,205,240,157,209,193 

DATA 197,229,26,190,32,16,19,44,204 
‚230,157,16,245,225,193,13 

DATA 200,205,214,157,24,234,225,225 
‚62,255,50,62,0,281,205,124 

DATA 157,253,110,0,253,102,1,253,70 
‚2,253,78,3,253,94,4,253 

DATA 86,5,205,147,157,2@1,124,198,8 
‚103,230,56,192,124,214,64 

DATA 103,125,198,8@,111,208,36,124, 
230,7,192,124,214,8,103,201 

DATA 69,203,133,76,38,0,84,93,41,41 
„25,41,41,41,89,25,237,91 

DATA 201,177,25,124,230,7,103,58,20 
3,177,132,203,24,48,2,198 

DATA 32,103,201,27,60,4,14,48,117,2 
7,14,4,14,108,117,8,64,8 

DATA 16,168,117,44,64,8,16,42,118,4 
0,56,8,16,172,118,40,16,8 

DATA 16,46,119,16,64,8,16,176,119,1 
6,8,8,16,60,120,44,72,8,16 

DATA 190,120,28,56,8,16,64,121,28,5 
6,8,16,194,121,28,56,8,16 

DATA 68,122,15,1@0,8,16,198,122,0,0, 
8,16,72,123,0,0,8,16,202 

DATA 123,27,28,4,8,152,123,24,59,4, 
8,192,123,24,32,8,16,232 

DATA 123,20,20,8,16,232,123,19,47,1 
„4,186,124,32,48,4,14,116 

DATA 124,0,140,32,38,48,53,44,38,48 
‚65,44,38,48,51,44,38,48 

MEMORY 29999:0N ERROR GOTO 4208 
READ a 

READ b:IF b>255 THEN a=b:60T0 5885 
FOKE a,b:a=a+1:60TD 50885 
SAVE"CHOPPER.BIN",b,30888, 12008 


_ Listing 2. »Chopper« Basic-Lader (Schluß) 


CDB921 
[B4781 
[5128] 
L154A] 
[2F341 
[221E1 
[6442] 
L763E1 
[D3421 
[422A] 
[DEACI 
LAC621 
LBF7AI 
L6F2AI 
[O6As] 
LEAF®O] 
LDEFCI 
[87021 
[15401 
[2094] 
[16081 
[8538] 
L6B7EI 
LASS@1 
LA3DO] 
[4B2E] 
[8D181 
[28241 
[6602] 
[8602] 
[38141 
LF188] 
LF9IOCI 
L72F®] 
L1SBE] 
[SFFEI 
LIFF®] 
[2F24] 
[DA9BI 
L187C1 
[31@21 
[51961 
[BBFEI 
LBE9B] 
CBCDAI 
L9DBEI 
LIF34] 
[B242] 
LaF78] 
L1AB4] 
[SAF21 


E[FD2C]I 
[2F7A] 











un niederen 


Die Idee zu diesem Spiel stammt aus 
dem Science-Fiction-Film »TRON«. 
Um gegen Ihre Freunde oder den 
Computer zu gewinnen, brauchen Sie 
blitzschnelle Reaktionen. 


enjenigen, die die Regeln von »Light-Cycles« nicht 
kennen, seien hier folgende Informationen gegeben: 
Zwei futuristische Motorräder werden automatisch 
beschleunigt und müssen von den Spielern innerhalb eines 
Spielfeldes gelenkt werden. Dabei ist unbedingt darauf zu 
achten, daß bereits überfahrene Stellen oder die begren- 
zende Wand keinesfalls berührt werden dürfen. Ziel des 
Spieles ist, den (oder die) Gegner durch geschicktes Manöv- 
rieren zu zwingen, die eben beschriebenen Fehler zu bege- 
hen. 

Gelenkt wird mit Joysticks. Im Titelbild lassen sich ver- 
schiedene Spieloptionen über die Cursor-Steuer-Tasten 
wählen: Spieler 1 gegen Spieler 2, Spieler gegen Computer, 
Computer gegen Computer (Demo). Die Geschwindigkeit ist 
im Bereich von 1 bis 50 einstellbar, wobei 1 der schnellsten, 
50 der langsamsten Variante entspricht. Bei den Varianten 
»Spieler gegen Spieler« und »Computer gegen Computer« 
blinkt am Spielende der Verlierer, anschließend erscheint 
wieder das Titelbild. Besiegt ein Spieler den Computer, ist 
das Spiel nicht beendet, vielmehr beginnt eine Runde mit 
höherem Schwierigkeitsgrad. Ab der zehnten Runde muß 
man gegen zwei vom Computer gesteuerte Gegner antreten 
(Fortgeschrittene können den Zeitpunkt dieser Steigerung 
festlegen, indem sie das gewünschte Level mit »POKE 
&7821,level« in Adresse 7821 hex eintragen). 

Das gesamte Programm wurde in reiner Maschinen- 
Sprache geschrieben und erfüllt so hohe Qualitätsansprü- 
che. Es nutzt die stereofone Tonerzeugung der CPCs, so daß 
sich der Anschluß einer Stereo-Anlage oder zumindest eines 
Kopfhörers empfiehlt, um den »Rennbahnsoundk« voll auszu- 
kosten. 

Wenn Sie das Listing des Basic-Laders im Computer 
haben, sollten Sie es vor dem ersten Probelauf sicherheits- 
halber speichern. Erst danach starten Sie es wie gewohnt mit 
»RUN«. Da dieser Lader nur dazu dient, das Maschinenpro- 
gramm im Arbeitsspeicher zu erzeugen, beginnt nicht etwa 
gleich das Spiel, sondern der Computer meldet nach kurzer 
Zeit »Ready«. Nun können Sie das Programm mit »SAVE 
”Name”,b,&7200,&FFF,&7200« als Binär-Datei speichern. 
Im Prinzip brauchen Sie jetzt den Basic-Lader nicht mehr. 
Löschen Sie ihn jedoch nicht, bevor Sie ganz sicher sind, daß 
alles korrekt funktioniert. Wenn das Maschinen-Programm 
mit der genannten Befehlsfolge gespeichert wurde, ist es 
zukünftig mit »RUN ”Name”« zu starten. 

(Rüdiger Görsch/ja) 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


[67D6] 
[89B8] 
ECBIA] 
[5B48] 
CAF78] 
[5634] 
[24C2] 
[F624] 
E33BE] 
[B8C4] 
[4CAE] 
[BQ26] 
LA48F8] 


CD,@,BB,CD,4E,BB,CD,BA,BB,CD 
FF,BB,3E,1,32,E1,73,3E,14,32 
E2,73,3E,1,CD,E,BC,3E,@,1 
0,8,CD,32,BC,3E,@,1,0,@ 
CD,38,BC,3E,1,1,1A,1A,CD,32 
BC,3E,3,CD,9@,BB,21,7,9,CD 
75,BB,6,15,21,E8,73,C5,7E,E5 
DATA CD,5A,BB,E1,23,C1,1@,F5,21,14 
DATA 5,22,8E,88,3E,2,1,8,@JCD 

18 DATA 32,BC,3E,3,1,2,2,CD,32,BC 

11 DATA 3E,2,CD,98,BB,21,19,1,CD,75 
12 DATA BB,6,D,21,FD,73,05,7E,ES,CD 
13 DATA 5A,BB,E1,23,C1,18,F5,3E,8,32 


1 
2 
Ss 
4 
5 
& 
7 
8 
Q 


Listing. Knapp 4 KByte Maschinen-Code sorgen für span- 
nungsvolle Unterhaltung mit »Light-Cycles« 
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DATA E3,73,32,E5,73,CD,3@,7F,21,14 [8E4A] DATA F7,18,B1,3E,2,1,5,@,CD,32 [5206] 
DATA 5,22,8E,80,3E,96,32,E7,73,2A [28DE] DATA BC,CD,3E,78,CD,69,7F,18,E,3E [DA16] 
DATA ES5,73,ED,5B,E3,73,CD,F@,BB,FE [L423E] DATA 3,1,5,8,CD,32,BC,CD,3E,78 LFES®] 
-DATA 8,28,69,21,CE,8,ED,4B,E3,73 LF796] DATA CD,69,7F,6,5,FB,C5,6,FF,C5 [8B32] 
DATA ED,42,ED,5B,E5,73,EB,CD,F@,BB [97541 DATA 6,FF,8,10,FD,C1,18,F7,C1,1@ [B8SFA] 
DATA FE,8,C2,40,73,3A,E5,73,3C,3C [3F24] DATA F1,F3,CD,8,BB,C3,16,72,CD,B7 [88064] 
DATA FE,18,28,36,32,E5,73,3A,E7,73 [A854] DATA 78,CD,38,7F,CD,AB,88,21,1,4 LS1F2] 
DATA FE,8,28,E,3D,32,E7,73,2A,8E LBECA] DATA CD,AC,78,32,22,90,CD,AC,78,32 LFDOBE] 
DATA 89,2B,2B,22,8E,88,18,B,3E,96 [L4EEA] DATA 2A,98,21,A,58,CD,AC,78,32,28 [EI46] 
DATA 32,E7,73,21,14,5,22,8E,88,3E LB9AB] DATA 98,21,5A,96,CD,AC,78,32,28,98 LEBC2] 
DATA 8,32,8C,80,CD,12,7F,3E,2,32 [9474] DATA 21,14,8C,CD,AC,78,32,21,90,CD L[B7E8] 
DATA 8C,88,CD,12,7F,C3,95,72,3E,8 [8B18]J DATA AC,78,32,29,9@,CD,5C,88,3E,8 [A876] 
DATA 32,E5,73,3A,E3,73,3C,3C,FE,68 [L72A4] DATA 32,91,80,3E,2,CD,DE,BB,CD,@ LD@5A] 
DATA 32,E3,73,CA,9B,73,18,89,2A,E3 [5588] DATA 7A,CD,A2,7F,CD,74,880,CD,68,88 [3D5®] 
DATA 73,A7,CB,15,CB,14,ED,4B,E3,73 [B@D®] DATA 3E,2,32,91,80,3E,3,CD,DE,BB [35A34] 
DATA 9,1,A,8,9,EB,2A,E5,73,A7 LE9I76] DATA CD,8,7A,CD,A2,7F,CD,88,88,3A LDADB] 
DATA CB,15,CB,14,CB,15,CB,14,1,48 [4A1®] DATA 24,98,FE,1,CA,81,76,3A,2C,90 [6966] 
DATA 1,9,E5,D5,3E,1,CD,DE,BB,Di [62B2] DATA FE,1,CA,91,76,18,C02,3E,@8,CD [3842] 
DATA E1,CD,EA,BB,CD,76,73,C3,A3,72 LiFB6] DATA EF,78,3E,0,32,980,80,18,A,3E L83F®] 
DATA 2A,E3,73,A7,CB,15,CB,14,ED,4B [79DA] DATA 2,CD,EF,78,3E,8,32,90,80,3E [2C18] 
DATA E3,73,9,EB,21,6C,2,ED,52,EB LFBEB] DATA 1,32,32,90,3E,0,32,30,98,32 LF@44] 
DATA 2A,ES,73,A7,CB,15,CB,14,CB,15 LBCBA] DATA 31,90,32,4,90,3E,7D,32,0,98 [B982] 
DATA CB,14,1,40,1,9,E5,D5,3E,3 LAZACI DATA 3E,50,32,1,90,3E,1,32,2,90 L1BBE] 
DATA CD,DE,BB,D1,E1,CD,EA,BB,CD,76 [BEAB] DATA 3E,19,32,28,98,3E,64,32,21,98 L[435®] 
DATA 73,C3,B9,72,11,3,8,21,3,@ [L7C48] DATA 3E,3,32,22,90,3E,4B,32,28,98 L25FC] 
DATA CD,F9,BB,11,FC,FF,21,3,8,CD [B348] DATA 3E,1E,32,29,98,3E,1,32,2A,98 [441A] 
DATA F9,BE,11,FC,FF,21,FC,FF,CD,F9 L1C84] DATA CD,B7,78,CD,38,7F,CD,AB,88,3E L[7F56] 
DATA BB,11,3,8,21,FC,FF,CD,F9,BB [C42C] DATA 2,CD,DE,BB,CD,8,7D,CD,E7,7F [DBECI 
DATA C9,21,E8,3,22,8E,88,3E,6,32 [O34E] DATA 3A,4,90,FE,0,28,3,03,81,76 CDF68] 
DATA 8C,88,3E,1E,32,8D,88,CD,8,7F [SC36] DATA 3E,3,CD,DE,BB,3A,32,98,FE,1 [487A] 
DATA 3E,7,32,8C,80,3E,36,32,8D,88 [84DE] DATA 28,25,3A,31,98,FE,1,28,1E,CD [&864C] 
DATA CD,8,7F,3E,8,32,8C,8@,CD,12 [DABA] DATA 48,88,CD,8,7A,3E,2,32,91,8® L95D8] 
DATA 7F,6,FA,C5,1,FF,2,8,18,FD [7714] DATA CD,A2,7F,CD,88,80,3A,2C,9@,32 LC@F1®] 
DATA C1,18,F6,3E,8,32,8D,80,3E,& [9382] DATA 31,98,FE,8,28,3,CD,3E,78,3A [4316] 
DATA 32,8C,8@0,CD,®,7F,CD,69,7F,18 [1654] DATA 38,98,FE,1,28,1E,CD,5C,8@,CD [67A4] 
DATA 29,8,8,2,2,8,8,80,A4,20 [BSCA] DATA 8,7A,3E,2,32,91,8@8,CD,A2,7F LiEFA] 
DATA 62,79,20,52,75,65,64,69,67,65 L6FEB] DATA CD,74,88,3A,24,908,32,38,90,FE LS3CAE] 
DATA 72,28,47,6F ,65,72,73,63,68,53 L&DF6] DATA ‚3,CD,3E,78,34,32,90,FE [1008] 
DATA 75,78,65,72,2@0,2D,20,43,79,63 [428DC] DATA [BEAA] 
DATA 6C,65,21,19,1,CD,75,BB,6,E LE444] DATA ‚si [BEE4] 
DATA C5,3E,2@8,CD,5A,BB,C1,18,F7,3E [EED8] DATA [L762E] 
DATA 2,1,6,6,C0D0,32,BC,3E,2,CD [95821 DATA 18,F7.C3.8B,77,3A,E2,73,FE [&8AB] 
DATA 98,BB,21,A4,8,11,5A,75,6,16 LABF61 DATA 28,7,3D,32,&2,73,63,4A,77, 3A LB2SE] 
DATA CD,45,75,6,16,21,C,8,11,78 L77E4] DATA 32, 98, FE, 2,28, 4,3C, 32, 32, 98 [28AEI 
DATA 75,CD,45,75,6,16,21,E,8,11 [LSEF4] DATA 3E,A,32,62,73,03,44,77,36,6 [2006] 
DATA 86,75,CD,45,75,6,16,21,18,8 [1C46] DATA 32,8C,88,3E,F,32,8D,80,CD,® [C808] 
DATA 11,9C,75,CD,45,75,3E,3,CD,98 L3E1A] DATA 7F,3E,8,32,8D,88,3E,7,32,8C L76F8] 
DATA BB,21,14,1,11,B2,75,6,1F,CD [4180] DATA 808,CD,8,7F,3E,F,32,8D,88,3E [9D36] 
DATA 45,75,6,1A,21,16,1,11,D1,75 LF112] DATA 9,32,8C,8@0,CD,@,7F,21,E8,3 [2092] 
DATA CD,45,75,3E,2,CD,98,BB,6,B [2D82] DATA 22,8E,80,3E,4,32,8C,88,CD,12 [3152] 
DATA 21,18,A,11,EB,75,CD,45,75,3E LBD@CI DATA 7F,6,4,C05,6,FF,C5,6,FF,® CDAiC] 
DATA 1,CD,90,BB,21,18,19,CD,75,BB [5946] DATA 18,FD,C1,18,F7,C1,18,F1,3E,38 LEFEB®] 
DATA CD,21,75,3A,E1,73,B7,17,CE,A [844C] DATA 32,8D,88,3E,7,32,8C,80,CD,® La2F8] 
DATA /32,59,75,6F ,26,4,CD,75,BB,3E [9932] DATA 7F,3E,8,32,8D,88,3E,4,32,8C L&C08] 
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DATA 9,32,8C,88,CD,8,7F,C9,ED,5F [BF68] 
DATA F3,28,61,FE,280,CA,F6,75,21,18 LE278] DATA 1F,1F,BD,38,F9,BC,38,F6,09,3E L4A6CI 
DATA 19,CD,75,BB,CD,21,75,18,C8,3A E[11BA] DATA 3C,32,15,9@0,32,1D,90,32,25,98 LEB46] 
DATA 59,75,26,4,8F,CD,75,BB,3E,2@ [E224] DATA 32,2D,9@,21,14,5,22,16,90,22 [C1B6] 
DATA CD,SA,BB,3A,E1,73,FE,8,28,6 [55881 DATA 1E,90,22,26,98,22,2E,90,3E,® [4206] 
DATA 3D,32,E1,73,18,DA,3E,3,32,E1 [5482] DATA 32,13,90,32,1B,98,32,23,98,32 [421E] 
DATA 73,18,D3,3A,59,75,26,4,6F,CD [C212] DATA 2B,90,32,14,90,32,1C,90,32,24 [CA44] 
DATA 75,BB,3E,28,CD,SA,BB,SA, Fis 73 [18E4] DATA 98,32,2C,98,C9,FE,80,28,6,3E [B402) 
DATA FE,3,28,6,30,32,E1,73,18 [23AB] DATA 7D,32,3,7D,6C9,3E,7C,32,3,7D [162C) 
DATA SE)8,52,E1,78,16,51,SA,E2,73 TESE6] DATA C9,8,CD,17,79,CD,29,79,CD,F@ [D4D21 
DATA FE,1,28.1,3D,32,62,73, 18,A4 [BA9B] DATA BB,FE,5.28,7,FE,0,28,3,3E [476A1 


, ’ , 
DATA 3A, E2, 73, FE, 32,28,F4, e% 38, Fi [L769A1 DATA 1,69,3E,8,09,A7,2A,45,79,7E LBS3E] 
DATA C9,6, 8, 3A, E2, 73, B7,FE [8A6A] DATA 11,8,8,5F,CB,13,CB,12,CB,13 LiCF2] 
DATA 6,38,4,60,6F ,18,5,D6, 1% > L6E18] DATA CB, 12,C9,A7,2A,A7,79,7E,21,8 [7E92] 
DATA 18,F8,7C,CE,2F,E5,CD,5A,BB,Ei [2F36] DATA @,6F,CB,15,CB,14,09,21,9,90 LA1OCI 
DATA 7D,CE,30,CD,5A,BB,C9,C5,D5,CD [565A] DATA 34,C9,21,8,90,34,C09,21,8,90 [BEA6] 
DATA 75,BB,D1,C1,EB,C5,7E,ES5,CD,5A [SBSCJ DATA 35,C09,21,79,90,35,09,3A,AD,79 [A878] 
DATA BB,E1,23,C1,18,F5,C9,8,58,4C [3516] DATA 21,AE,79,B6,C09,3A,AA,79,FE,® L7CEA] 
DATA 41,59,45,52,28,31,20,20,56,53 LE6&AA] DATA 28,1B,3A,A9,79,FE,1,28,3,3E [6428] 
DATA 2E,28,50,4C,41,59,45,52,28,32 LCBEA] DATA 1,C9,3A,AD,79,FE,1,28,3,3E LABCE] 
DATA 58,4C,41,59,45,52,20,31,28,2@ L2FC®] DATA 8,C9,3E,1,32,C0,98,18,F6,3A [6380] 
DATA 56,53,2E,20,43,4F ,4D,50,55,54 [4818] DATA A9,79,FE,0,28,3,3E,2,C09,3A LF7BC] 
DATA 45,52,58,4C0,41,59,45,52,20,32 [55CC] DATA AC,79,FE,8,28,15,3A,AB,79,FE LC7E8] 
DATA 298,20,56,53,2E,28,43,4F ,4D,5@ L37FE] DATA 1,28,3,3E,1,C9,ED,SF,1F,38 [DBBA] 
DATA 55,54,45,52,43,4F ,4D,58,55,54 [550C]J DATA 3,3E,1,C09,3E,2,09,3A,AB,79 [68D4] 
DATA 45,52,20,20,56,53,2E,2@8,43,4F [2EE8] DATA FE,8,28,EE,3E,2,C09,0,8,8 LFED6] 
DATA 4D,58,55,54,45,52,43,55,52,53 [364E8] DATA 8,8,8,8,0,08,0,21,8,98 C4DB6]J 
DATA 4F ,52,20,4B,45,59,53,28,28,2@ [E1E6] DATA 22,A5,79,21,9,98,22,A7,79,CD LF954] 
DATA 28,28,6F,780,74,69,6F ,6E,73,2®8 LEB34] DATA 17,79,CD,29,79,CD,EA,BB,C9,® [1900] 
DATA 2F,28,73,70,65,65,64,53,58,41 [83E8] DATA [BSB®] 
DATA 43,45,20,42,41,52,20,28,20,2® [B988] DATA CDEB2] 
DATA 20,20,20,73,74,61,72,74,28,67 L37F8] DATA [4BB4] 
DATA 61,60,65,53,78,65,65,64,208,6C L1iFSC] DATA CE4B6] 
DATA 65,76,65,6C0,3A,E1,73,FE,8,28 LC35C] DATA [21B8] 
DATA 18,FE,1,CA,2F,77,FE,2,CA,3B [386E] DATA [2D64] 
DATA 77,FE,3,CA,B8,76,C9,CD,B7,78 [C3FA] DATA L7BF6] 
DATA CD,38,7F,CD,AQ,88,3E,3,32,12 [314C] DATA FE,3,CA,FE,7A,C3,73,7B,CD,37 CC71C] 
DATA 90,3E,4,32,1A,90,3E,1E,32,1® LFEOCI DATA 79,CD,E8,7B,CD,8,79,32,AD,79 LIODC] 
DATA 98,3E,7D,32,18,98,3E,50,32,11 ECD6A] DATA CD,2,7C,CD,8,79,32,AE,79,CD LOC7A] 
DATA 98,32,19,98,CD,2C,80,3E,8,32 [8422] DATA 4B,79,FE,8,CA,AF,79,CD,E8,7B [D@24] 
DATA 98,88,CD,EF,78,3E,2,CD,DE,BB [7328] DATA CD,C,7C,CD,FD,7B,CD,8,79,32 [C4A8] 
DATA CD,8,7D,CD,E7,7F,CD,44,88,CD [C11@] DATA A9,79,CD,FD,7B,CD,8,79,32,AB [BSFC)I 
DATA 38,80,3E,2,32,9@,88,CD,EF,78 L9CSAI DATA 79,CD,E8,7B,CD,7,7C,CD,C,7C [7CCA] 
DATA 3E,3,CD,DE,BB,CD,@,7D,CD,E7 LF1DC] DATA CD,8,79,32,AA,79,CD,7,7C,CD [7074] 
DATA 7F,CD,50,88,3A,14,98,FE,1,28 [1568] 
DATA 16,3A,1C,9@,FE,1,28,1F,3A,E2 L3F78] DRS 
DATA 73,47,C5,6,FF,8,18,FD,C1,18 [SFF8] Listing. »Light-Cycles« (Fortsetzung) 




































































8,79,32,AC,79,CD,53,79,FE,8 
CA,AF,79,FE,2,28,E,CD,3C,79 
CD,46,79,3E,3,32,A,90,C3,AF 
79,CD,41,79,CD,46,79,3E,4,32 
A,9Q0,C3,AF,79,CD,46,79,CD,E8 
7B,CD,®,79,32,AD,79,CD,C,7C 
CD,8,79,32,AE,79,CD,4B,79,FE 
8,CA,AF,79,CD,E8,7B,CD,2,7C 
CD,7,7C,CD,8,79,32,A9,79,CD 
7,7C,CD,@,79,32,AB,79,CD,E8 
7B,CD,2,7C,CD,FD,7B,CD,8,79 
32,AA,79,CD,FD,7B,CD,8,79,32 
AC,79.,CD,53,79,FE,8,CA,AF,79 
FE,2,28,E,CD,37,79,CD,41,79 
3E,4,32,A,98,C3,AF,79,CD,37 
79,CD,3C,79,3E,3,32,A,90,C3 
AF,79,CD,3C,79,CD,E8,7B,CD,® 
79,32,AD,79,CD,FD,7B,CD,@,79 
32,AE,79,CD,4B,79,FE,8,CA,AF 
79,CD,E8}7B,CD,7,7C,CD,C,?C 
CD,8,79,32,A9,79,CD,C,7C,CD 
0,79,32,AB,79,CD,E8,7B,CD,7 
7C,CD,2,7C,CD,8,79,32,AA,79 
CD,2,7C,CD,®8,79,32,AC,79,CD 
53,79,FE,8,CA,AF,79,FE,2,28 
E,CD,41,79,CD,46,79,3E,2,32 
A,90,C3,AF,79,CD,41,79,CD,37 
79,3E,1,32,4,98,C3,AF,79,CD 
41,79,CD,E8,7B,CD,8,79,32,AD 
79,CD,7,7C,CD,8,79,32,AE,79 
CD,4B,79,FE,8,CA,AF,79,CD,E8 
7B,CD,FD,7B,CD,2,7C,CD,8,79 
32,49,79,CD,2,7C,CD,8,79,32 
AB,79,CD,E8,7B,CD,FD,7B,CD,C 
7C,CD,8,79,32,AA,79,CD,C,7C 
CD,8,79,32,AC,79,CD,53,79,FE 
8,CA,AF,79,FE,2,28,E,CD,3C 
79,CD,37,79,3E,1,32,A,90,C3 
AF,79,CD,3C,79,CD,46,79,3E,2 
32,4,90,C3,AF,79,2A,8,90,22 
FB, 7B,21,FB,7B,22,45,79,21,FC 
7B,22,A7,79,C9,0,80,21,FB,7B 
34,C9,21,FC,7B,34,C09,21,FB,7B 
35,C9,21,FC,7B,35,C9,0,8,8 


TREE EKKERKKEHEKEREKUENENN 
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N 
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v , 
21,1,90,34, 
18,4,21,8,90,3 4,21,8 
90,34,47,21,8,90,7E,11,0,0 
5SF,CB,13,CB,12,CB,13,CB,12,A7 
21,1,90,7E,21,0,8,6F,CB,15 
CB,14,D5,E5,CD,F@,BB,FE,8,28 
F,FE,5,28,B,E1,D1,CD,EA,BB 
3E,1,32,4,98,C9,E1,D1,CD,EA 
BB,C9,®, () 


nr] 


EEE) 


SSS8S8SSSSSSSSSTETSETHTTSLESES 
PERLE RKRHKTRKRH HR KH) 
SSSSSSSSESSSSTSHHES5S58SS 
FERERREKRRERRRK KK) 
SSSSSSSSHSSHESS5H5 SS 55H 
FERERERERRRERLRKLLK LH. 
SSSSSSSSSSSS HS ESSH55B5B8 
PER EICE) 
SSSSSSSSSSSSSSSHH5S5S5HSBS 
-»— ueber 
BSSSSSSSSHOSSSSSEHHSTEH5H5 588 
PERLE ERKRL KK LK KL LK LK HN NN) 
SSSSSSSSSSHSSHEHTSSHHSSSHS 
De Be u u u u u u u ze u ze u Ze we ze se ze me ze 
SSSSSSSSHSSEHSHTESSH5HH SSH 
PERERERERERERKERKL RL LEN) 
SBOSSSSSHSSSHSSSESSHHLE5äS 


[6322] 
[IFA] 
CAFS®] 
[177E] 
[93FC]I 
[9678] 
[C6öEA] 
[OQAEI 
[2364] 
[2864] 
(54B8] 
[DEDA] 
C2D14] 
[8A56] 
[FOS38] 
[8818] 
[4928] 
[S1F8] 
C[FA18B] 
[1DD®] 
[8582] 
[F768] 
C1FSA]I 
[B77A] 
£[5F72] 
CDD1A] 
[69C2] 
[6034] 
CEDC4] 
[8254] 
C4D58] 
[72BE] 
LEA22] 
[8290] 
[2D82] 
LEACE] 
[3224] 
LIFFC]I 
[4ADE] 
[16EA] 
[CB3A] 
[2610] 
[CA26] 
[D984] 
CBCCCI 
£[5SBC] 
[BEBE] 
L1FCO] 
£[D8C2] 
[49C4] 
LE2C6] 
CB3C8] 
EDCCA] 
CBDCC]I 
[BCE] 
CDDBE] 
CBACD] 
tESC2] 
[AACA] 
C[D9C6ö] 
[2808] 
[BFCA] 
[S6CC]I 
LESCE] 
CDCD®] 
LESCO]I 


[EEC2] 


[AF1A] 
[F188] 
LCABFB] 
[ESD®] 
LEC32] 
[DB8A] 
[B®14] 
[623C] 
[F448] 
[420A] 
[8662] 
[4B46] 
[SBQOA] 
CC8CC]I 
C2BCE] 
[32D®] 
LEDD2] 
[54D4] 
EDCB2] 
CBSB4] 
LE2Bö] 
[49B8] 
E[D8SBA] 
[1FBC]I 
[CBEBE] 
[55C8] 
tEAC2] 
C[DBC4] 
(54B4] 
CBDBö] 
L1EB8] 
CD7BA] 
[48BC] 
[EIBE] 
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DATA 
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DATA 
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DATA 
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DATA 
DATA 
DATA 
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DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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DATA 
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DATA 
DATA 
DATA 
DATA 
DATA 


FOR i= 29184 TO 33279:READ a$:POKE i 


u ee ee ee} 


’ 
’ 
, 
’ 
’ 
’ 
’ 
’ 
’ 
2 
’ 
’ 
, 
s 
’ 
’ 
’ 
7 


SSSSSSSTEHEETEÄSSHH HABS 
ODSSSSSSSSSTSSEH SHE 


D,6 
‚8D,80,4E,CD,26 
„CD, ‚F3,C9,CD,6,B9,3A 
88,21,8E,8@0,4E,CD,26,8,3A 
8C,80,3C,21,8E,80,23,4E,CD,26 
8,CD,9,B9,F3,C9,3E,7,32,8C 
88,3E,38,32,8D,88,CD,8,7F,3E 
8,32,8C,80,3E,F,32,8D,88,CD 
8,7F,3E,9,32,8C,88,CD,®,7F 
21,0,0,22,8E,80,3E,0,32,8C 
88,CD,12,7F,3E,2,32,8C,88,CD 
12,7F,C9,3E,7,32,8C,88,3E,3F 
32,8D,80,CD,®,7F,3E,8,32,8C 
88,21,0,8,22,8E,8@0,CD,12,7F 
3E,2,32,80,80,CD,12,7F,3E,8 
32,8D,80,3E,8,32,8C,8@0,CD,® 
7F,3E,9,32,8C,880,CD,8,7F,C9 
3A,A,90,21,B,90,BE,20,29,3A 
D,98,FE,8,28,12,3D,32,D,98 
2A,E,98,2B,2B,2B,2B,2B,22,E 
90,22,8E,80,2A,E,78,22,8BE,88 
3A,91,80,32,8C,88,CD,12,7F,C9 
3E,3C,32,D,90,21,14,5,22,E 
90,3A,A,98,32,B,90,18,DD,3A 
2,90,21,3,98,BE,20,29,3A,5 
98,FE,0,28,12,3D,32,5,90,2A 
6,90,2B,2B,2B,2B,2B,22,6,70 
22,8E,80,2A,6,90,22,8E,80,3A 
90,80,32,8C,88,CD,12,7F,C9,3E 
3C,32,5,90,21,14,5,22,6,90 
3A,2,908,32,3,90,18,DD,21,1® 
98,11,0,780,1,8,8,ED,B@,C9 
21,18,90,11,0,90,1,8,8,ED 
B®,C9,21,8,90,11,18,90,1,8 
0,ED,B®,C9,21,0,90,11,18,98 
1,8,8,ED,B@,C9,21,20,90,11 
8,90,1,8,8,ED,B8,C9,21,28 
98,11,8,90,1,8,8,ED,B,C9 
21,8,98,11,28,90,1,8,8,ED 
EO,C9,21,8,90,11,28,90,1,8 
8,ED,B8,C9,0,8,8,0,0,0 
2,0,0,0,8,0,0,0,0,8 
0,0,0,0,CD,8,BB,CD,4E,BB 
CD,BA,BB,CD,FF,BB,3E,8,CD,E 
BC,3E,2,CD,E4,BB,3E,1,CD,38 
BC,3E,4,1,6,6,CD,32,BC,3E 
5,1,D,D,CD,32,BC,3E,8,1 
8,0,CD,32,BC,3E,1,1,1A,1A 
CD,32,BC,3E,1,CD,DE,BB,21,® 
@,11,2,0,CD,EA,BB,11,7F,2 
21,8,0,CD,F6,BB,21,8F,1,11 
7F,2,CD,F&,BB,11,8,8,21,8F 
1,CD,F6,BB,11,0,8,21,80,8 
CD,F6,BB,21,14,8,11,13,8,CD 
EA,BB,21,14,8,11,6B,2,CD,F6 
BB,21,54,1,11,6B,2,CD,F6,BB 
21,54,1,11,13,@,CD,F6,BB,21 
14,8,11,13,0,CD,F6,BB,21,8 
8,11,8,8,CD,F6,BB,21,14,8 
11,6B,2,CD,EA,BB,21,8,8,11 
7F,2,CD,F6,BB,21,54,1,11,6B 
2,CD,EA,BB,21,68,1,11,7F,2 
CD,F6,BB,21,54,1,11,13,8,CD 
EA,BB,21,68,1,11,8,8,CD,F6 
BB,11,7F,2,21,68,1,CD,F6,BB 
3E,5,CD,DE,BB,1,14,8,21,27 
0,22,EE,81,3E,8,32,F@0,81,2A 
EE,81,C5,E5,EB,D5,21,16,8,CD 
EA,BB,D1,21,52,1,CD,F6,BB,EB 
E1,C1,9,22,EE,81,3A,F@,81,3C 
32,F@0,81,FE,1D,28,DA,21,28,8 
22,EE,81,3E,0,32,F0,81,1,14 
8,2A,EE,81,C05,E5,11,16,8,CD 
EA,BB,E1,E5,11,67,2,CD,F&,BB 
E1,C1,9,22,EE,81,3A,F@,81,3C 
32,F0,81,FE,F,28,DC,C9,8,8 
2,8,0,0,0,0,0,0,8,8 
2,0,0,0,0,0,0,0,0,8 


USSSS858SSSS88S885 88858 
een 
NSSSSSSSEHESESSHSHS SHE 
[7 zu u u Bu zu BE zu u u u zu Ge u u ze zu sw; 


ao 
N888888888588588885 8588 


90 


„VAL("&"+a$) NEXT i 


Listing. »Light-Cycles« (Schluß) 



































[B2CB] 
CDBC2] 
[BCCA] 
[85C6] 
EBCB&] 
[535B8] 
E[D&sBA] 
E1DBC)] 
LEBBE] 
[47C0] 
EDAC2] 
[B1C4] 
[8406] 
CBBC8] 
E1CB8] 
[DSBA] 
[S2BC] 
[3A78] 
[8102] 
[852A] 
[4B82] 
C41E2] 
CDDF6] 
[898A] 
CEF16] 
[6EBB] 
[D726] 
CE790] 
[828A] 
[9B8BE] 
[38BC] 
LFSQOA] 
LEAFA] 
£3D58] 
L1CEA] 
[EI7A] 
[241C) 
[953A] 
LABE6] 
[4152] 
[@D30] 
[4E38] 
[64C8] 
[BöDA] 
CDA2ZE] 
C3BE8] 
L19F4] 
LABBE] 
[SCEE] 
L7EACI 
[@BO8] 
CE4BA] 
[734E] 
[S68C] 
[42F8] 
[C6AB] 
[A224] 
[9D94] 
£[28C8] 
[2508] 
[753E] 
[8BAA] 
L&B7E] 
[IFB2] 
[3828] 
[7B86] 
CDA2E] 
[2E84] 
[SDBC) 
[@D86] 
[SEB6] 
[1632] 
LEASA] 
LC9ICE] 
CBO4E) 
[SFEB] 
[Bö8C] 
L7A24] 
LAABB] 
[D618] 
[C2B2] 
EBS4E] 
[B1BA] 
[Ba5E2] 
[FSCO] 
[8186] 
EFF7E) 
[B24A] 
EBBAE] 
[CABE] 
LCOF@4] 
[6588] 
[7CB8] 
[98C6] 
[27B6] 


CCB8BE] 





AAPPY? 

































































Zwei Strich 
backbord 


Was dem einen sein Flugsimulator, 
ist dem anderen der »Schnell- 
bootkommandant«. Verdienen Sie 
sich Ihre Loorbeeren auf den 
sieben Meeren. 





iel des Spiels ist es, in der Rangliste vom Oberleut- 
nant bis zum Admiral aufzusteigen. Dazu muß eine 
bestimmte Anzahl gegnerischer Schiffe »dran glau- 
ben«. Sollten Sie selber aber Opfer eines feindlichen Torpe- 
dos werden oder vorher aufgeben, erscheint Ihr bis dahin 
erreichter Dienstgrad mit Abzeichen auf dem Monitor. 

Die Bewaffnung besteht aus zwei Torpedorohren und zwei 
Geschütztürmen. An Munition führen Sie zehn Torpedos und 
etwa 470 Schuß Granaten mit. Natürlich richten Torpedotref- 
fer mehr Schaden an als Granaten. Ihr Schnellboot ist bis zu 
einer Beschädigung von etwa 70 Prozent fahrtüchtig. 

Trifft der Gegner während eines Angriffs, leuchtet der Bild- 
schirmrand auf. Liegt der Treffer besonders ungünstig, wer- 
den eventuell Geschütze oder Torpedorohre beschädigt. Fal- 
len beispielsweise beide Geschütze aus, sind natürlich nur 
noch Torpedos einsatzfähig. 

Ist ein kompletter Verband zerstört, werden alle Beschädi- 
gungen repariert (auch Geschütze und Torpedorohre) und 
Treibstoff und Munition aufgefüllt. 

Um zwischen den Angriffen neue Vorräte zu übernehmen, 
kann man einen Versorger ansteuern. Anstatt des Radarbil- 
des ist dann das Meer und der Versorger zu sehen. Alles 





REM TITELBILD 
REM 
MODE 1:BORDER 3: INK RZ 11: INK 1,1: INK 
2,@: INK 3,15: PAPER 
WINDOW #1,1,40,21, 23: PAPER #1,1:CLS:C 
LS #1 
MOVE ®,@:DRAW 8,399 ,3:DRAW 639,399: DR 
AW 639,0:DRAW 0,8 
MOVE 528, 1@8:DRAW 522,78,2 
READ a,b: IF a=1 THEN 98 
DRAW a,b,2:60T0 78 
DEG:FOR a=1 TO 368 STEP 7 
PLOT 365+18*C0S (a) „164+1@*SIN (a) :NEX 
= 


[9144] 
[FBCC]I 


LIEAA] 
[931C] 


[C9CAI 
C[FBA6] 
[SE84] 
[473A] 
[D830] 


[711A] 
[8438] 
[92E4] 


PEN 1:POKE &B28F „63 
s$="SCHNELLBOOTKOMMANDANT" 

FOR m=1 TO 21:L0OCATE 18+m,5:PRINT MI 
D$(s$,m,1):SOUND 1,8,2,5,8,8,5:FOR w 
t=1 TO 98: NEXT:NEXT 

POKE &B28F ‚255 

PEN 2:LOCATE 11,8:PRINT "Autor: #RAI 
NER KROTZ*":PEN 1:LOCATE 17,1@:PRINT 
CHR$(164):" in 1985" 

MOVE 152,312:DRAW 152,345,3:DRAW 588 
‚345:DRAW 588,312:DRAW 152,312 

FOR m=1 TO 27:READ s:SOUND 1,88,s,5: 


[3656] 
C[1ACB]I 


[974B®] 
LECAA] 


SOUND 1,8,18,@:NEXT 
PAPER 1:PEN 3:LOCATE 9,24:PRINT 


[6492] 
"Das 
Programm wird geladen '!":RUN "!Teil 
3 [EFE4] 
DATA 250,78,2180,118,315,100,530,12®, 
494,1084,498,118,586,114,505,116,498, 
112,490,114,478,114,470,113,467,113, 
467,108,470,188,468,100,450,100,450, 
112,4308,112,430,1108,422,118,416,115, 
423,126,416,115,418,115,418,120,392, 
120,390,117,388,120,380,12 
DATA 370,150,574,1580,374,153, 356,153 
‚356,150,360,150,350,128,348,130,34& 
‚1530,346,134,340,134,348,130,318,135® 
‚300,1083,290,184,288,112,291,112,291 
‚116,287,116,286,118,27@0,118,254,122 
‚252,1208,278,1168,266,1805,1,1 
DATA 9,18,9,79,18,9,9,18,9,9,9,18,9,1 
8,7,18,79,18,7,18,18,18,18,18,18,9,9 
228 END 


Listing 1. Titelbild 


[8806] 


[67CA] 
2180 
[28B8] 
[9B16] 


andere geschieht automatisch. Reparaturen nimmt das Ver- 
sorgungsschiff allerdings nicht vor. 

Der Joystick steuert den Kurs des Bootes. Mit dem Feuer- 
knopf wird ein Schuß aus einem der Geschütze abgegeben. 
Lage und Höhe der Explosion sind zufällig. 

Die SPACE Taste löst ein Torpedo aus. Da man einen Unter- 
wasserschuß nicht sieht, bestätigt dies die Meldung »Tor- 
pedo läuft«. Ein neues Torpedo ist erst dann einsatzfähig, 
wenn das alte getroffen oder sein Ziel verfehlt hat (das heißt, 
die Meldung »Torpedo läuft« gelöscht ist). 

Mit den Cursor-Tasten kann die Geschwindigkeit verändert, 
mit CTRL ein Angriff abgebrochen werden; es erscheint dar- 
aufhin wieder das Radarbild. CTRL legt also eine Pause im 
Kampfgeschehen ein, oder aber zeigt die Aufgabe des 
Kampfes an, sprich das Ende des Spiels. 

(Rainer Krotz/ja) 


REM *** Autor: 
REM 
MODE 2:PAPER B:PEN 1:INK 8,8: INK 1,24 


RAINER KROTZ #*#* [9742] 


EFBCCI 


LEC62] 
[76D2] 
[B3CC]I 


PRINT CHR$ (22) CHR$ (®) 
ENT 1,58,-18,2 
DIM #$(3):DIM des$(6):DIM u$(8):DIM k 
(2):DIM ens (4) 
xpo=38: ypo=2:cou=2:spe=1:bil=1:fue=46 
3: fuz=Q: fra=si:frt=Bd: frz=1208:tur=2:bu 
1=174:tor=11:tub=2:z=5 
##t1)="t2.SPACE}iJKk 1 * 
+$(2)="u mnopgqr" 

+$(3)="vsssssst" 

klas="wxyzi{" 

rank$="OBERLEUTNANT" 

lev=®:schi=® 

MODE 1:BORDER 2 

GOSUB 2678 

GOSUB 2188 

INK @8,@:INK 1,1:INK 2,13:INK 3,9 
WINDOW #1,14,39,2,15:PAPER #1,1 
WINDOW #2,2,12,2,7:PAFER #2,8 
WINDOW #3,32,39,22,24:PAFPER #3,2 
WINDOW #4,14 '39,2,11:PAPER #4,2 
PAPER 3: CLS: ELS #1:CLS #2:CLS #3 
PAPER 2:LOCATE 14,18:PRINT STRING$ (2 
6,0) 

PAPER ®:PEN 2:LOCATE 2,2:PRINT 
MENT" 

LOCATE 2,4:PRINT 


[CA48] 


[C@D20] 
[877E] 
[8B92] 
LASB8] 
[C9D8] 
[9D2E)I 
[956C] 
E3AEA] 
[F64A] 
£[2D44] 
£[CaC4] 
[5542] 
[2170] 
[BAA2] 
LABSCI 
[429C] 


[3D6C) 
"ARMA 
[BOAIE]I 

"TURRET 1 +":LOCATE 
2,5:PRINT "TURRET 2 +":LOCATE 2,6:P 
RINT "TUBE{3 SPACE}1 +":LOCATE 2,7:P 
RINT "TUBE{3 SPACE}2 +" C46BA] 
PAPER 3:LOCATE 2,21:PRINT "COURSE":L 
OCATE 2,24:PRINT "DAMAGE 88 %":LOCAT 
E 14,24:PRINT "FUEL" 
LOCATE 19,22:PRINT "SPEED 1{2 SPACE} 
KN" 
LOCATE 14,22:PRINT STRING$ (3 ,CHR$ (23 
1)) 
LOCATE 2,22:PRINT "SOUTH" 
PEN B:LOCATE 2,1@:PRINT "BULLETS":LO 
CATE 2,13:PRINT "TORFEDOS":LOCATE 2, 
16:PRINT "RANGE -- M":LOCATE 2,18:PR 
INT "TARGET" 
PAPER 2:PEN 3:LOCATE 32,22:PRINT "PO 
SITION" 
LOCATE 32,23:PRINT "# ";xpo:LOCATE 3 
2,24:PRINT CHR$(94);5" "zypo 
LOCATE 2,11:PRINT STRING$(1®," 
CATE 2,14:PRINT STRING$(18," ") 
PAPER ®:LOCATE 19,24:PRINT "{2 SPACE 
+"3:PAPER 2:PRINT STRING$(9," ") 
MOVE 8,8:DRAW 98,399,2:DRAW 639,399:D 
RAW 639,8:DRAW 8,8 
PLOT 15,286:DRAW 15,384:DRAW 192,384 
:DRAW 192,286:DRAW 15,286 
PLOT 286,384:DRAW 624,384:DRAW 624,1 
58:DRAW 286,158:DRAW 296,384 
PLOT 15,262:DRAW 15,58:DRAW 192,38:D 
RAW 192,262:DRAW 15,262 
FLOT 15,38:DRAW 15,8:DRAW 192,8: DRAW 

192,38 [125A] 
MOVE 15,86:DRAW 192,86:MOVE 15,136:D 
RAW 192,136:MOVE 15,166:DRAW 192,166 
:MOVE 15,216:DRAW 192,216 
MOVE 282,8:DRAW 472,8:DRAW 472,38:DR 
AW 292, 38: DRAW 282, 8 
MOVE 202, 38: DRAW 202, 7@:DRAW 472,70: 
DRAW 472,38 
MOVE 274,38: DRAW 274,78 
MOVE 2986,128:DRAW 624,128,8:DRAW 624 
‚118:DRAW 2805,11@:DRAW 205,128 
MOVE 494,14:DRAW 6524,14:DRAW 624,64: 
DRAW 494 ,64:DRAW 494,14 


Listing 2. Eher eine Simulation als ein Spiel 


[C92E]I 
[68A2] 


[7202] 
[6926] 


£[D71A] 

[AF2A] 

[404E] 
")zLO 
[®ODD6] 
[E666] 
[®B2E] 
[7C38] 
cC105C] 


[5548] 


[0684] 
[11F8] 


[61B6] 
L2FF4] 


[1CB8] 
[6654] 
















































































688 IF 


690 
708 
710 
720 
730 
7a0 
750 
768 
770 
788 
798 
800 
818 
820 
830 


840 


850 


868 


870 
880 


898 
908 
9718 
720 
938 
940 
950 
9768 
970 


988 
9798 


bil=1:CLS #1:L0OCATE 8,16:PAPER 3:PEN 

®:PRINT "-- ":LOCATE 2,19:PRINT "-- 

"sLOCATE 14,18:PAPER 2:PRINT 

STRING$ (25," "):MOVE 2290,384:RESTOR 
E 3858 


READ a,b 

IF a=1 THEN GOTO 518 

DRAW a,b,2 

GOTO 478 

PAPER 1:PEN 2:LOCATE xpo,ypo:PRINT " 


THEN LOCATE fx1,fyi1:PRINT 
THEN LOCATE fx2,fy2:PRINT 
THEN LOCATE fx3,fy3:PRINT 
THEN LOCATE fx4,fy4:PRINT 


tas=9:tza=®d 

ged=8 

IF bil=1 THEN PAPER 1:LOCATE xpo,ypo 
:PRINT " " 

frt=frt+1:IF frt>=frz THEN fra=sfra+i 
sfrt=9: frz= (5BQ+INT(RND*13SQB))=: IF fr 
a>i1 THEN fra=® 

IF fra=i1 AND bil=1 THEN PAPER 1:PEN 

2:LOCATE 38,3:PRINT "e" ELSE IF bil= 
1 THEN LOCATE 38,3:PAPER 1:PRINT " " 


fuz=fuz+((3-bil)*spe*2): IF fuz >=2200 
THEN fue=fue-1:MOVE fue,3@:DRAW fue 
‚16,3: fuz=@: IF fue=288 THEN GOTO 419 
[7] 


IF xpo=38 AND ypo=3 AND fra=1 THEN G 
0OTO 4420 

IF bil=2 THEN GOTO 848 

IF spe>® THEN bew=bew+tspe: IF bew>=1@ 
@D THEN 488 

PAPER 1:PEN 2:LOCATE xpo,ypo:PRINT " 
d" 

GOTO 840 

cou=1 THEN xpo=xpo-1:ypo=ypo+i 
cou=2 THEN ypo=ypo+1i 

cou=3 THEN xpo=xpo+ti1:ypo=ypo+1 
cou=4 THEN xpo=xpo-1 

cou=5 THEN xpo=xpot+ti 

cou=7 THEN xpo=xpo-1:ypo=ypo-1i 
cou=8 THEN ypo=ypo-1i1 

cou=9 THEN xpo=xpo+1:ypo=ypo-i 
XFPO<17 OR YPO>13 THEN 4978 

PAPER 2:PEN 3:LOCATE 34,23:PRINT xpo 
:LOCATE 34,24:PRINT ypo 

ar xpo>39 OR ypo<2 THEN z=98:G60T0 455 


bew=B:FAPER 2:PEN 3:LOCATE 34,23:PRI 

NT xpo:LOCATE 34,24:PRINT ypo 

IF xpo=fx3 AND ypo=fy3 AND f3=1 THEN 
pl=ens3:sss=3:G60T0 22380 

IF xpo=fx2 AND ypo=fy2 AND f2=1 THEN 
pl=ens2:sss=2:60T0 22380 

IF xpo=fx1 AND ypo=fyi AND fi=1 THEN 
pl=ensi:sss=1:G60T0 2238 

IF xpo=fx4 AND ypo=fy4 AND f4=1 THEN 
pl=ens4:sss=4:G6G0T0 2230 

IF INKEY(@®)<>-1 AND spe<48 THEN spe= 

speti:PAPER 3:PEN 2:LOCATE 24,22:PRI 

NT spe 

IF INKEY (2)<>-1 AND spe>i1 THEN spe=s 

BR IIPAPER 3:PEN 2:LOCATE 24,22:PRIN 
spe 

j=JDY(@B):ON j GOSUB 9198,880,960,898, 

940,720,960,900,950,938 

G0TO 948 

cous="SOUTH{5 SPACE}":cou=2:ged=1:ku 

r=7:RETURN 

cou$="WEST{& SPACE}"=:cou=4:ged=1:kur 

=1: RETURN 

cou$="EAST{6& SPACE}":cou=d:ged=1:kur 

=5: RETURN 

cou$="NORTH{5S SPACE}":=:cou=8:ged=1:ku 

r=3: RETURN 

cou$="SQUTH/WEST"scou=1:ged=1:kur=8: 

RETURN 

cou$="SOUTH/EAST":cou=3:ged=1:kur=6: 

RETURN 

cou$="NORTH/WEST":cou=7:ged=1:kur=2: 

RETURN 

cou$="NORTH/EAST"=cou=9:ged=1:kur=4: 

RETURN 

IF ged=1 THEN LOCATE 2,22:PAPER 3:PE 

N 2:PRINT cou$ 

IF INKEY(23)<>-1 AND bil=2 THEN bil= 

1:xpo=xpo+1:PAFER 2:PEN 3:LOCATE 34, 

23:PRINT xpo:G0TO 468 

IF INKEY(79)<>-1 THEN GOSUB 5128 

IF bil=1 THEN 588 


1000 glu=® 
1818 zu=INT(RND*2+1):IF zu=1 THEN plu=-1 


ELSE plu=1 : 


19820 IF INT(RND*28*ens)=5 THEN tar=tar+p 


96 


lusglu=s1:IF tarii THEN tar=8B ELSE I 


CB444] 
CEFCCI 
[2E3@] 
£[77B®] 
[7752] 


[33D4] 
E2BDA] 


ESAAB]I 
[DSB®] 
[C8B8] 
[6300] 
[74CE] 
C65B4] 


C97B84] 


[80C8] 


[16E8] 


CE114] 


[721C] 
ECQE6] 


[6756] 
[7EEB] 
[8364] 
[73BA] 
[C1B8] 
[75ACI 
[BO7AE]I 
[8ABB] 
[SEC2] 
LEECO] 
[8006] 
[1478] 
[7114] 
[OB9A]I 
CDBE2] 
[9B7C] 
[2074] 
CCD&C]I 


[628C] 


[73804] 


[95ACI 


[&D52] 
[CBF6E]I 


[D482] 
[Fö1C] 
[OBECI 
[FF6A] 
[431C] 
c28F2] 
CAD1®] 
[6AEE]I 
[BABS]I 
[4F68] 
LASCO]I 
[5844] 
[592C] 
CEBSE] 


F tar>8 THEN tar=1 

IF glu THEN ON tar GOSUB 2270,2288, 

2290,2300,2310,2320,2330,2340 

IF glu THEN FAPER 3:PEN @:LOCATE 2, 
19:PRINT tar$ 

IF kur<>tar THEN frc=frc-spe:IF frc 

<=-700 THEN 1888 

IF spe‘=((5-ens)#8) THEN frc=frc-(4 

@-spe): IF frc<=-708 THEN 1980 

G0OTO 1298 

ran=sran+i:frc=®:PAPER 3:PEN B:LOCAT 

E 7,16:PRINT ran: IF ran>28 THEN xpo 

=xpo+tl:ran=9:60T0 468 

GOTO 1298 

IF ran>3 OR kur<>tar THEN 1288 

IF INT(RND*#S5B) >(ens#3) THEN 128® 

v=INT (RND*2+1) 

FRINT CHR$ (22) PAPER 2:PEN 1:LOCATE 
ktv) „112PRINT CHR$ (145) :PRINT CHR$ 
(22) CHR$ (®) 

SOUND 4,0,10,5,08,0,16 

LOCATE k(v) ,„i1l:PEN B:FRINT MID$(u$( 

7)1,kiv)-18,1) 

IF INT(RND*38)>5 THEN 1288 

BORDER 25,8 

FOR j=7 TO 1 STEP -8.5:50UND 2,90,18 
»3,08,8,7:NEXT 

BORDER 2 

dam=dam+tens:LOCATE 8,24:PAPER 3:PEN 
2:PRINT dam 

IF dam>68 THEN PAPER 3:FEN 1:LOCATE 
14,22:FRINT CHR$ (231) 5; CHR$ (231) 5; CH 

R$ (231) 

IF INT(RND#*25)=2 AND tur>® THEN tur 

=tur-1:PAPER B:PEN 3:LOCATE 11,4+tu 

F3FPRINT "-" 

IF INT(RND*25)=2 AND tub>® THEN tub 

=tub-1:PAPER B:PEN 3:LOCATE 11,6+tu 

b:PRINT "-" 

IF dami7® THEN 1288 

INK 1,24:PAPER 1:CLS 

FOR s=7 TO 1 STEP -98.2:SOUND 7,0,12 
‚s,8,8,28:NEXT 

z=1:60T0 4550 

GOTO 1418 

ged=®: sch=® 

IF tar=kur AND spe>((5-ens)#8) THEN 
frc=frc+spe: IF frc>=7808 THEN ran=r 

an-1i:frc=@:ged=1:IF ranii THEN ran= 
1 

IF ged=® THEN 1338® 

FAPER 3:PEN B:LOCATE 7,16:PRINT ran 


IF kur<>tar OR ran>12 THEN PAPER 2: 
LOCATE 23,11:PRINT STRING$(9," ")sL 
OCATE 25,1@:PRINT STRING$(5," "):GO 
TO 1390 

PAPER 2:PEN @: IF ran>12 THEN LOCATE 
26,11:2PRINT " " 

IF ran{i4 THEN LOCATE 19,11:PRINT u$ 
(T)=LOCATE 19,18:PRINT u$ (8) :u=8 

IF ran<7 AND ran>3 THEN LOCATE 19,1 
12PRINT u$(5):LOCATE 19,1@:PRINT u$ 
(6) zu=6 

IF ran<i® AND ran>ös THEN LOCATE 19, 
11:PRINT u$(3):LOCATE 19,1@:PRINT u 
$(4):u=4 

IF ran{13 AND ran>9 THEN LOCATE 19, 
112PRINT u$s(1):LOCATE 19,18:PRINT u 
$(2)zu=2 

REM 

G0TO 1198 

IF tur=® THEN 1558 

IF JOY(@)=16 AND bul>16 AND tur>@ T 

HEN GOTO 1448 

G60TO 1558 

a=u:tre=® 

SOUND 4,8,7,7,8,8,5 

sx=INT (RND#16+19) :5y=INT (RND*6+6) 

PRINT CHR$ (22) :PAPER 2:PEN 1:LOCATE 
5x ,„sy:PRINT CHR$ (148) :PRINT CHR$(2 
2) CHR$ (8) 

IF ran>12 OR syi1® OR tar<>kur THEN 
s$=" ":GOTO 1538 

IF sy=11 THEN a=a-i1 
s$=MID$ (u$ (a) ,sx-18,1) 

IF s$<>CHR$ (32) AND ran{4 THEN tre= 
l:trz=trz-i 

IF tre=1 THEN FOR i=7 TO 1 STEP -®. 
5:5S0UND 2,0,10,1,8,8,15:NEXT 

PEN B:LOCATE sx,sy:PRINT s$ 
buc=buc+1:IF buc=3 THEN MOVE bul „22 

4:DRAW bul „238,3:bul=bul-1:buc=® 

IF tub=8 THEN 1858 

IF INKEY$=" " AND tas=® AND tor>1 T 
HEN 15980 

IF tas=® THEN 1718 

GOTO 1558 

REM 

PAPER 2:PEN & 

LOCATE 14,18:PRINT "{3 SPACE}- TORP 

EDO LAEUFT -" 

FOR i=28 TO 1 STEP-1:S0UND 2,0,3,3, 























[738E] 
[8312] 
[S9SE]I 
L15B®] 


[C22A] 
[281A] 


[1DE2] 
[851E] 
[A2E2] 
[325A] 
ESDDE] 


[CEFC]I 
[78B8] 


[2F28] 
[92E2] 
CEB16] 


L9B88E)] 
EFCF6] 


[87BC] 


[B7S5A] 


CFiEB] 


[CEöE)] 
[D6ö4A] 
[9398] 


CA2BE] 
[7C66] 
CB114] 
LASDCI 


[9FEB] 
[BECE] 


CED44] 


[4908] 
[EBE4] 
LFBBCI 


[2612] 


£[D462] 


[2864] 
[81A2] 
LIEBB] 
L2C2ZE] 


[E12A] 
[3A1B] 
[BSDC]I 
[8684] 
[B23A] 


[1C86] 


[EBBE] 
[88E8] 
[29BC] 


E3S@BE] 


[3492] 
LEASE] 


[210C] 
[811A] 


L1E7A] 
EDB12] 
[6726] 
[49A6] 
[2C3C] 


[öFBAI 





RALAPPYM, 


GKANIRULER 









































2638 
2648 
2650 


2668 
2678 
2688 
2698 
2708 
2718 
27208 
2738 
2740 
27580 
2768 


2770 
2780 
2798 


2808 
2818 


:f2=1:ens2=INT (RND#4+1) 

fx3=INT (RND#19+17) :fy3=INT (RND*3+9) 
: f3=1:ens3=INT (RND#4+1) 

fx4=INT (RND#2+36) :fy4=INT (RND#9+4) : 
f4=1:ens4=INT (RND#4+1) 

RETURN 

bil=2:ran=INT (RND#6+12):tas=B 

ON pl GOTO 1740,1859,29870,19640 
PAPER 3:PEN B:LOCATE 7,16:PRINT ran 
:LOCATE 2,19:PRINT tar$ 

CLS #1:CLS #4:60T0 588 
tar$="WEST{6 SPACE}Y" S RETURN 

tar $="NORTH/WEST" RETURN 
tar$="NORTH{5 SPACE} "=: RETURN 
"NORTH/EAST "= RETURN 

"EAST{6 SPACE}" RETURN 

tar $="SOUTH/EAST" RETURN 
tar$="SOUTH{S SPACE} "RETURN 

tar #="SOUTH/WEST" = RETURN 

IF z=1 THEN 2428 

des$(1)="SIE HABEN DESERTIERT , INDEM 
SIE VERSUCHT " 

des$#$ (2) ="HABEN,DAS IHNEN ZUGETEILTE 
EINSATZGEBIET" 

des$#$ (3)="ZU VERLASSEN. MARINEFLIEGER 
HABEN SIE ZUR" 

des$(4)="RUECKKEHR ZUM STUETZPUNKT 
GEZWUNGEN.SIE " 

des$#$ (5)="WERDEN IHRES DIENSTGRADES 
ENTHOBEN UND{2 SPACE}" 

des$#$(&6)="VOR EIN KRIEGSGERICHT GEST 
ELLT. -ENDE-{2 SPACE}":RETURN 
des#(1)="DIE BESCHAEDIGUNG IHRES SC 
HIFFES WAR SO " 

des$ (2)="HOCH,DASS ALLE SYSTEME ZUS 
AMMENGEBROCHEN" 





des$(3)="SIND UND DAS SCHIFF EXPLOD 
IERT IST.DURCH" 
des$# (4)="UNUEBERLEGTES HANDELN HABE 


N SIE EIN KOM-" 

des$# (5)="PLETTES SCNELLBOOT UND SEI 
NE BESATZUNG{2 SPACE}" 
des# (6)="AUF DEM GEWISSEN. 
6 SPACE} ": RETURN 
des#$(1)="DER BETRIEBSSTOFF IST IHNE 
N RESTLOS AUS-" 

des$# (2)="GEGANGEN.SIE MUSSTEN DAS B 
00T VERLASSEN " 

des# (3)="UND ES SPRENGEN,DAMIT ES D 
EM FEIND NICHT" 

des#(4)="IN DIE HAENDE FAELLT.LEIDE 
R WURDEN SIE{2 SPACE}Y" 

des#(5)="UND IHRE BESATZUNG VON EIN 
EM FEINDLICHEN" 

des$# (6)="ZERSTOERER AUFGEFISCHT. 
NDE-{1® SPACE}":RETURN 
des#(1)="SIE HABEN IHRE MISSION VOR 
ZEITIG ABGE-{2 SPACE}" 

des$ (2)="BROCHEN UND SIND ZUM STUET 
ZPUNKT ZU-{4 SPACE}" 

des$# (53)="RUECKGEKEHRT.SIE KONNTEN I 
HREN AUFTRAG{2 SPACE}" 
des#(4)="NICHT ERFUELLEN. VOR IHREM 
NAECHSTEN EIN-" 

des$ (5)="SATZ SOLLTEN SIE IHRE ANGR 
IFFSTAKTIK{4 SPACE}Y" 
des$ (6) ="UEBERPRUEFEN. 
ACE}" RETURN 
des$(1)="SIE SIND DER FEINDLICHEN K 
UESTE ZU NAHE " 


-ENDE-{1 


-. 


-ENDE-{28 SP 


des# (2) ="GEKOMMEN. EINE GESCHUETZSTE 
LLUNG HAT SIE " 
des# (3)="ENTDECKT UND VERSENKT.DURC 


H SCHLECHTES{2 SPACE}" 
des$ (4)="NAVIEGIEREN HABEN SIE IHR 
SCHNELLBOOT{3 SPACE} " 
des$ (5)="LEICHTFERTIG ZERSTOERT. ZUM 
GLUECK KONNTE" 
des$ (6)="SICH DIE BESATZUNG RETTEN. 
-ENDE-{7 SPACE} ": RETURN 
RETURN 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
2,192 
SYMBOL 
8 
SYMBOL 
63 


AFTER 99 
180,0,0,32,58,255,127 
101,4,22,86,255, 127,127 
102,0,4,6,255,255,6,4 
103,0,0,0,60,70,219,255,68 
104,0,0,0,24,126,124,60 
105,8,32,96,96,76,96,96,96 
106,0,0,4,4,20,20,212,84 
1087,0,0,0,0,224,224,232,232 
108,32,32,16@,224,192,192,19 


109,96,96,96,96,96,96,248,24 
110,255,170,127,63,39,63,63, 


SYMBOL 
251,255 
SYMBOL 112,0,96,96,64,88,88,80,88 
SYMBOL 113,192,192,192,192,192,192, 
192,192 


111,248,169,252,248,255,255, 


Listing 2. Schnellbootkommandant (Fortsetzung) 








8,8,i:NEXT [8076] 
1638 LOCATE tor ,i4:PAPER 3:PRINT " ":tor 

=tor-i [CC4EE] 
1648 tas=1 [9642] 
16450 IF tas=1 THEN tza=stza+1: IF tza>=49 

AND ran<i4 AND tar=kur THEN 1588 [BBQ4] 
1668 IF tza=5@ THEN tas=@:tza=9:LOCATE 1 

4,18:PAPER 2:PRINT STRING$ (25," ") CCFC2] 
1678 GOTO 1718 [3228] 
1688 PAPER 2:PEN 1:LOCATE 14,18:PRINT "T 

REFFER UNTER WASSERLINIE":FOR i=7 T 

0 1 STEP -8.2:SOUND 1,28,18,1,2,8,28 

:NEXT [AB78] 
1698 LOCATE 14,18:PRINT STRING$ (25," ") [C44D8] 
1708 trz=trz-4:tas=®:tza=®:LOCATE 14,18: 

PAPER 2:FRINT STRING$ (25," ") [43CA] 
1718 REM [419A] 
1720 IF trz<i=® THEN tas=B:tza=8:LOCATE 1 

4,18:PAPER 2:FRINT STRING$(25," "): 

GOTO 4648 C2CAE] 
1758 GOTO 588 [78C2] 
1748 REM ZERSTOERER [3IQO8A]I 
17580 u$(1)=STRING$ (7," ")+CHR$ (139) +STRI 

NG$(8," ") [E462] 
1768 u$(2)=STRING$(16," ") [7714] 
1770 u$(3)=STRING$(4," ")+CHR$ (136) +CHR$ 

(137) +CHR$ (138) +5STRING$ (7," ") [83C2] 
1780 u$(4)=u$ (2) C3DCE] 
1798 us (5)=STRING$ (5," ")+CHR$ (138) +CHR$ 

(131) +CHR$ (132) +CHR$ (133) +CHR$ (134) 

+STRING$ (6," ") CDOF4] 
1888 us (64) =STRING$(7," ")+CHR$ (135) +STRI 

NG$(8," ") [FOSC] 
1818 u$(7)=STRING$(4," ")+t"xyz{i}"+CHR$( 

126) +S5TRING$(5," ") [S3F®] 
1828 us (8) =STRING$(6," ")+CHR$ (127) +CHR$ 

(128) +CHR$ (129) +5STRING$ (7," ") [8EC4] 
18538 ens=3:k (1)=24:k (2) =29:trz=20: tar$=" 

EAST{& SPACE}":tar=S5 LE4F6] 
1848 GOTO 2250 CöA1E] 
18580 REM FREGATTE [86488] 
1858 u$(1)="{B8 SPACE} "+CHR$ (175) +"{7 SPA 

CE}” L1EE8] 
1878 u$(2)=STRING$(16," ") [9E18]I 
1888 us (3)="{8 SPACE} "+CHR$ (172) +CHR$ (17 

FI +CHR$ (174) +"{5 SPACE}" CEBCC]I 
1890 u$s(4)=u$ (2) £7CD2] 
1980 us(5)="t{6 SPACE} "+CHR$ (166) +CHR$ (16 

7) +CHR$ (168) +CHR$ (169) +CHR$ (170) +" { 

5 SPACE}" CA8B8] 
1918 us(b)="{B SPACE}"+CHR$(171)+"f6 SPA 

CE}" [58A2] 
1920 u$(7)="{5 SPACE}W"+CHR$ (159) +CHR$ (1 

68) +CHR$ (161) +CHR$ (162) +CHR$ (163) +" 

{5 SPACE}" CF14C] 
1938 us (8)="{7 SPACE} "+CHR$ (164) +CHR$ (16 

5)+"{7 SPACE}" [7EE®] 
1948 ens=2:k (1)=25:k (2)=29:trz=1ßd:tar$s=" 

NORTH/WEST":tar=2 CDB12] 
1950 GOTO 2250 [8322] 
1968 REM KREUZER [5SF38] 
1978 us(1)="{8 SPACE} "+CHR$ (192) +CHR$ (19 

3)+"{7 SPACE}" [C91EI 
1988 us (2)=STRING$(16," ") £c791C] 
1990 u$s(3)="{(7 SPACE} "+CHRE (189) +CHRS (19 

BO) +CHR$ (191) +"{7 SPACE}Y" [541C] 
2008 u$s(4)=u$ (2) £[84B2] 
2018 us(5)="(5 SPACE} "+CHR$ (197) +CHR$ (19 

8) +CHR$ (199) +CHR$ (208) +CHR$ (201) +CH 

R$ (202) +"{5 SPACE}" L7F7E] 
2020 u$(6)="{6 SPACE} "+CHR$ (194) +CHR$ (19 

5) +CHR$ (196) +"{B SPACE}Y" [6518] 
2038 us(7)="{4 SPACE} "+CHR$ (176) +CHR$ (17 

7) +CHR$ (178) +CHR$ (179) +CHR$ (188) +CH 

R$ (181) +CHR$ (182) +CHR$ (183) +CHR$ (18 

4)+"{4 SPACE}" L1CC®] 
2048 u$(8)="{& SPACE} "+CHR$ (185) +CHR$ (18 

6) +CHR$ (187) +CHR$ (188) +"{7 SPACE}" CE814] 
28580 ens=4:k(1)=24:k (2) =30:trz=25:tar$=" 

SQUTH/EAST":tar=& [2CEE] 
2048 GOTO 2250 C8F14] 
2078 REM SCHNELLBOOT CB754] 
2088 u$(1)="{7 SPACE}"+CHR$ (146) +"{8 SPA 

cE}" [52DA] 
2098 us(2)=STRING$(16," ") [CDBE) 
2100 us (3)="{6 SPACE} "+CHR$ (147) +CHR$ (14 

8)+"t{8 SPACE}"” [87C6] 
2118 us(4)=u$ (2) [97B6] 
2128 u$(5)="{5 SPACE} "+CHR$ (158) +CHR$ (15 

1) +CHR$ (152) +CHR$ (1535) +"{7 SPACE}" CEDSCI 
2130 u$(6)="{7 SPACE}"+CHR$ (149) +"(B SPA 

CE” [77E2] 
2140 us(7)="{5 SPACE}W"+CHR$ (155) +CHR$ (1 

56) +CHR$ (157) +CHR$ (158) +"i6 SPACE}" 

[C36A] 

2150 u$(8)="{7 SPACE}"+CHR$ (154) +"{8 SPA 

GE?" [9CE2]I 
21680 ens=1:k(1)=25:&k (2)=29:trz=S:tar$="W 

EST{& SFACE}":tar=1 C11B8] 
21790 GOTO 2258 [5A18]1 
2180 fx1=INT (RND*19+17):fy1=INT (RND#*3+3) 

:fi=1:ens1=INT (RND#4+1) E1BCE)] 
2198 fx2=INT (RND#*+19+17) :fy2=INT (RND#3+6) 
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Ergänzen «AAPPy.x 






Sie jetzt Ihre COMPUTER „Sammlung 


Schaffen Sie sich ein 


interessantes Nachschlagewerk und 
gleichzeitig ein wertvolles Archiv! 


Kennen Sie alle »Happy Computer«-Ausgaben von 1985? Suchen Sie einen ganz bestimmten 


Testbericht? Oder haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach 


einer speziellen Anwendung? 


Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen 


Seiten eine Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 06 und 08 bis 


12/85. 


Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in 
Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 


dieser Ausgabe und das Erscheinungsjahr (z.B. 3/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs- 


eingang umgehend zur Auslieferung gebracht. 
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Rosetten-Grafik für den Spectrum 88/3 
Schnelle Grafik aus dem Compiler (L.d.M./C 64) 49/8 
Schnelle Sprites auf allen Apple-Computern 83/9 
Schöne schnelle Grafik (Grafik-Paket/C 64) 80/2 
Solar-Painter (Spectrum) 101/12 
Sprite-Editor (C 64) 82/1 
Sprites drehen ganz einfach (C 64) 68/9 
Sprites per Software (CPC 464) 14/9 
Vom Bild zum Sprite (C 64) 56/9 
Zauber der Farben mit Magic Painter (L.d.M./Atari) 83/3 
Nachhall auf Seite 85 in 5/88 
Zaubereien auf dem Bildschirm (L.d.M./Grafik/CPC 464) 80/4 
Zeichenroutine für Kreise und Ellipse (CPC 464) 90/5 
Zykloide für Grafiker und Mathematiker (C 64) 60/10 
Nachhall auf Seite 79 in 12/88 
24 Farben in Grafik 0 für Atari 86/6 
Das Haus des Magiers (C 64) 6374 
Dasher, der Volltreffer (L.d.M./C 64) 62/5 
Nachhall auf Seite 117 in 8/85 
Der rasende Raider (C 64) 79/3 
Diamantenfieber (L.d.M./Atari 48 KByte) 58/2 
Nachhall auf Seite 85 in 5/88 
Die Abenteuer eines rasenden Reporters (Report/C 64) 60/1 
Geröllheimer (Atari) 79/6 
Gespensterjagd im Schneider (CPC 464) 14/2 
Nachhall auf Seite 85 in 8/85 
Hefro-Karo (Spectrum) 83/6 
Lumberjack Larrys Abenteuer in Bagdad (S.d.M/C 64) 52/12 
Kalte Zeiten (Wintry Screen/C 64) 69/2 
Kneipe zum hastigen Kellner (VC 20) 68/1 
Mit dem Apple auf die Trainerbank (Aktion Apfelsaft) 100/4 
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Tips& Tricks 


Speicher 


Monitore 


Drucker 


Sprachen 


Titel Seite/Ausgabe 


Mit dem Atari-Computer auf Ölsuche (Atari) 

Mit Woodshot ins Manöver ziehen 

Mücke mit Tücke (C 64) 

Musikalisches Labyrinth (C 64) 

Nachhall auf Seite 117 in 8/85 

Moonrake (C 64) 

Nachtflug (Spectrum) 

Nachhall auf Seite 85 in 5/85 Niemandsland (C 64) 
Pokerface für 16 KByte (Spectrum) 

Psycho — die Macht des Geistes (C 64) 

Nachhall auf Seite 80 in 12/85 

Rennfahrer mit dem Joystick (Driver/C 64) 

Rettet den letzten Baum (Insekt defense/C 64) 
SAM — der Mann von der Baustelle (L.d.M./CPC 464) 
Nachhall auf Seite 79 in 12/85 

Schatzhöhle (Atari 800XL) 

Vorsicht Hochwasser (Aquantor/L.d.M./C 64) 
Über den Wolken (Flugplanung/C 64) 
Wortsuchspiel (Spectrum) 

AMPEL — grünes Licht für Atari-Maschinen-Programme 
Auf dem Laufenden mit einer Echtzeituhr (C 64) 
Auf Trap gebracht (CPC 464) 

Autostart für Atari 

Basic bequem (C 64) 

Basic-Compactor (Spectrum) 

Nachhall auf Seite 80 in 12/85 

Basic-Plus: Applesoft-Basic-Erweiterung (Apple IT) 
Beim C 64 piepst es 

Bilder richtig konservieren (CPC 464) 
Bildschirmtrick für den Commodore 64 
Byte-Shifter (Spectrum) 

Chain Merge endlich lauffähig (CPC 464) 
Data-Generator für Apple II 

Dateien hin- und hergerissen (Atari-IBM) 

Der neue Checksummer ist da (C 64) 

Der neue Checksummer ist da (C 64) 

Der neue Checksummer (C 64) 

Deutsche Sonderzeichen unter CP/M (CPC 464) 
Die Maltafel wird zur Maus (Atari) 

Disketten sparen (C 64) 

Nachhall auf Seite 49 in 11/85 

Disk-Help für die schnelle Hilfe (Atari) 

Disk- und DOS-Utility für alle Atari-Computer 
Drei Tricks für MSX 

Ein langes Gesicht für den C 64 (Longscreen 64) 
Fehlerhilfe mit HELP & TRACE (VC 20) 
Fensterlkünstler (C 64) 

Fettschrift für den 48 KByte-Spectrum 

Find Label (Spectrum) 

Flotte Primzahlen in Hisoft Pascal (Spectrum) 
Funktionstas. mit bel. langen Befehlsfolgen (CPC 464) 
Fußball-Manager für Commodore 64 
Grafik-Hardcopy in vierfacher Größe (C 64) 
Kostenlose Speichererweiterung (C 64) 
Kriegserklärung an Software-Diebe (Spectrum) 
Listen leicht gemacht (C 64) 

Make DATA für den Spectrum 
Maschinencode-Routinen in Basic umgesetzt (CPC 464) 
Microdrive-Aufwertung (Spectrum) 

Nachhall auf Seite 79 in 12/88 

Mondlandung (C 64) 

Musik und Farbe (C 64) 

Neue Tricks für MSX 

Nie mehr Listingkummer mit dem Checksummer (C 64) 
Nie mehr Listingkummer mit dem Checksummer (C 64) 
Peeks und Pokes für alle Atarı Computer 

Prima Werkzeug für den Programmierer (C 64) 
Programmtransfer leicht gemacht (CPC 464) 
Proportionalschrift für den Spectrum 

Protokoll auf dem Drucker (CPC 464) 

RAM-Disk für Atari 800XL 

Ran an den Userport (C 64) 

Renumber 64 (C 64) 

Nachhall auf Seite 117 in 8/85 

Rock me Amadeus (C 64) 

RSX-Befehle ohne »@« (Schneider) 

Schilderwald (Plakatschrift/C 64) 

Schluß mit der Eintönigkeit (C 64) 

Nachhall auf Seite 80 in 12/85 

Seidenweiche Bildschirmverschiebung (CPC 464) 
Spectrums COPY besser nutzen 

Spectrumtasten mit Funktionen belegt (Spectrum) 
Spectrum Tips & Tricks 

Sprachkurs für Commodore-Basic (C 64) 
Super-Merge für Commodore 64 

Nachhall auf Seite 160 in 9/88 

Super-Saver (C 64) 

Statuszeile mit Uhr (Atari) 

;word-Umlaute (Spectrum) 

‚word 464 mit DIN-Tastatur (CPC 464) 

Texte auch im Grafikmodus (Atari) 

Tippen mit dem Plotter (C 64) 

Tips & Tricks rund um den Schneider 

Töne aus dem Atari 

Variablendump für Atari (Atari) 
Variablen-Transfer (Spectrum) 

Verflixter Listschutz (C 64) 

Nachhall auf Seite 80 in 12/86 

Vom Maschinencode zum Basic-Programm (C 64) 
Wie die Bilder laufen lernten (Atari) 
Zeilenakrobatik auf dem Schneider 

Zwei SCREEN$ im schnellen Wechsel (Spectrum) 
ZX81-Utility: Nützliches für Aufsteiger (C 64) 

30 tolle Maschinencode-Routinen (Spectrum) 






Grundlagen 

Daten am laufenden Band 

Daten auf der schnellen Scheibe 

Floppy gegen Kassette 

Selbst geschraubt ist halb gespart 

So arbeitet das 1050-Laufwerk von Atari 

So liest und schreibt die 1541 

Speichermedium Endlosband 

Tips, Tricks und Todsünden 

Wohin in Zukunft mit Bits und Bytes 
Farbmonitore — buntes Fenster zum Computer 
Monitore: Richtig geplant, gekauft und genossen 
Blitzsaubere Schrift mit Laserlicht (Laserdrucker) 
Die »heißen« Drucker (Thermodrucker) 
Farbspiele für Farbdrucker 

Mit leisen Tönen (Tintenstrahldrucker) 

Scharfe Nadel, spitze Typen (Matrix und Typenrad) 
Blick: Logo-Befehle 

rweiterung für RSX (CPC 464) 

CP/M — Ein Betriebssystem 

Fenster in die Zukunft: Basic auf dem 520 ST 
Logo-Spielerei oder ernsthafte Alternative 

RSX — Maschinensprache mit Komfort 

Begriffe aus der D) 

Datenübertragung im schnellen Gleichschnitt 
Beethoven — Bit für Bit 

Der Weg zum Kabelorchester 

(Joystick, Maus und Rollkugel) Grafik auf dem Tablett 
serviert (Grafik-Tabletts) 

Wie sag ich's meinem Computer (Tastaturen) 
Das Interface | ROM und seine Nutzung 

Der Commodore 64 kann einfach alles 

Der 8er und sein 

Ein großes Abenteuer: Das Adventure 

Messen + Steuern = Regeln 

MSX — Der Standard unter der Lupe 
Schnittstellen — was sind das eigentlich 

So bauen die Spiele-Baukästen 

Ströme und Kanäle im Spectrum 

Vom Traum zum Heimcomputer (68000 Prozessor) 
Weiche Hardcopy (Schneider) 

Welcher Computer spielt am besten? 

1,2, 3 — Kalkulieren mit der Hand ist nun vorbei 
3D-Grafik 


Allgemeine Themen 

Der Computer — Ein moderner Trichter? 

Schule mit Computer 

Keine Angst vor DFÜ 

Kl: Abenteuer Denken 

Amiga Spiele Premiere 

Bits auf Abwegen 

Computer als Briefträger 

Das Daumenkino für Heimcomputer 

Der C 64 im C 128 

Ein teures Vergnügen (DFÜ-Kosten) 

Enemy Mine: Weltraumepos mit Computergrafik 
Happy-Sportspielführer 

Heimcomputer aus zweiter Hand 

Mehr als ein Computer (Die Commodore Story) 
MSX: neuer Standard — neue Chancen 
MSX-Software: Es geht voran 

Raupkopierer gegen den Rest der Welt 
Software (fast) geschenkt 

Software-Piraterie 

Software-Volltreffer 

Software zum Spartarif 

Spiele auf der schwarzen Liste 

Vom Heimcomputer-Freak zum EDV-Spezialisten 
Vom Hobby zum Geldregen 

Vom Abenteuer, ein Abenteuer zu schreiben 
Wenn mal was schiefgeht 

Wissenswertes, Fragen und Antworten zum 128er 
Zubehör und Software — das »kleine« Geschenk 
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Stichwort Titel Seite/Ausgabe 
Zu viel Kontrolle 150/3/ 
1985 — Das Jahr der Eisenbahn 154/4 
Kurse 
Logo Teil 1: Der Einstieg für Einsteiger 40/3 
Teil 2: Die Schildkröte lernt laufen 151/4 
Teil 3: Die Schildkröte wird erwachsen 183/56 
Teil 4: Die Schildkröte wird erwachsen 134/6 
Pascal Pascal für Schüler und Lehrer 86/8 
Pascal für kluge Köpfe/Teil I 91/9 
Pascal für kluge Köpfe/Teil 2 121/10 
Pascal für kluge Köpfe/Teil 3 124/11 
‚Atari Schnelle Grafik für Atari Computer 124/10 
c64 Musik mit Poke und Peek/Teil | 54/3 . 
Musik mit Poke und Peek/Teil 2 53/4 
Musik mit Poke und Peek/Teil 3 56/5 
Musik mit Poke und Peek/Teil 4 52/6 
Lemen Sie Ihren Commodore 64 kennen/Teil | 59/5 
Lernen Sie Ihren Commodore 64 kennen/Teil 2 60/6 
Lernen Sie Ihren Commodore 64 kennen/Teil 4 45/8 
Lernen Sie Ihren Commodore 64 kennen/Teil 5 59/9 
Lernen Sie Ihren Commodore 64 kennen/Teil 6 45/10 
Lemen Sie Ihren Commodore 64 kennen/Teil 7 56/11 
Ohne Fleiß kein Kreis/Teil | 48/12 
CPC 464 Kein Buch mit sieben Siegeln/Teil 1 156/5 
Kein Buch mit sieben Siegeln/Teil 2 128/6 
Kein Buch mit sieben Siegeln/Teil 4 106/8 
Kein Buch mit sieben Siegeln/Teil 5 40/9 
Hardware Zugüberwachung per Computer/Teil | 166/4 
Zugüberwachung per Computer/Teil 2 51/5 
Zugüberwachung per Computer/Teil 3 131/6 
Basteln 
Atari 520 ST auf Abwegen 23/12 
Bilder aus dem Weltall (Schneider) 32/12 
Dem User Port geht ein Licht auf (C 64) 54/11 
Fehler in der Spectrum Hardware 43/8 
Grün ist nicht das letzte Wort (CPC 464) 35/9 
Gute Verbindung mit dem Schneider (PIO-Interface) 28/10 
Lightshow mit dem Commodore 64 44/5 
Multitalent für den Joystickanschluß (Spectrum) 30/2 
Nachhall auf Seite 85 in 5/85 
Nachhall auf Seite 77 in 7/85 
Neue Geräteadresse für das 154] Laufwerk (C 64) 62/10 
Nie wieder Angst (Alarmanlage C 64) 48/3 
PIO 8355 — Ein Experimentierinterface für Spectrum 141/9 
Nachhall auf Seite 80 in 13/85 
Schalten und walten mit dem Atari (Schaltinterface) 114/10 
Schreiben mit Schreibmaschinenqualität (C 64) 26/2 
Schreibschutz-Schalter (Atari 810 Floppy) 24/3 
Schreibschutz-Schalter (Atari 1060 Floppy) 107/11 
Sieben auf einen Port (7 Segment Anzeige/Spectrum) 24/2 
Sparen am richtigen »Drucker-Ende« (Sinclair) 23/3 
Verbesserte Cursorsteuerung beim Spectrum 29/2 
Zwei Joysticks für ein Halleluja (CPC 464) 31/5 
Marktübersichten 
TI 99/4A Erweiterungen zum TI 99/4A 4/1 
Atari Marktübersicht Atari 4/1 
Rund um den Atari 128/11 
Atari ST Jede Menge Software 133/11 
Spectrum Anschluß gesucht: Peripherie für ZX8| und Spectrum 48/1 
c64 Interfaces für den Commodore 64 49/1 
Der Computer mit dem großen Zubehör 56/4 
CPC 464 Rund um den Schneider 48/6 
Akustikkoppler Akustikkoppler, preiswert wie noch nie 160/3 
Drucker Druckerparade 129/10 
Nachhall auf Seite 80 in 12/88 
Monitore Marktübersicht Monitore 136/86 
Nachhall auf Seite 80 in 12/86 
Musik Musiksoftware 181/11 
Grafik Punkt,Punkt,Komma,Strich (Grafikprogramme) 42/6 
Software Softladen (Die neusten Programme und ihre Preise) 32/1 
So viel Software (Heimsoftware für Heimcomputer) 150/12 
Spiele Spiele aus dem Baukasten (Construction Sets) 38/5 
Computer Welcher Computer zum Weihnachtsfest? 136/12 
Wettbewerbe 
Aufruf Aktion Apfelsaft 29/1 
Auflösung Bildergalerie 106/1 
Auflösung Bildergalerie (Nachlese) 142/2 
Aufruf Bithoven-Festival 46/3 
Auflösung Bithoven-Festival 128/8 
Aufruf Der Computer als Steuermann 48/11 
Aufruf Der ideale Heimcomputer 126/6 
Aufruf Der schönste Titel von 1984 108/1 
Auflösung Der schönste Titel von 1984 138/56 
Auflösung Diskettenwettbewerb 176/10 
Aufruf Happy Computer Leserwettbewerb 130/8 
Auflösung Happy Computer Leserwettbewerb 20/12 
Aufruf Ihr Einsatz (Die beste Anwendung) 104/1 
Auflösung Ihr Einsatz 144/6 
Aufruf Kunst in der Kneipe 187/9 
Aufruf Leserumfrage — Taschenrechner 70/10 
Aufruf Probleme auf der Wöraalm 179/11 
Auflösung Spiel des Jahres 148/4 
Aufruf Steno mit dem Computer 41/5 
Aufruf Was steuern, wie regeln? 6/11 
Auflösung Wer gewinnt den goldenen Besenstiel 172/11 
Leserforum 
Atari-Tips 102/1 
Autostart für VC 20 103/1 
Basicode-2 für MZ-700 71/2 
Basic-Speicher ohne Boden (C 64) 185/11 
Basic und HiRes-Grafik (C 64) 160/12 
Commodore-Ecke 117/10 
Eingabezeile beim Spectrum speichern 110/3 
Für Atari-Fans 94/6 
Gedächtnislücke beim ZX 81 36/4 
gtext 64 an RX 80 angepaßt 103/1 
Joystickprobleme beim VC 20 71/2 
LPRINT III — Fehlerloses Drucken auch ohne EPROM 189/12 
Probleme mit den langen Zeilen (C 64) 185/11 
Probleme mit 800XL 159/12 
Sprite-Kollision (C 64) 160/12 
Stereo aus dem Commodore 64 110/3 
Tip für Oric I 103/1 
Unvollständige Adresse beim ZX 81 71/2 
VC 20 und Videokamera am Monitor 103/1 





Am besten 
gleich mitbestellen: 


Die Happy Computer-Sammelbox 





Für alle Leser, die »Happy Com- 
puter« regelmäßig kaufen, sam- 
meln oder im Abonnement bezie- 
hen, gibt es ein interessantes Ser- 
vice-Angebot: die Happy Compu- 


ter-Sammelbox! 


Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf- 
fen sich gleichzeitig ein interes- 
santes und attraktives Nachschla- 


gewerk. 


Übrigens: Die Sammelbox ist 


nicht nur ein praktisches 
Aufbewahrungsmittel: Sie 
eignet sich auch her- 
vorragend als Ge- 
schenk für Freun- 

de und Bekannte 

zu vielen 

Anlässen. 








Auch die bisher 
erschienenen Sonderhefte 


VOLLE, 
jetzt direkt bestellen: 





SONDERHEFT 01/84: SINCLAIR 
Unentbehrliche Informationen zu den Sinclair 
Computern ZX81 und Spectrum. 


SONDERHEFT 01/85: SPECTRUM 
reg Listings und Tips & Tricks 
für alle Spectrum-Fans. 


SONDERHEFT 02/85: SCHNEIDER 1 
Eine Fülle wertvoller Beiträge und Listings 
für alle Schneider-Anwender. 


SONDERHEFT 03/85: SPIELE 
Ein Super-Nachschlagewerk für alle Spiele-Fans mit 
100 Spielen im Test und großer Marktübersicht. 


SONDERHEFT 01/86: SCHNEIDER 2 
Noch mehr Tips und Tricks für Einsteiger und Fort- 
geschrittene mit vielen interessanten Programm-Listings. 


SONDERHEFT 02/86: ATARI 1 
Besonders 800 XL- und 130 XE-Fans erwarten jede Menge 
Anwendungs- und Spiele-Listings sowie Informationen. 


Tragen Sie die Nummer des gewünschten 
Sonderheftes (z.B. 03/85) auf dem Bestellab- 
schnitt der hier eingehefteten Bestell-Zahlkar- 


te ein. 








































































SYMBOL 114,8,2,52,56,56,126,60,68 [97B8] 55,255 [DA14] 























SYMBOL 115,255,142,255,255,255,255, SYMBOL 179,255,255,255,255,255,255, 
255,255 [826A] 255,255 [818A] 
SYMBOL 116,255,143,255,255,255,254, SYMBOL 180,1728,248,255,255,255,255, 
252,248 [1D6C] 255,255 [DC7EI 
SYMBOL 117,32,22,14,63,158,222,255, SYMBOL 181,189,189,255,255,255,255, 

255 LFOC2]1 255,255 LF498] 
SYMBOL 118,127,62,31,15,7,3,1 [5236] SYMBOL 182,128,238,255,255,255,255, 
SYMBOL 119,8,8,0,255,127,63,31, 15 LA&B6] 255,255 [8872] 
SYMBOL 120,0,0,224,255,127,31,7, LE3AA] SYMBOL 183,0,0,0,112,120,255,255,25 
SYMBOL 121,0,13,29,221.,255, 253. 355, 5 L17CC] 
255 LSFC2] SYMBOL 184,8,0,0,0,0,255, 254,252 CBD3A] 
SYMBOL 122,172,255,255,255,255,255, SYMBOL 185,8,0,8,3,15,15,7,3 LF8B®] 
255,255 [4B68] SYMBOL 186,16,24,48,16,215,215,215, 
SYMBOL 123,253,255,255,255,255,255, [D2C2) 
255,255 [336C1] 187,8,0,1,8,1,0,128,128 [5E76] 
SYMBOL 124,25,31,255,255,255,255,25 188,128,128,128,128,192,128, 
5,255 LF19AI EDC7CI 
SYMBOL 125,280,241,253,255,255,255, 189,0,8,0,7,3,31,255,127 [2EF6] 
255,255 [3356] 3 1990,64,66,66,82,90,255,255,2 
SYMBOL 126,8,128,192,192,255,254,25 [2692] 
2,248 L149E] 2 191,08,0,8,128,192,244,255,25 
127,8,0,8,1,28,8,14,46 [7B24] 4 [CSF4] 
128,16,208,240,193,193,193,1 192,0,08,08,4,5,7,31,255 [3316] 

[3418] 193,8 ‚222, 0,1&0,252,255 LAB32] 
129,0,08,0,0,128,48,56,16 L8SFAI 2.0,0.», 2, LC2OC®] 
1308,0,08,8,192,254,127,31,7 LASB2] : 0,0,16,16,144,218 [8E46] 
131,12,8,95,223,223,255,255, E 8,0,16,16,16,48 [4D88] 

LSAD4] 197,0,0 0,3,231,127,63,31 L[874A] 
132,194,242,250,255,255,255, 198,1,8,51,119,119,255,255,2 

LF658] LES70] 
133,192,64,108,255,255,255,2 199,215,215,215,255,255,255, 

; [21F8] z L257A] 
SYMBOL 134,0,0,32,48,176,255,254,25 SYMBOL 208,16,22,23,215, 255,255, 255 
2 [4BE4] ‚255 [A922] 
SYMBOL 135,98,0,0,0,192,224,194,194 LDS5S@A] SYMBOL 201,8,0,64,118,255,255,255,2 
136,0,8,08,0,5,237,127,31 L9SCCI 55 [6ESE] 
137,32,48,36,181,253,255,255 SYMBOL 2902,08,08,08,8,96,112,255,254 ECD9CI 

[3636] SYMBOL 283,0,6,15,15,6,14,6,62 [4282] 
138,0,0,0,0,232,236,255,254 L1E@8] SYMBOL 2984,64,44,30,28,255,255,255, 
139,0,08,08,0,32,40,124,255 [2132] CBSCE] 
140,56,68,82,165,139,161,74, 3 205,126,127,255,255,255,255, 

[BS7CI 5 LEF6A] 
141,8,0,0,12,30,62,126,254 LAB94] 206,90,250,251,255,255,255,25 
142,0,0,08,0,8,32,112,248 [86B8] . [DABE] 
143,7,15,15,15,63,127,255,25 207,1,26,188,156,255,255,255 

[24EE] [3946] 
144 ,252,252,252,252,252,248, 208,16,16,16,24,56, 6: ‚68, 68 [663A] 

[S3ESCI 209,8,0,0,0,255,30, [440A] 
145,112,112,112 [6B6E] 210,124,110,78,223, "Zis, 63,25 
146,0,8,0,0,08,8,222,127 [5A62] L99BE) 
147,8,08,8,08,2,246,127,63 L7AD8] 211,0,08,08,08,255,248,192,128 LCDDiC] 
148,0,32,32,96,248,258,255,2 212,1,2,3,347,6412;8 [@74E] 

[3766] 213,127,231,195,129 [8526] 
149,0,8,08,0,32,32,32,96 L2E7A]J 214,128,192,192,192,224,96,4 
150,0,08,0,0,254,127,63,31 L9IES4I [BB46] 
151,0,3,35,183,119,255,255,2 LA39CI 

[28580] REM DATAS LANDKARTE L832C] 
152,32,160,249,255,255,255,2 DATA 228,376,234,355,232,350,226,34 

LASF4] 8,224,346,216,342,218,332,220,328 L1FB6] 
153,0,192,240,244 , 246, 255,25 3 DATA 224,316,228,318,220,300,224,28 

[9382] 0,228,250,224,242,222,236,226,226 LF984] 
154,0,08,3,1,1,7,3,3 LE4D2] : DATA 230,216,232,204,234,200,248,18 
155,0,4,12,142,255,255,255,2 4,245,180,252,176,260,172,272,174 L169A] 

[&D4E] 3 DATA 290,180,314,186,330,184,336,17 
156,123,127,255,255,255,255, 8,338,172,336,158,355,168,376,174 LACDA] 

‚255 [4766] 3 DATA 390,182,412,178,430,176,440,17 
SYMBOL 157,3,199,255,255,255,255,25 0,446,164,450,162,460,164,480,178 L@OBD2] 
5,255 [B6AB6]J 3 DATA 500,176,518,178,524,180,536,17 
SYMBOL 158,128,224,244,246,255,255, 4,545,176,555,178,578,170,595,174 LE4FE] 
255,255 [D978] DATA 612,170,624,176,1,1 [CEAB] 
SYMBOL 159,7,15,15,230,255,255,255, 3 REM DATAS KUESTE [82AB] 
255 LA8D2] DATA 220,235,235,23@,250,235,268,24 
SYMBOL 160,31,63,127,127,255,255,25 5,274,238,285,227,3108,232,315,237 LEFA4] 
5,255 [DS96] 3 DATA 325,242,337,230,340,235,349,25 
SYMBOL 161,236,238,238,238,255,255, 4,370,254,375,248,400,242,430,225 LO8AB] 
255,255 LF67C] DATA 450,237,462,227,470,232,478,24 
SYMBOL 162,1,1,253,124,255,255,255, 0,490,235,500,230,510,237,540,240 [74B0] 
255 L7ABB®] DATA 550,236,5780,238,593,237,618,23 
SYMBOL 163,192,224,224,196,255,254, 2,620,248,624,234,1,1 [D8FC]I 
252,248 LAE62] : DATA 319,28,319,12,319,30,284,20,35 
SYMBOL 164,0,1,0,0,0,6,4,7 [8CD&]J 8,20,284,20,239,40,1,1 LC64C) 
SYMBOL 165,32,32,224,192,192,192,19 DATA 2,77,13,95,13 [9668] 
2,208 L4A7E] ; DATA 3,77,13,95,7,186,13 [37B8] 
SYMBOL 166,2,8,8,8,127,65,31,15 [46D4] DATA 3,77,13,95,13,112,13 L9BEA]I 
SYMBOL 167,0,0,25,59,27,255,255,255 DATA 4,77,13,95,13,112,7,123,13 [8F38] 

[D4A21 DATA 4,77,13,95,13,112,13,129,13 LI6AB] 

SYMBOL 168,56,253,253,253,253,255,2 3® DATA 2,70,60,134,7 [98SE] 
55,255 [A618] DATA 2,70,68,134,13 LA99AI 
SYMBOL 169,0,8,128,192,223,255,255, DATA 3,790,68,134,13,151,13 [8D44] 
255 [29CAI DATA 4,70,60,134,13,151,13,168,13 L73FE] 
SYMBOL 170,0,0,48,56,48, 255, 254,252 CLS #1:CLS #4:RESTORE 3938 [B®42] 
LOD9EI FLOT 288,245,3 [4716] 
SYMBOL 171,80,0,8,4,12,8,8,8 [585A] READ a,b [C838]) 
SYMBOL 172,0,08,08,08,2,246,127,63 [C4D®] IF a=1 THEN GOTO 4138 L79E6] 
SYMBOL 173,8,8,8,58,123,251,255,255 DRAW a,b,3 [5D84] 
[46A8] 28 GOTO 4098 LA31A] 

SYMBOL 174,0,0,0,0,4,118,255,254 [9340] 3B PAPER 2:PEN ®:LOCATE 23,9:PRINT "g" 
175,8,0,8,08,90,16,52,255 [6ö46E] [A61A] 
176,0,8,08,240,255,127,63,31 LES1®] FOR w=1 TO 588: NEXT [688C) 

177,0,3,119,247,255,255,255, PRINT CHR$ (22) :LOCATE 23,9:PEN 3:PR 

CCCD81 INT "h" [C558] 
178,15,191,191,191,255,255,2 SOUND 1,8,8,6,8,8,5:FOR wt=1 TO 398 

MANPPYM: 
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:NEXT:PRINT CHR$ (22) CHR$ (®) :LOCATE 
23,9:PEN B:PRINT "g" 


4170 PAPER 2:PEN B:LOCATE 14,18:PRINT "T 
REFFER MITTSCHIFFS-SINKEN" 

4188 FOR i=7 TO 1 STEP -8.3:SOUND 1,8,18 

i ‚1,08,8,18:NEXT:GOTO 4338 

4190 PAPER 2: PEN B:LOCATE 14,18:PRINT "K 
EIN BETRIEBSSTOFF MEHR ia 

42008 FOR wt=1 TO 15:SOUND 1,478,580,6,8,1 
:NEXT 

4218 LOCATE 14,18:PRINT "BESATZUNG IN DI 
E BOOTE ! " 

4228 FOR wt=1 TO 15:S0OUND 1,478,580,6,8,1 
:NEXT 

4230 FOR wt=1 TO 38:SOUND 1,8,5,8:NEXT 

4248 MODE ®:PAPER 2:CLS 

42580 WINDOW #1,1,208,20,25:PAPER #1,1:CLS 
#1 

4268 PEN B:LOCATE 8,19:PRINT "w"+CHR$ (28 
4) +CHR$ (285) +CHR$ (286) +CHR$ (207) :LO 
CATE 18,18:PRINT CHR$ (203) 

4270 FOR wt=1 TO 5BB:NEXT 

4280 LOCATE 18,18:PRINT CHR$(148):FOR i= 
7 TO ı STEP -8.5:SOUND 2,8,180,1,0,8 
„15:NEXT:LOCATE 18,18:PRINT " " 

4298 FOR s=8B TO 12 

4300 LOCATE s-1,19:PRINT " "+CHR$ (140) :F 
OR i=7 TO 1 STEP -8.5:SOUND 2,8,18, 
i,0,8, 15: NEXT: c=INT (RND#3@+10) : FOR 
wt=i To c:NEXT=:NEXT=:LOCATE 12,19:PR 
INT" " 

4318 FOR wt=1 TO SBQ:NEXT 

4328 GOSUB 2488:G60T0 4568 

4338 FOR w=B TO 399 STEPS 

4348 BORDER 1,24 

4350 SOUND 1,478,50,6,8,1 

4360 FOR wa=w TO w+5 

4378 MOVE B®,wa:DRAW 639, wa,1 

4388 NEXT 

4390 SOUND 4,8, INT(RND*5B) ,4,02,0,INT(RND 
+20) 

4408 NEXT 

4410 GOSUB 2688:G0T0 4568 

4420 CLS #1:CLS #4 

4438 PEN B:PAPER 2 

44408 LOCATE 23,9:PRINT f$(1):LOCATE 23,1 
B:PRINT #f$(2):LOCATE 23,11:PRINT f$ 
(3) 

4450 LOCATE 14,18:PRINT "UEBERNEHMEN BET 
RIEBSSTOFF" 

4468 FOR wt=1 TO 1B8@8:NEXT:FOR wt=1 TO 3 
89:SOUND 1,956,5,4:2NEXT 

4478 LOCATE 2,11:FRINT STRING$(18," ")=L 
OCATE 2,14:PRINT STRING$(18," ") 

4480 tor=12: fue=463:bul=174 

4490 PAPER B:LOCATE 19,24:PRINT "{2 SPAC 
E}":PAPER 2:LOCATE 21,24:PRINT STRI 
NG$(9," ") 

4508 FOR i=1i TO 3:S0OUND 1,127,28,5: SOUND 

1,8,15,5:NEXT 

4518 FOR wt=1 TO 1588:NEXT 

4520 cou$="SOUTH":scou=2:PAPER 3S:PEN 2:L0 
CATE 2,22:PRINT cou$ 

4538 LOCATE 14,18:PAPER 2:PRINT STRING$ ( 
25,"") 

4548 ypo=4:G0T0 468 

4550 GOSUB 2358 

4568 BORDER 1:MODE 1:PAPER B:PEN 2:LOCAT 
E 1,5:PRINT "KOMMANDANT !" 

4578 FOR WT=1 TO 64:50UND 3,8,10,@:NEXT 

4580 FOR i=1 TO #4:FOR s=1 TO 48 

4598 PRINT MID$(des$#$(i),s,1);:IF MID$(de 
s$(i),s,1i)<>CHR$(32) THEN SOUND 1,8 
,2,7,0,8,1 

46008 FOR wt=1 TO 6@:NEXT:NEXT:NEXT 

4610 IF z=@ THEN INK 1,9:60T0 50080 

4628 LOCATE 1,24:PRINT "<ENTER> DRUECKEN 
"IF INKEY(18)<>-1 THEN 4988 

4638 GOTO 4628 

4648 FOR i=1 TO 16 

4650 z$=MID$(u$ (u) ,i,i) 

46568 IF z$<>CHR$(32) THEN LOCATE i+16,18 
:PRINT "{3 SPACE}"3CHR$(148):FOR a= 
7 TO 1 STEP -8.2:50UND 2,0,10,4,8,8 
»2@: NEXT 

4678 NEXT 

4688 LOCATE 25,18:PRINT "{& SPACE}Y" 

4698 LOCATE 23,11:PRINT "{2 SPACE} "3; CHR$ 
(143) 3 CHR$ (144); "6 SPACE}":LOCATE 
26,1@8:PRINT CHR$ (142) 

4700 FOR wt=1 TO 288:SOUND 2,8,2,3,8,8,5 
sNEXT 

4718 LOCATE 26,18:PRINT " ":LOCATE 25,11 
:PRINT CHR$(141);" ":FOR wt=1 TO 18 
0:50UND 2,0,2,2,8,8,1@8:NEXT:LOCATE 
25,11s3PRINT " " 

4728 FOR wt=1 TO 19888:NEXT 

4738 IF sss=1 THEN f1=8 ELSE IF sss=2 TH 
EN f2=8 ELSE IF sss=3 THEN f3=8 ELS 
E IF sss=4 THEN f4=8 

4748 schi=schi+1:IF schi=4 THEN schi=8:6 
OTO 4768 

4758 GOTO 468 

MAPP. Er 
COMPUTE Var 


[A286] 
[3182] 
12898] 
C8B84] 
CA7ZE]I 
[5A74] 


CBF32] 
L396A] 
C31FE] 


C91ACI 


[8C972] 
[5D7C] 


[5D42] 
[7748] 


C[CD@4] 
[3672] 
cC1F72] 
[461C] 
[8A18]I 
[5082] 
[A374] 
[6808] 
[345C] 


[7CE8] 
CES4E] 
CB866) 
[S9A6]I 
[8444] 


C[SDE6] 
[A414] 
CBFS32] 
CDF48] 
[251E] 
[F@72] 


[F984] 
L3AD8] 


[87E8] 


[19D8] 
CBDC6] 
TE2B®] 


[5832] 
L2FFA] 
[36A2] 


[8972] 
LEOFC] 
[3EC®] 


[BEA4] 
[6124] 
[582C] 
CAED4] 


[292E] 
LEF6B] 
[9652] 
CBA14] 


CD490] 


[4788] 
[44D4)] 


[CSB2] 


£1657C] 
[9406] 


4768 SYMBOL AFTER 255:PAPER 1:PEN 2:BORD 


ER 3:CLS 
4778 LOCATE 2,2:PRINT "KOMMANDANT: " 


4788 LOCATE 1,4:PRINT " Es ist Ihnen gel 
ungen „einen kompletten{2 SPACE}Verb 


and des Gegners zu zerstoeren." 


4798 PRINT " Die Admiralitaet hat Ihre B 
efoerderung{2 SPACE}beschlossen.Her 


zlichen Glueckwunsch." 


4808 PRINT:PRINT " Es haben sich jedoch 
neue Schiffe zur{f3 SPACE}Kuestenver 
teidigung gesammelt.Sie er-{3 SPACE 
’halten den Befehl,sich in Ihr alte 
s{5 SPACE}Einsatzgebiet zu begeben 
und diesen{iS SPACE}Verband anzugrei 


fen. -ENDE-" 


4818 FEN 3:LOCATE 2,28:PRINT "< TASTE DR 


UECKEN >" 

4820 RESTORE 3978 

4830 READ a,b 

4840 IF a=1 THEN 4888 
4858 SOUND 1,a,b,6 

4860 SOUND 1,0,20,1 

4870 GOTO 4830 

4888 WHILE INKEY$="":WEND 


4890 lev=lev+ti1:tur=2:tub=2: fue=4653: dam=® 
stor=11:bul=174:xpo=I8: ypo=2: cou=2: 
spe=1:bil=1:fuz=®@: fra=1:frt=B: frz=1 
288: IF lev=8 THEN GOSUB 2570:G0T0 5 


158 ELSE GOTO 148 


4988 BORDER 3:MODE 1:PAPER 8: INK 8,2: INK 


1,8:CLS:IF lev>8 THEN lev=8 


4918 ON lev+1 GOSUB 59350,5040,5050,50640, 


5970,5880,5890,51@00,511® 


4928 WINDOW #1,15,26,7,21:PAPER #1,1:CL5 


#1 


4938 PEN 3:LOCATE 14,3:PRINT "IHR DIENST 


GRAD" 


4948 INK 2,24: INK 3,13:L0OCATE x „23:PRINT 


rank$ 


4958 MOVE 8,B:DRAW 8,399,2:DRAW 639,399: 


DRAW 639, @:DRAW 8,08 


4968 PEN 2:PAPER 1: LOCÄTE 20.5,sy:PRINT 
CHR$ (288) :LOCATE 19.5 ‚sy+l: PRINT CH 
R$ (289) +CHR$ (218) +CHR$ (211) :LOCATE 
19.5,sy+2:PRINT CHR$ (212) +CHR$ (213) 


+CHR$ (214) 


4978 READ a:FOR z=1 TO a:READ b,c:FOR zv 


=b TO b+c 


49808 MOVE 224,zv:DRAW 414,zv,2:NEXT=NEXT 
4998 PAPER @:LOCATE 4,24:PRINT STRING$ (3 


3," m) 


S5a08 PRINT CHR$ (22) :PEN 1:LOCATE 4,25:PR 
INT "FUER NEUES SPIEL <SHIFT> DRUEC 


KEN" 
5818 IF INKEY(2Z1)<>-1 THEN RUN 
5828 GOTO 5010 


58350 rank$="OBERLEUTNANT":sy=15:x=15:RES 


TORE 3988: RETURN 


5048 rank$="KAPITAENLEUTNANT":sy=14:x=13 


:RESTORE 3998: RETURN 


5058 rank$="KDRVETTENKAPITAEN":sy=13:x=1 


3:RESTORE 4888: RETURN 


5848 rank$="FREGATTENKAPITAEN":sy=13:x=1 


3:RESTORE 48198: RETURN 


58078 rank$="KAPITAEN ZUR SEE":sy=12:x=13 


:RESTORE 4828:RETURN „ 


5088 rank$="FLOTTILLENADMIRAL":sy=13:x=1 


3:RESTORE 4838: RETURN 


5078 rank$="KONTERADMIRAL":sy=12:x=15:RE 


STORE 4848: RETURN 


5188 rank$="VIZEADMIRAL":sy=11:x=15:REST 


ORE 4858: RETURN 


5118 rank$="ADMIRAL":sy=18:x=17:RESTORE 


4860: RETURN 


5128 FAPER 2:PEN B:LOCATE 14,18:PRINT 


UFGEBEN <J/N> ?" 


5138 IF INKEY(45)<>-1 THEN GOSUB 2540:60 


TO 4568 


5148 IF INKEY(46)<>-1 THEN LOCATE 14,18: 


PRINT STRING$ (20," 
5158 GOTO 5138 


") RETURN 


515® MODE @:PAPER 2:WINDOW #1,1,20,22,25 


:PAPER #1,1:CLS:CLS #1 


5170 n$="{2 SPACE}*** GRATULATION.SIE KO 
NNTEN ALLE IHNEN GESTELLTEN AUFGABE 
N ERFUELLEN UND SIND IN DER RANGLIS 
TE BIS ZUM ADMIRAL AUFGESTIEGEN ##*#* 
{22 SPACE}SIE SOLLTEN SICH JETZT EI 
NMAL AN EINEM TAKTIKSPIEL VERSUCHEN 


11719 SPACEI" 
5188 FEN B:LOCATE 9,21:PRINT "w 


ae 11,28:PRINT CHR$ (2083) 
5198 


5208 LOCATE 2,4:PRINT MID$(n$,i,18):FOR 
wt=1 TO 198: NEXT:i=i+i: IF i=LEN (n$) 


THEN 4988 ELSE 5288 
5218 END 


Listing 2. Schnellbootkommandant (Schluß) 











"+CHR$ (28 
4) +CHR$ (205) +CHR$ (296) +CHR$ (207): LO 


CDFDCI 
[1C52] 


EF®D6] 


C4FB2] 


[3CB2] 
[CA98] 
[240A] 
[7C34] 
[1862] 
[5890] 
[4126] 
LIAS6] 
CF134] 


[4996] 
[9968] 
[3918] 
[57CC] 
[DBIiE) 
[8818] 
[53A2] 


E38FC) 
[7E1B] 
[2C1A] 
[82FC] 
[1364] 
[S350A] 
[&BAC]I 
t25AC]I 
CBSF4] 
[8D80] 
[8940] 
[763E] 
[785C) 
L43GE] 
[49D4] 
[8ESE)] 
TAbA&] 
CD2CC)I 


[3B58] 
[CA1A] 


[7C58] 


[D16E] 


[217E] 
[878C] 


[4F58] 
[FC7E)I 
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Eröffnunge 
Die grundlegenden Schachregeln 
kennen viele. Aber die Kunst der 
richtigen Eröffnung will gelernt sein. 


Lassen Sie sich von Ihrem CPC 
unterrichten. 











as integrierte Schachspiel wird durch eine einfache 

Block-Grafik dargestellt und beherrscht die üblichen 

Schachregeln, wie kleine und große Rochade, en- 
passant-Schlagen etc. Eine Einschränkung erfährt lediglich 
die Bauernumwandlung, da sich hier grundsätzlich der Bauer 
in eine Dame verwandelt. Dies stellt jedoch kaum ein Handi- 
cap dar, da dieser taktische Zug im Eröffnungsstadium sehr 
selten, und eine Umwandlung des Bauern in eine andere 
Figur als die Dame so gut wie nie vorkommt! 

Das Programm belegt mit Variablen etwas über 20 KByte 
Speicherplatz. Wenn man pro eingegebener Variante einen 
Durchschnitt von 20 ganzen Zügen annimmt, erlaubt ein 
Durchgang gleichzeitig rund 150 Varianten. Zweckmäßiger- 
weise legt man sich mehrere Variantenblöcke zu, die man 
nach Eröffnungen einteilt und getrennt auf Band oder Dis- 
kette abspeichert. 

Nach dem Programmstart erscheint das Menü. Sind noch 
keine Varianten abgespeichert oder will man neue Varianten 
eingeben, so wählt man Menüpunkt 1. Die Varianteneingabe 
stellt den kritischen Teil des Programms dar, weil hier einige 
Regeln streng zu beachten sind. Die Eingabe läßt sich am 
besten an einem Beispiel erklären. Angenommen, Sie wollen 
folgende Variante der spanischen Eröffnung eintippen: 





1. e2-e4 e7-e5 5.0-0 Lf8 - e7 
2. Sgi - f3 Sb8 - c6 6. Tfl-el b7-b5 
3. Lfl - b5 a7 -a6 7. La4 - b3 0-0 

4. Lb5 - a4 Sg8 - f6 


Die Abfrage der Züge soll mit dem vierten Zug von Schwarz 
beginnen. Dann wird die Variante wie folgt (beliebig in Klein- 
oder Großbuchstaben) eingegeben: 


»e2ed4« eingeben und große ENTER-Taste drücken. 
»e7ed« »ENTER« 
»g1f3« »ENTER« 
»b8c6« »ENTER« 

















»f1b5« »ENTER« 

»a7a6« »ENTER« 

DXXXX« »ENTER« 

»b5a4« »ENTER« 

»g8f6« »ENTER« 
(von hier ab beginnt der Computer später mit 
der Abfrage der Züge). 

»eigi« »ENTER« (Rochade) 


Das Drücken der »Z«-Taste beendet den Vorgang. Beson- 
ders zu beachten sind folgende Punkte: 

1. Die Eingabe von »xxxx« muß in jeder Variante einmal (und 
nur einmal) irgendwo zwischen dem ersten und letzten ein- 
gegebenen Halbzug vorgenommen werden. »xxxx« darf also 
nicht an der ersten oder letzten Stelle stehen. 

2. Eine Variante darf nicht mehr als 31 ganze Züge (also 62 
Halbzüge) beinhalten (Eröffnungsvarianten sind in aller Regel 
nicht länger als 25 Züge). 

3. Besonders wichtig: Bei der Eingabe von Zügen führt der 
Computer keine Plausibilitätskontrolle durch. Das bedeutet, 
daß auch sinnlose Züge (etwa ein Königssprung über zehn 
Felder) vom Programm kritiklos angenommen werden. Der 
Anwender muß also selbst darauf achten, daß seine Züge 
auch richtig sind. 

Ist während der Eingabe ein Fehler unterlaufen, so bricht 
man das Programm durch zweimaliges Drücken der ESC- 
Taste ab. Drückt man dann die kleine ENTER-Taste auf dem 
Zahlenblock, gelangt man auf diese Weise wieder ins Menü 
und wählt die 1. Jetzt kann man die Variante neu eingeben. 

Menüpunkt 2 führt in den Abfragemodus. Der Computer 
gibt zuerst die Stellung vor, die bei der Eingabe mit »xxxx« 
markiert wurde (genauer: die Stellung bis zum ersten Halb- 
zug nach »xxxx« - die Abfrage beginnt immer mit dem zweiten 
Halbzug nach »xxxx«). 

Sind alle Varianten durchlaufen, schließt sich die Frage 
nach einer Wiederholung an. Auf diese Weise kann man den 
Variantenkomplex so lange durchpauken, bis alles »sitzt«. 
Dann bietet der Computer auf die Anforderung einer Wieder- 
holung keine Variante mehr an, weil alle richtig beantwortet 
sind, sondern wiederholt seine Frage. Man verneint jetzt und 
gelangt ins Menü zurück. 

(P. Meyerbeck/ja) 
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REM *##* Deklarationen KHK H%%% 


KEY 139,"n=i-1:goto 1248" +CHR$ (13) 
DEFINT a-z:DIM var$L[L188]1,r[L1@@],ric 
htigL1881:n=B 

MODE 1:INK @,1:INK 1,24:INK 2,18: IN 
K 3,14:BORDER 3 


SYMBOL 
255 
SYMBOL 
6 


240,219,219,60,60,60,68,126, 
241,8,24,124,124,88,24,68,12 


SYMBOL 
SYMBOL 


242,0,8,0,24,68,60,24,60 
243,24,125,255,60,24,24,24,1 


244,24,126,24,60,60,24,24,12 


26 
SYMBOL 
{2} 


SYMBOL 245,24,60,126,68,24,24,24,12 
6 


REM *#* AUSWAHLLISTE ##%* 


[) 
MODE 1:PAPER 2:PEN B:CLS 
LOCATE 6,5:PRINT CHR$ (158) ;STRING#$ ( 
29 „CHR$ (154) ) 3; CHR$ (156) 

LOCATE &,6:PRINT CHR$(149);"{3 SPAC 
EPrAUSWAHL L IST 0E{tS SPACEI" 
;CHR$ (149) 

LOCATE 6&,7:PRINT CHR$ (147) ; STRING$ ( 
29 „CHR$ (154) ) 3; CHR$ (153) 
LOCATE 6,18: PRINT"L11{3 
nten eingeben." 

LOCATE 5,12:PRINT"L23{3 
nten abfragen." 

LOCATE 6&,14:PRINT"L3J{3 
nten abspeichern." 
LOCATE 6,16: PRINT"L41{3 
nten einlesen." 

LOCATE 6,18: PRINT"LEI{3 


SPACE}Varia 
SPACE}Varia 
SPACE}Varia 
SPACE}Varia 
SPACE}Ende. 


LOCATE 6,21:PRINT CHR$(24)+" Wahl d 
urch Tastendruck ! "+CHR$(24) 
ws=INKEY$: IF w$="" THEN 1388 

ON VAL (w$) GOSUB 1470,18790,2580,264 
[J 

IF UPPER$ (w$)="E" 
GOTO 1288 

8 


THEN CLS:END 


WINDOW#B,1,19,5,21: PAPER#B,B:PEN#B, 
1:CL5#@ 
WINDOW#1,20,48,1,211 PAPER#1,3:CL5S#1 


WINDOW#2,1,19,1,4:PAPER#2,8:PEN#2,1 
:CLS#2 
WINDOW#3,1,19, 22,25: PAPER#3 „3: PEN#3 
„B:CL5#3 

WINDOW#4 ,28,40,22,25:PAPER#4 „2:PEN# 
4,1:CL5#4:G05SUB 2828 
LOCATE#2,1,2:PRINT#2 ,CHR$ (158) 3 STRI 
NG$ (16,CHR$ (154) ) ; CHR$ (156) 
LOCATE#2,1,3:PRINT#2,CHR$ (149) 5; "VAR 
IANTENE INGÄBE" 5 CHR$ (149) 
LOCATE#2,1,4:PRINT#2,CHR$ (147); 5TRI 
NG$ (16 ,CHR$ (154) ) 3; CHR$ (153) 
ien:zg$="":s1=1:PRINT CHR$(7) 
i=sit+tl:var$Li]J=""zv$="" '#%#%* Schleif 
enanfang Varianten *#%*# 


CLS#3: LOCATE#3,2,2: PRINT#3, "Naechst 


[5A48] 
[C3584) 
C[ADCB]I 
L[FD@8I 
[580012 
[CA24] 
[CD54] 
L445E] 
[AA12] 
[255A] 
[C538]1 
[SC14]1 
[C73C] 
[2ES®] 
[681A] 


[4BD6] 
CBB44] 


[7@B4] 


LAFF@] 
[2BCE]I 


L2D3C] 
L3FD4] 
[BEDB] 
[BE4®] 
L7ZADE] 
[817C] 
[SEE2] 
LCA48] 
[SCDCI 


[5S5BA]I 


E1C16] 
[2CB6] 
[1A10] 
LE2OA] 
CZ2BAE] 
[8854] 
LAISE]I 


[86081 
[EBSB] 


[92E8] 
[71B0] 
[9914] 
[D142] 
[78FC] 
[D7SC] 
[4108] 
CBD4A] 


L9AZEI 
[S5SFB] 


LC14DC) 
LACA4] 
[9858] 
[1B1E] 
[SCAE)I 
£372C) 
[BCAA] 
C[SDF8] 
[CE4E] 


£[397C] 
[D852] 


2960 
2070 


2088 
2098 


2100 


2118 
21280 
2130 
2140 


2150 
2168 


2178 
2188 


2198 
2208 
22180 


2228 
2238 


2248 
2258 


e Variante" 
LOCATE#3,2,3:PRINT#3,"{2 SPACE} >Z< 
druecken !" 

LOCATE#4 ,4,3:PRINT#4, "Variante Nr." 
si 


FOR k=1 TO 2 '*%%* Schleifenanfang Z 
uege ###* 


LOCATE#4 ,4,2:PRINT#4,"{6 SPACE}" 
LOCATE#4 „4,2: INPUT#4 ‚zg$: zg$=UPPER$ 
(zg$) 

IF INSTR(zg$,"Z") THEN 1888 
echste Variante #** 

var$li J=var$li]+zg$:v$=var$li] 

IF zg$="XXXX" THEN s2=si MOD 14:k=k 
-1:G0TD 1768 

s2=s1 MOD 14:IF s2=@ THEN CLS 
LOCATE 2,s2+2:PRINT USING "##";si;5: 
PRINT "." 

IF k=1 THEN LOCATE #,52+2 ELSE LOCA 
TE 13,s2+2 

1i$=LEFT$(zg$,2) zre$=RIGHT$ (zg$,2) 
PRINT 1i$; "-"jre$: zug$=UPPER$ (zg$): 
GOSUB 3758: PRINT CHR$(7) 
zg$="":NEXT kısi=sitil:zks="" 


"#*%+ Na 


60TO 1648 '*** Naechster Zug #*#* 


CLS:si1=1:LOCATE 6,8:PRINT"Weiter ?" 
:LOCATE 7,18: PRINT" (J/N)" 
w$=INKEY$: IF w$="" THEN 1818 

IF UPPER$ (w$)<>"N" THEN CLS:CLS#3:6 
OSUB 3258:G0T0 1588 

n=i : RETURN 


REM *** Zufallszahlen erzeugen *##* 
KHARRR 


CLS:LOCATE 12,11:PRINT"Bitte Warten 
."LOCATE 12,133 PRINT"ICH ARBEITE ! 
" 

FOR i=1 TOn 

r Li J=INT (n#RND (1) +1) 

IF i=1 THEN 1948 

FOR k=1 TO i-1 

IF rlil=r[k] THEN 1898 

NEXT k 

NEXT i 


3 
FOR i=1 TO nerichtigL[Lr (i) IJ=B: NEXT i 


G0SUB 2728:CLS:wert=@:punkte=® 
B 


LOCATE#2,1,2:PRINT#2,CHR$ (158) ;STRI 
NG$ (17 ,CHR$ (154) ) 3; CHR$ (156) 
LOCATE#2,1,3:PRINT#2,CHR$ (149) 5 "ABF 
RAGE VARIANTEN" ; CHR$ (149) 
LOCATE#2,1,4:PRINT#2,CHR$ (147); STRI 
NG$ (17 ,CHR$ (154) ) 5 CHR$ (153) 


ELS: FOR i=1 TO n ’*#** Schleifenanfa 
ng Varianten ##* 


IF richtig[r (i)] THEN 2438 '*** Kei 
n Fehler - Naechste Variante ##** 
richtig[Lr (i) J]=-1:var$L[r (i) J=UPPER$ ( 
var$[r (i) D:p=INSTR (var$[r (i) I,"XXX 
x”) 

IF p MOD 8 = 5 OR p=8 THEN abf=B EL 
SE abf=1 


links$=LEFT$(var$(r (i)),p-1) 
rechts$#=RIGHT$ (var$[r (i)],LEN(var$L 
r(i)ND-(p+3)) 

links$=l1inks$+LEFT$ (rechts$,4) 
rechts$#=RIGHT$ (rechts$#,LEN (rechts$) 
-A4) :zug=d:hz=-1 

IF NOT folge THEN 2198 
v$=links$+trechts$: IF LEFT$(v$,LEN(f 
olge$))<>folge$ THEN 2458 

GOSUB 5318 


FOR j=1 TO LENtrechts$) STEP 4 '##%* 
Schleifenanfang Zuege #*#* 


hz$=MID$ (rechts$#, j,4):1i$=LEFT$(hz$ 
‚2) sre$=RIGHT$ (hz$,2) 
hz=hz+1:IF hz MOD 2 = 
ug=zug+i ELSE pi1=13 

s2=zug MOD 12:IF s2=B THEN CLS 


8 THEN pi=6:z 


Listing. Schach - nicht nur für Anfänger 























L185A] 
[5S10C) 


[6E62] 
[Ds48] 


ESAFE] 
[CB4CI 
[A910] 


[SE1E] 


£711C] 
[3138] 


[BEB6] 
LAA8B]I 


LAFS8] 


[28E2] 
L7FDA]I 


[248A] 
LABAEI 
[BES2] 
[QE14) 
[CC56] 


L452C) 
[F848] 


[9916] 
CBF34] 
ECF4AE]I 


[90278] 
C[DDS2] 


[22B8] 
[FS48] 
[C7B@] 
[BOSA]I 
[9IBEA]I 
[F782] 
LEB6E] 
[BACH 
C[DC52] 


[D62C) 
[573E] 
CCD58)J 
[642E) 
[1BöA] 


[7BBE)I 
[C23C] 


[591A] 
LF882] 


[9B28] 
[CE44) 


ESDF6]J 
[C848] 


[3724] 


[BDIE)I 


[74AB] 
[DA43E] 
£[12D8] 


[CAS1CI 
CDFOEI 


[6922] 
[BIE4) 


T4CE4] 
LA7AA] 
[C43C]I 


[81A6] 
[C248] 


[@@B2] 


EFF78] 
LA9EB]I 
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LOCATE 2,s2+1:PRINT USING "##"; zug; 
ıPRINT "." 

CLS#3:LOCATE pi+1,s2+1:PRINT CHR$(2 
A)+" 7? "+CHR$ (24): frages="" 

FOR rr=1 TO 4 '*** Zug eingeben #** 


z$[LrrJ=INKEY$: IF z$[rr]="" THEN 229 
8 


frage$=frage$+z$[Lrr1:LOCATE#3,7,3:P 
RINT#3,CHR$ (24)+" ";frage$;"” "+CHR$ 
(24) 

NEXT rr 

wert=wert+1:IF UPPER$(frage$)=hz$ T 
HEN GOSUB 2478 ELSE GOSUB 2488 
LOCATE pi,s2+1:PRINT 1i$;"-"jre$:zu 
g$=li$+re$:60SUB 3718 
LOCATE#5,2,3:PRINT #5,punkte; "von"; 
wert; "Punkten" 

IF punkte<>B THEN proz=INT (punkte/ ( 
wert/1B8)) ELSE proz=B 
LOCATE#5,2,4:PRINT#5,proz;" Prozent 


® 
NEXT j '*** Naechster Zug *#** 

: 
CLS#3:LOCATE#3,2,2:PRINT#3,"Naechst 
e Variante” 

LOCATE#3,6,3:PRINT #3,"Tastendruck 
ı"sCALL &BB18:CLS:G0OSUB 3268 


8 
NEXT i:G0TO 2528 


REM *** ZUEGE BEWERTEN kun 

8 

punkte=punkte+1:PRINT CHR$ (7) :RETUR 
N '#**%* RICHTIGER ZUG EINGEGEBEN ##*#* 


SOUND 1598,588,5@:richtig[Lr (i) J=rich 
tig[r (i) 1#@: RETURN ’##** FALSCHER ZUG 
*r% 


u 
REM *### WIEDERHOLUNG ? wart 


3 

CLS:LOCATE 3,6:PRINT"Wiederholung ? 
"3LOCATE 7,8: PRINT" (J/N)" 
wdhlg$=INKEY$: IF wdhlg$="" THEN 253 
[") 


IF UPPER$ (wdhlg$)="N" THEN 1288 ELS 
E 2038 
8 

REM ##* 
KERKERR 


VARIANTEN ABSPEICHERN #%*%* 


8 

CLS:LOCATE 5,1@:PRINT"Bitte REC und 
PLAY druecken !" 

OPENOUT "'chess":PRINT #9,n 

FOR i=1 TO n:PRINT#9,var$L[Li]:NEXT i 

: CLOSEOUT : RETURN 


8 
REM x** 
*rrr 


VARIANTEN EINLESEN ####%*% 


CLS:LOCATE 5,1@:PRINT"Bitte PLAY-Ta 
ste druecken !" 

OPENIN "!'chess": INPUT#9,n 

FOR i=1 TO n: INPUT#9,var$L[Li]:NEXT i 
: CLOSEIN: RETURN 


REM ##*%# SCHACHBRETT UND FIGUREN ZEI 
CHNEN ##* 


s 

BORDER &:WINDOW#@,1,19,5,17:PAPER#@ 
„B: PEN#B,1:CL5S#® 
WINDOW#1,20,4@,1,21:PAPER#1,3:CLS#1 


WINDOW#2,1,19,1,4:PAPER#2,@: PEN#2,1 
: CLS#2 
WINDOW#3,1,19,22,25: PAPER#3 ‚2: PEN#3 
‚1:CL5#3 

WINDOW#4 ,20,40,22,25:PAPER#4 ,3: PEN# 
4,8:CL5#4 
WINDOW#5,1,19,18,21:PAPER#5,2: PEN#S 
‚B:CLS#5 


3 
LOCATE#4 ,3,23:PRINT#4,"*%* CHESS-TUT 
OR #*" 

LOCATE#4 ,2,24: PRINT#4 ,CHR$ (164); "19 
85 by P.Meyerbeck" 


2 

PEN#1,2:PRINT#1 „CHR$ (22) +CHR$ (1) 
FOR xx=5 TO 17 STEP 4 

FOR yy=5 TO 17 STEP 4:LOCATE#1 ,xx,y 


[B8BA] 
[C366] 
[77E4] 
[56D8] 
C[F1B2] 
[F152] 
[Es1A] 
CAEBA] 
[F&D6] 
LFBBE] 
[57C8] 
[@DAC]I 
L1F58] 
CCF58] 
[LFE68] 
[S4EC]I 
[CA44] 
C9B1A] 
[BC48] 


[389A] 
[BEAC) 


C[DDC2] 


[368E] 
[C352] 
[F872] 
CCB44] 
[8432] 
[9BC4] 


[F318] 
[BFAC)I 


LIAFE)I 
[BDS8] 


[4722] 
CB824] 


CB1780] 
[CF46] 


[AFS6] 
CBD4A] 


TA6sB&ö] 
{[D222] 


L3DCB] 
[D152] 


LADF8] 
[138E] 


[BCEA] 
CBF48] 


[59D2] 
[9I1EE] 
[DEDA] 
[32B4] 
[4114] 


[9808] 
C[DAS6] 


[A350] 


[C54C] 
LES34A] 
[A7S8] 
[76A2] 


y:PRINT#1 ,CHR$ (143) :NEXT yy 
FOR yy=&4 TO 18 STEP 4:LOCATE#1,xx,y 
y:PRINT#1 ,CHR$(131):NEXT yy 
FOR yy=4 TO 16 STEP 4:LOCATE#1,xx,y 
y:PRINT#1 ,CHR$ (148) :NEXT yy,xx 
FOR xx=7 TO 19 STEP 4 
FOR yy=3 TO 15 STEP 4::LOCATE#1,xx, 
yy:PRINT#1,CHR$ (143) :NEXT yy 
FOR yy=2 TO 14 STEP 4:LOCATE#1,xx,y 
y:PRINT#1,CHR$(148):NEXT yy 
FOR yy=4 TO 16 STEP 4:LOCATE#1 ,xx,y 
y:PRINT#1 ,CHR$(131):NEXT yy,xx 
FOR xx=4 TO 16 STEP 4 
FOR yy=5 TO 17 STEP 4:LOCATE#1,xx,y 
y:PRINT#1 ,„CHR$ (138) :NEXT yy 
FOR yy=& TO 18 STEP 4:LOCATE#1,xx,y 
y:PRINT#1 ,CHR$ (138) :NEXT yy 
FOR yy=4 TO 16 STEP 4:LOCATE#1,xx,y 
y:PRINT#1,CHR$(136) :NEXT yy,xx 
FOR xx=64 TO 18 STEP 4 
FOR yy=5 TO 17 STEP 4:LOCATE#1,xx,y 
y:PRINT#1,CHR$(133) :NEXT yy 
FOR yy=6 TO 18 STEP 4: :LOCÄTEM „un »y 

:PRINT#1 „CHR$ (129) :NEXT 

OR yy=4 TO 16 STEP A:LOCÄTEM ‚x „y 
y:PRINT#1 „CHR$ (132) s LOCATE#1 ,xx ,yy: 
PRINT#1 „CHR$ (138) » NEXT yy 
FOR yy=2 TO 14 STEP 4:LOCATE#1,xx,y 
y:PRINT#1 ,CHR$ (136) :NEXT yy 
FOR yy=3 TO 15 STEP 4:LOCATE#1 PER) 
y:PRINT#1 ,CHR$ (138) :NEXT yy,xx 
For xx=8 To 28 STEP 4 
FOR yy=3 TO 15 STEP 4:LOCATE#1 ,xx,y 
y:PRINT#1,CHR$ (133) :NEXT yy 
FOR yy=4 TOD 16 STEP 4:LOCATE#1 ,xx,y 
y:PRINT#1,CHR$(129) NEXT yy 
FOR yy=2 TO 14 STEP 4:LOCATE#1 ,xx,y 
y:PRINT#1 ,CHR$(132) :NEXT yy,xx 


FOR ii=12@ TO 376 STEP 32:0RIGIN 36 

®,ii:DRAW 256,8,8:NEXT ii 

FÜR ii=36@ TO 616 STEP 32:0RIGIN ii 
376:DRAW ®,-256,@:NEXT ii 
PEN#1,@:FOR xx=4 "TO 28 

LOCATE#1 ‚xx „2: PRINT#1 „CHR$ (208) : LOC 
ATE#1,xx ‚182 PRINT#1 ,CHR$ (210) 

NEXT xx 


FOR xx=4 TD 28 

LOCATE#1 ‚xx „2:PRINT#1 „CHR$ (288) :LOC 
ATE#1 ,xx , 18: PRINT#1 „CHR$ (218) :NEXT 
"x 

FOR yy=2 TO 18 

LOCATE#1 ,4,yy:PRINT#1 ,CHR$ (211) :LOC 
ATE#1,28,yy:PRINT#1 „CHR$ (289) : NEXT 


yY 


PEN#1,1:LOCATE#1,2,3: PRINT#1,"8":L0 
CATE#1,2,5:PRINT#1,"7" 
LOCATE#1,2,7:PRINT#1,"6"3LOCATE#1,2 
‚FEPRINTR1,"S" 

LOCATE#1 ,2,11:PRINT#1,"4":LOCATE#1, 
2,13: PRINT#1,"3" 

LOCATE#1 ,2,15:PRINT#1,"2":LOCATE#1, 
2,17:PRINT#1,"1" 

LOCATE#1 ,5,2@8: PRINT #1,"A":LOCATE#1 
‚7,28: PRINT#1,"B" 

LOCATE#1 ,9,2@: PRINT#1,"C":LOCATE#1, 
11,28: PRINT#1,"D" 

LOCATE#1 ,13,28: PRINT#1,"E":LOCATE#1 
‚15,28: PRINT#1,"F" 

LOCATE#1 ,17,28:PRINT#1,"G":LOCATE#1 
‚19,28: PRINT#1,"H" 


REM *** Grundstellung definieren ##* 
KERERERE 


: 

tw$=CHR$ (15) +CHR$ (1) +CHR$ (240) : sw$= 
CHR$ (15) +CHR$ (1) +CHR$ (241) 

bw$=CHR$ (15) +CHR$ (1) +CHR$ (242) : dw$= 
CHR$ (15) +CHR$ (1) +CHR$ (243) 

kw$=CHR$ (15) +CHR$ (1) +CHR$ (244) : 1w$= 
CHR$ (15) +CHR$ (1) +CHR$ (245) 

ts$=CHR$ (15) +CHR$ (B) +CHR$ (248) : ss$= 
CHR$ (15) +CHR$ (B) +CHR$ (241) 

bs$=CHR$ (15) +CHR$ (8) +CHR$ (242) :ds$= 
CHR$ (15) +CHR$ (8) +CHR$ (245) 

ks$=CHR$ (15) +CHR$ (8) +CHR$ (244) : 1s$= 
CHR$ (15) +CHR$ (B) +CHR$ (245) 


8 
a$[Li1]=tw$:b$[L1]J=sw$:c$L1J=1w$:d$[1] 
=dw$ '*#** 1. und 2. Reihe #*#* 
e$s[L1J=kw$: #$[L11]=1w$rg$[l11=sw$:h$l1] 
=tw$ 

a$[2]=bw$:b$[L21]=bw$: c$[L21=bw$:d$[2] 
=bw$ 











[9928] 
[7928] 


[9752] 
[7AB2] 


[AEI4)] 
[7818] 


LACAB] 
[DC9CI 


[S5B26] 
[C51C9 


[LAASA] 
E[CBACI 


[1624] 
[4A34] 


[8A7CI 
[0324] 


[2F42) 
C1B8A] 


[43041 
CB314] 


[F93A] 
[CA4A] 


[4BEE] 


[SBSE] 
E3DCA]I 


CAE9B] 
[4B66] 


[CESE] 
[A626] 


[5D98] 
[9C38]I 


LAFA2] 
CBD48] 
[6318] 
[AAB6] 
[4D2C) 
[8824] 
[B1A2] 
[S6CA]I 
[F732] 


CBC4AC) 
CBE48] 


CDSF®] 
EBCACI 


[1962] 
[F12A] 
[D644] 
[1342] 
[6FBA)I 


[E636] 
CBB48] 


[3888] 
[750C] 
[898A] 












































e$[L2]1=bw$: #$[21=bw$: g$[21=bw$:h$[2] 
zbw$ 
a$[8]J=ts$:b$[81=ss$:c$[L81=1s5$:d$[8] 
=ds#$ '*x*# 7. und 8. Reihe ##*#* 
e$[L8]=ks$: #$[L81=1s$:g$[8]=ss$:h$[8] 
=ts$ 
a$[L7]1=bs$:b$[L7]J=bs$:c$[71=bs$:d$L[7] 
=bs$ 
e$s[L7]=bs$:f$[7]=bs$:g$[71=bs$:h$[7] 
=bs$ 
FOR ii=3 TO 6 

'#+%* 3. bis 6. Reihe leer +#** 
a$liil="":b$Liil="":c$Lii)="":d$lii 
jz"" 
e$Liil="":f$lLii]J=""rg$lLii]=""sh$lii 
Jztn 
NEXT ii 
FOR xx=5 TO 19 STEP 2:FOR yy=7 TO 1 
3 STEP 2 
LOCATE#1,xx,yy:PRINT #1,” "=NEXT yy 
PR.2 
REM *** Figuren aufstellen ######%#%* 
** 


FOR xx=5 TO 17 STEP 4:FOR yy=5 TO 1 
7 STEP 4:LOCATE#1,xx,yy:PRINT#1,12$ 
:NEXT yy,X% 

FOR xx=7 TO 19 STEP 4:FOR yy=3 TO 1 
5 STEP 4:LOCATE#1 ,xx,yy:PRINT#1,12$ 
:NEXT yy,xx 

FOR xx=7 TO 19 STEP 4:FOR yy=5 TO 1 
7 STEP 4:LOCATE#1,xx,yy:PRINT#1,11$ 
:NEXT yy,xx 

FOR xx=5 TO 17 STEP 4:FOR yy=3 TO 1 
5 STEP 4:LOCATE#1 ,xx,yy:PRINT#1,11$ 
:NEXT yy,xx 

LOCATE#1 ,5,3:PRINT#1 ,ts$: LOCATE#1,7 
‚3:PRINT#1 ,ss$ 

LOCATE#1,9,3:PRINT#1 ,1s$:LOCATE#1 ,1 
1,3: PRINT#1 ,ds$ 
LOCATE#1,13,3:PRINT#1 ,ks$:LOCATE#1, 
15,3:PRINT#1,1s# 

LOCATE#1 ,17,3:PRINT#1 ,ss$:LOCATE#1, 
19,3:PRINT#1 ,ts$ 

FOR ii=5 TO 19 STEP 2:LOCATE#1 ,ii,5 
:PRINT#1,bs$:NEXT ii 
LOCATE#1,5,17:PRINT#1 ,tw$:LOCATE#1, 
7,17:PRINT#1,sw$ 
LOCATE#1,9,17:PRINT#1 ,1w$:LOCATE#1, 
11,17:PRINT #1 ,dw$ 
LOCATE#1,13,17:PRINT #1,kw$:LOCATE# 
1,15,17:PRINT#1 ,1w$ 

LOCATE#1 ,17,17:PRINT#1 ,sw$: LOCATE#1 
‚19,17:PRINT#1 ,tw$ 

FOR ii=5 TO 19 STEP 2:LOCATE#1 ,ii,i 
5:PRINT#1 ,bw$:NEXT ii 


PRINT#1 „CHR$ (22) +CHR$ (B) : RETURN 


REM *** ZUEGE AUSFUEHREN ###* 
REM 


IF zug$="" THEN 5238 
PRINT#1 „CHR$ (22) +CHR$ (1) 
»1$=MID$(zug$,1,1):y1$=MID$ (zug$,2, 
1):x2$=MID$ (zug$,3,1) 

y2$=MID$ (zug$,4,1):zvy=VAL (yi$):vz=V 
AL(y2$) 

vr$=x1$:605UB 3940: x 1=w: vr=VAL (y1$) 
:GOSUB 3858: yl=u 

vr$=x2$:GOSUB 3940: x2=w: vr=VAL (y2$) 
:GOSUB 3858: y2=u 

vr=VAL (y2$) :GOSUB 3858: y2=u 


11$=CHR$ (15) +CHR$ (3) +CHR$ (143) :12$= 
CHR$ (15) +CHR$ (2) +CHR$ (145) 
GOSUB 42838: RETURN 


vr=1 THEN u=17:RETURN 
vr=2 THEN u=15:RETURN 
vr=3 THEN u=13:RETURN 
vr=4 THEN u=11:RETURN 
vr=5 THEN u=9:RETURN 
vr=5 THEN u=7:RETURN 
vr=7 THEN u=5:RETURN 
vr=8 THEN u=3: RETURN 


vr$="A" THEN w=5:RETURN 
vr$="B" THEN w=7:RETURN 
vr$="C" THEN w=9: RETURN 
vr$="D" THEN w=11:RETURN 
vr$="E" THEN w=13: RETURN 
vr$="F" THEN w=15:RETURN 


LIEACI 
LIACH]I 
[931A] 
[CD88] 


CDAAA] 
[D848] 


[2358] 
[3408] 


CABE2] 
[893E] 


ECBBDE] 


CBC5Q] 
[0344] 


£E8DE4] 
[C148] 


[253E] 


[FE40] 


[B748] 


[F8O3A] 
[78CC] 
tEAFE] 
[S5@6C] 
[478C] 
[3508] 
[87A8] 
[751A] 
[9288] 
[557A] 


[6874] 
£[CC54] 
[DöF6] 
[BASB]I 
[454C] 
[8882] 
[3150] 
[C44E) 
tEBA2] 
t2BCB)] 


[5128] 
LIEAAI 
[BAD4] 


ESADE]I 
C13A8] 
[CEACI 


[933A] 
CD8SDE] 
C[CDS2] 
LF738@] 
[6A3B]I 
[8538] 
[F430] 
[3AE2] 
LASDB)I 
[8ADB] 
[85D8] 
£CC52] 
[C9BE]I 
[5406] 
LEBCE] 
[F224] 
CB12C]I 
[8434] 


IF vr$="G" THEN w=17:RETURN 
IF vr$="H" THEN w=19: RETURN 


REM *** En-Passent Schlagen x####*%* 
**%* 


ep=INSTR (v$,"B7BSASB6") 

IF zug$="ASB&" AND ep<>@ THEN a$[5] 
="":b$L[5]="":b$L641=bw$:GOTDO 4648 
ep=INSTR (v$,"A7ASBSA&") 

IF zug$="BSA&" AND ep<>B THEN a$[5] 
="":b$L[5]="":a$[l61=bw$:GOTO 4640 
ep=INSTR (v$,"C7CSBSC6") 

IF zug$="B5C64" AND ep<>@ THEN b$L[5] 
="":c$[5]="":c$[61=bw$:GOTO 4648 
ep=INSTR (v$,"B7BSCSB6") 

IF zug$="C5BA4" AND ep<>® THEN b$L[5] 
="":c$[5]1="":b$[L641=bw$:GOTO 4648 
ep=INSTR (v$,"D7DSC5SD6") 

IF zug$="C5D6" AND ep<>@ THEN c$[5] 
="":d$[51="":d$[L61=bw$:GOTDO 4648 
ep=INSTR (v$,"C7CSDSC6A") 

IF zug$="D5C6" AND ep<>B THEN c$[5] 
="":d$[5]1="":c$[64]=bw$:GOTO 4648 
ep=INSTR (v$ ,"E7ZESDSE6") 

IF zug$="D5E6" AND ep“>® THEN d$L[5] 
=""z:e$[5]1="":e$[6]1=bw$:G0OTO 4648 
ep=INSTR (v$,"D7DSESD&") 

IF zug$="E5D6" AND ep<>B THEN d$[5] 
=""ze$[L5]1="":d$[61]=bw$:GOTO 4648 
ep=INSTR (v$,"F7FSESF&") 

IF zug$="ESF6" AND ep<>® THEN e$L[5] 
z""2f$[51="":f$[C6]=bw$:GOTD 4648 
ep=INSTR (v$, "E7ESFSE6") 

IF zug$="FSE6" AND ep<>B THEN e$[5] 
="":4$[51="":e$[61=bw$:GOTO 4648 
ep=INSTR (v$,"G6765F566") 

IF zug$="F5G6" AND ep<>®B THEN #$L[5] 
="":g$[51="":g$[.61=bw$:GOTO 4640 
ep=INSTR (v$,"F7FSGSF6") 

IF zug$="G5SF6" AND ep<>@ THEN #$[5] 
="":g$[5]="":f$[.641]=bw$:GOTN 4648 
ep=INSTR (v$ ,"H7HSGSH&") 

IF zug$="6G5H6" AND ep<>@ THEN g$[5] 
="":h$[L5]="":h$[L61=bw$:G0OTD 4640 
ep=INSTR (v$,"G7GSHS66") 

IF. zug$="H566" AND ep<>B THEN g$I[5] 
="":h$[5]="":g$[6]=bw$:GOTO 4648 
ep=INSTR (v$,"G264H463") 

IF zug$="H463" AND ep<>B THEN h$L[L4] 
="":g$[4]="":g9$[31]1=bs$:60T0O 4648 
ep=INSTR (v$ ,, "H2H4G4H3") 

IF zug$="G4H3” AND ep<>@ THEN h$[4] 
="":g$[4]="":h$[L3]=bs$:G0OTO 4648 
ep=INSTR (v$,"F2FAGAF3") 

IF zug$="G4F3" AND ep<>@ THEN g$L[4] 
z"":f$[4]="":f$[L3]=bs$:60T0 4648 
ep=INSTR (v$,"G264F463") 

IF zugs="F463" AND ep<>® THEN g$[L4] 
z""3f$[4]="":g$[31=bs$:G0TO 4640 
ep=INSTR (v$,"EZEAF4ES"”) 

IF zug$="F4E3" AND ep<>B THEN f$[4] 
="":e$[L41]=""se$L31=bs$:60TO 4648 
ep=INSTR (v$,"F2F4EAFS3") 

IF zug$="E4F3" AND ep<>B THEN #$[4] 
=""38$[4]="":f$L[31=bs$e GOTO 4648 
ep=INSTR (v$,"D2D4EAD3") 

IF zug$="EA4D3" AND ep<>@ THEN e$[4] 
="":d$[4]="":d$[L31=bs$:G60TD 4648 
ep=INSTR (v$, "EZE4DA4E3") 

IF zug$="D4E3" AND ep<>B THEN e$L[L4] 
="":d$[4]="":e$[L31=bs$:G60TO 4648 
ep=INSTR (v$,"C2CADA4C3") 

I zug$="DAC3" AND ep<>@ THEN d$[4] 
="":c$[41]1="":c$[3]J=bs$:G60TD 4648 
ep=INSTR (v$,"D2D4C4AD3") 

IF zug$="C4D3" AND ep<>B THEN d$L[4] 
="":c$[41]="":d$[3]=bs$:G0OTO 4648 
ep=INSTR (v$,"B2B4CA4B3") 

IF zug$="C4B3" AND ep<>B THEN c$[4] 
="":b$[L4]="":b$[L31=bs$:60TD 4648 
ep=INSTR (v$,"C2C4BA4C3") 

IF zug$="BA4C3" AND ep<>B THEN c$[4] 
z"":b$L4]="":c$L3]I=bs$:G0OTO 4648 
ep=INSTR (v$,"AZA4BAAS3") 

IF zug$="B4A3" AND ep<>B THEN b$L[L4] 
=""3a$[4]="":a$[31=bs$:60T0 46408 
ep=INSTR (v$,"B2B4AAB3") 

IF zug$="A4B3" AND ep<>B THEN b$L[L4] 
=""234$[41]="":b$[L31=bs$:G0TO 4648 
GOTO 4718 '*#** Kein En-Passen-Zug g 
efunden #%** 


IF vy=5 THEN bauer$=bw$ ELSE bauer$ 
=bs$ 


Listing. Schach - nicht nur für Anfänger (Fortsetzung) 




















[B818]1 
[FF2@] 
[C448] 


[57AB] 
[D244] 
[9488] 


[A&DAI 
[C688] 


[B4DC] 
[EA98] 


ESFDAI 
[3AB6] 


L1SDC]I 
[BE9I6)] 


[S2ECI 
[6496] 


LEBEE] 
[78A6] 


L89FE)I 
[9EAB] 


LASEE] 
[6CAAI 


[76FE] 
[A2AA] 


[8900] 
[36B4] 


[FB1B] 
[64B4] 


[B612] 
[SCC4] 


[8B1®] 
[64B2] 


CAD12] 
[82A2) 


ES7FC)I 
L8CAA]I 


[1282] 
L1@A2] 


L9AFAI 
LAZAA] 


CACEE] 
[6498] 


C35DE6] 
[2E98] 


[öBECI 
[5A9BI 


[FBEA)I 
[5498] 


LESEA] 
[8C98) 


CDBD®) 
[8086] 


[C9D6] 
[S87E] 


L44CE] 
[5686] 


[12D4] 
L9ETE]I 


[CICC) 
[5486] 


[63080] 
[BD4A]I 


[C3AB] 
[CFAE)I 


LFAS8] 
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IF ASC(x1$)<ASC(X2$) THEN sp=x1+2 E 
LSE sp=x1-2 

xx$s=x1$:vv=vy:G0OSUB 5258: LOCATE#1 ,x 
1,y1:PRINT#1,leer$ 

IF leer$=11$ THEN leer$=12$:G60T0 46 
98 

IF leer$=12$ THEN leer$=1li$ 
LOCATE#1 ,sp,yi1:PRINT#1 ,leer$:LOCATE 
#1,x2,y2:PRINT#1,bauer$:60TD 5238 


REM #*%* Rochade ##%##%%%%% 


IF zug$="E1iG1" AND e$[lvy]=kw$ AND f 
$[Lvy]="" AND g$[Lvy]="" THEN LOCATE# 
1,13,17:PRINT#1,12$:LOCATE#1,19,17: 
PRINT#1,11$:LOCATE #1,15,17:PRINT#1 
„tw$:LOCATE#1,17,17:PRINT#1 ,kw$:h$L 
vz]="":g$[Lvz J=kw$: f$(vz)=tw$re$lvz] 
="":G60T0 5238 

IF zug$="EiC1" AND e$[Lvy]J=kw$ AND b 
$[vy]l="" AND c$[Lvy]="" AND d$[vyJ=" 
" THEN LOCATE#1,13,17:PRINT#1 ,12$:L 
OCATE#1,5,17:PRINT#1,12$:LOCATE#1 ,1 
1,17:PRINT#1 ,tw$:LOCATE#1,9,17:PRIN 
T#1,kw$:e$[Lvz]=""za$lvz]J="":b$[Lvz)]= 
""2c$[Lvz J=kw$:d$Lvz]=tw$:G0OTO 5238 
IF zug$="E868" AND e$[lvy]=ks$ AND f 
$[Lvy]l="" AND g$[Lvy]="" THEN LOCATE# 
1,13,3:PRINT#1,11$:LOCATE#1 ,19,3:PR 
INT#1,12$:LOCATE#1 ,15,3:PRINT#1 ,ts$ 
:LOCATE#1,17,3:PRINT#1 ,ks$:h$L[Lvz ]J=" 
"ıg$L[Lvz J]sks$: f$[Lvz]=ts$:re$[lvz]="":6G 
0oTO 5238 

IF zug$="E8C8" AND e$[Lvy]=ks$ AND b 
$[vy]="" AND c$[Lvy]="" AND d$[vy]J=" 
" THEN 4778 ELSE 4818 
LOCATE#1,13,3:PRINT#1,11$:LOCATE#1, 
5,3:PRINT #1,11$%:LOCATE #1,9,3:PRIN 
T#1,ks$:LOCATE#1,11,3:PRINT#1 ,ts$:P 
EN 1:e$[vz]="":aslvz]I="":b$[lvzJ="": 
c$[vz J=ks$:d$[Lvz J=ts$:G60T0O 5238 


REM *** BAUERNUMWANDLUNG ###* 


® 
IF zug$="A2A1" AND a$l21=bs$ THEN L 
OCATE#1,5,15::PRINT#1,11$:LOCATE#1, 
5,17: PRINT#1,12$:LOCATE#1,5,17:PRIN 
T#1,ds$:a$[21="":a$[1]=ds$:60T0 523 
[) 


IF zug$="B2B1" AND b$[L2]=bs$ THEN L 
OCATE#1,7,15:PRINT#1,12$:LOCATE#1,7 
„17: PRINT#1,11$:LOCATE#1,7,17:PRINT 
#1 ,ds$:b$[2]="":b$[L1]=ds$:60T0 5238 


IF zug$="C2C1" AND c$[L21=bs$ THEN L 
OCATE#1,9, 15: PRINT#1,11$:LOCATE#1,9 
‚17:PRINT#1,12$:LOCATE#1,9,17: PRINT 
#1 ,ds$:c$[2]="":c$[L1]=ds$:G0TO 5238 


IF zug$="D2D1" AND d$[L21=bs$ THEN L 
OCATE#1,11,15:PRINT#1,12$:LOCATE#1, 
11,17: PRINT#1,11$:LOCATE#1,11,17:PR 
INT#1,ds$:d$[21]="":d$[L1]=ds$:ıG0T0 5 
238 

IF zug$="E2E1”" AND e$[2]=bs$ THEN L 
OCATE#1,13,15:PRINT#1,11$:LOCATE#1, 
13,17: PRINT#1,12$:LOCATE#1,13,17:PR 
INT#1 ,ds$:e$[2]="":e$[L11=ds$:G0T0 5 
238 

IF zug$="F2F1" AND f$[21=bs$ THEN L 
OCATE#1,15,15:PRINT#1,12$: LOCATE#1, 
15,17:PRINT#1,11$:LOCATE#1,15,17:PR 
INT#1 ,ds$:f$[21="":4$[1]=ds$:60T0 5 
238 

IF zug$="G2G1" AND g$[2]=bs$ THEN L 
OCATE#1,17,15:PRINT#1,11$:LOCATE#1, 
17,17: PRINT#1,12$:LOCATE#1,17,17:PR 
INT#1,ds$:g$[2]="":g$[11=ds$:60T0 5 
238 

IF zug$="H2H1" AND h$[L21=bs$ THEN L 
OCATE#1,19,15:PRINT#1,12$:LOCATE#1, 
19,17: PRINT#1,11$:LOCATE#1,19,17:PR 
INT#1 ,ds$:h$[2]="":h$[L1]=ds$:G0T0 5 
238 

IF zug$="A7AB" AND a$[71=bw$ THEN L 
OCATE#1 ,5,5:PRINT#1,12$:LOCATE#1,5, 
37: PRINT#1,11$:LOCATE#1,5,3:PRINT#1 
‚dw$: a$L71="":a$[81=dw$:G0TO 5238 
IF zug$="B7B8" AND b$[L7]=bw$ THEN L 
OCATE#1,7,5:PRINT#1,11$:LOCATE#1,7, 
S:PRINT#1,12$:LOCATE#1,7,3:PRINT#1, 
dw$:b$L71="":b$[L81=dw$:GOTO 5238 

IF zug$="C7C8" AND c$[L71I=bw$ THEN L 
OCATE#1,9,5:PRINT#1,12$:LOCATE#1,9, 
3:PRINT#1,11$:LOCATE#1,9,3:PRINT#1, 
dw$:b$[L71="":c$[81=dw$:G0TO 5238 

IF zug$="D7D8" AND d$[7J=bw$ THEN L 


[9FD&] 
[C614]1 


TEC14] 
[5D4A] 


[CC82] 
[DB4AA] 
[C518] 
CBE4E] 


TAA1A]I 


[8102] 


[CEFB8] 


[18A4] 


LIFFAI 
[D85A] 
[6FE6] 
[164C] 


[B818] 


[29BC] 


EZED4) 


[72D6} 


[CBEE] 


[4106] 


C[A7IE] 


L7F36] 


£[573E] 


[BBEC] 


SB6sD 
5978 


SB8D 
50978 


5188 
5118 
5128 
5138 
5148 
5158 
5168 


1 
5178 


5188 
5198 
5208 


5218 
5228 
5238 
5248 
5258 


5268 


5278 


5288 


5298 
5308 
5318 
5328 
5338 


5348 
5358 


5368 
5378 
5388 


33978 


OCATE#1,11,5:PRINT#1,11$:LOCATE#1 ,1 
1,3: PRINT#1,12$:LOCATE#1,11,3:PRINT 
#1 ,dw$:d$[71="":d$[81=dw$:GOTO 5238 


IF zug$="E7E8" AND e$[L71=bw$ THEN L 
DCATE#1,13,5:PRINT#1,12$:LOCATE#1 ,1 
3,3: PRINT#1,11$:LOCATE#1 ,13,3: PRINT 
#1 ,dw$:e$[7]="":e$[8]=dw$:60T0 5238 


IF zug$="F7F8”" AND #$[L71=bw$ THEN L 
OCATE#1,15,5:PRINT#1 ,11$:LOCATE#1 ,1 
5,3:PRINT#1,12$:LOCATE#1,15,3:PRINT 
#1 ,dw$:#$[7]="":f$[81]=dw$:G0T0 5238 


IF zug$="6768" AND g$[7]1=bw$ THEN L 
OCATE#1 ,17,5:PRINT#1,12$:LOCATE#1 „1 
7,3:PRINT#1,11$:LOCATE#1,17,3:PRINT 
#1 ,dw$:g$[L71="":g$[BJ=dw$:GOTD 5238 


IF zug$="H7H8" AND h$L7]=bw$ THEN L 
OCATE#1,19,5:PRINT#1,11$:LOCATE#1 ‚1 
9,3: PRINT#1,12$:LOCATE#1,19,3: PRINT 
#1 ,dw$:h$[L7]="":h$L8J=dw$:G0TO 5238 


REM *** Normale Zuege ##* 
IF x1$="A" 
zun 


IF x1$="B" 


IF x1$="C" 


IF x1$="D" 


IF x1$="E" 


zun 


IF x1$="F" 


zun 


IF x1$="G" 


IF x1$="H" 


THEN feld$=a$[lvy]J:a$slvy) 


THEN feld$=b$[vy]J:b$Lvy] 


THEN feld$=c$[vy]lic$[lvy] 


THEN feld$=d$[vy]l:d$Lvy] 


THEN feld$=e$[vy]Jse$slvy] 


THEN feld$=f$[vylJlıfslvy] 


THEN feld$=g$[Lvy]:g$[vy] 


THEN feld$=h$Lvyliıh$sLvy) 


xx$=x1$:vv=vy:60SUB 5259: LOCATE#H1 ,x 
1,yi:PRINT#1,leer$ 
„x$=x2$:vv=vz:GOSUB 5259: LOCATE#1 ,x 
2,y2:PRINT#1,leer$:LOCATE#1,x2,y2:P 
RINT#1,feld$ 


FOR ii=1 TO 8 
IF x2$="A" AND 
1d$ 
IF x2$="B" 
1d$ 
IF x2$="C" 
1d$ 
IF x2$="D" 


a$slvz]=fe 


AND b$[vz]J=fe 


AND c$[vz]=fe 


AND d$[vz]=fe 


AND v e$[Lvz]=fe 


IF x2$="F" AND f$Lvz]=fe 
1d$ 
IF x2$="G" 
1d$ 
IF x2$="H" 
1d$ 


NEXT ii 


AND g*s[vz]=fe 


AND h$[Lvz]=fe 
RETURN 


xx$="E" 0 
@ THEN le 


8 
IF (xx$="A" OR 
R xx$="G") AND 
er$=11$ 

IF (xx$="A" OR 
R xx$="G") AND 
eer $=12$ 

IF (xx$="B" OR 
R xx$="H") AND 
er $=12$# 

IF (xx$="B" OR 
R xx$="H") AND 
leer$=11$ 
RETURN 


»x$="[C" OR 
vv MOD 2 = 


xx$="C" OR xx$="E" 0 
vv MOD 2 <> @ THEN 1 


xx$="D" OR xx$="F" 0 
vv MOD 2 = 8 THEN le 


xx$="D" OR xx$="F" 0 
vv MOD 2 <> ® THEN 


FOR j=1 TO LEN(links$) STEP 4 
hz$=MID$(links$, j,4) 

hz=hz+1:IF hz MOD 2 = B THEN pi=6:z 
ug=zug+1 ELSE pi=13 

s2= zug MOD 12:IF s2=B THEN CLS 
LOCATE 2,s2+1:PRINT USING "##"; zug; 
sPRINT "”." 

li$=LEFT$(hz$,2) :re$=RIGHT$ (hz$,2) 

LOCATE pi,s2+1:PRINT 1i$;"-"jre$ 
zug$=1i$+re$:G0SUB 3718:FOR warte=1 
TO 1B8BB:NEXT 

NEXT j:RETURN 


Listing. Schach - nicht nur für Anfänger (Schluß) 

















L2FFB] 


TE3@8] 


[BA2B] 


[7138] 


[CC5@] 
CBFSC]I 
[FD46] 
C[D16®] 
[1B42] 
[BIAA]I 
[9B52] 
[B15A] 
[1362] 
[D16A] 
19372) 


[997A] 
[CF4E] 


[8218] 
EFBFA] 
[D442] 
[8294] 
[52A4] 
LASAAI 
EF&B8] 
[ZAB&] 
[52BC] 
[8EC2)I 
CBösC8] 
C9FBCI 
[B1352] 
C[DD46] 


[C194] 
ECDFAA]I 


tESS4] 


LEFD2] 


[7462] 


[SD1C] 
[95ABI 
[C544] 
[BAAB]I 
[F46E] 


LFE7E]I 
[6626] 


[76C8] 
[8BE2] 
[8SAEI 


[31B4] 
L1EAB]I 



















































































Mathematik 





Für den Laien undurchschaubare 
mathematische Formeln stellt dieses 
Programm klar und zum »Anfassen« 
dar. Dabei ist es so flexibel, wie man 
es sich nur wünschen kann. 


as Programm »Funktionsplot« eignet sich vorzüglich, 
Schaubilder von mathematischen Funktionen auf 
dem Bildschirm darzustellen und auszudrucken. 
Durch Ausprobieren verschiedener Funktionen entwickelt 
man schnell ein Gespür dafür, wie der Graph dazu aussieht. 
Die Funktionen können in Abhängigkeit von einem Parame- 
ter »t« angegeben werden. 
Nach Vorgabe der Funktion werden verschiedene Anga- 
ben verlangt: 
1. Der Wert des Parameters »t« (Bei »ENTER« Standard- 
wert 0). 
2. Der Wertebereich, für den die Funktion zutrifft (von, bis). 








2 2 22 2 2202 202022 2 2 2 2 2 2 2 2 2 2 2 2 2 2.202 [3868] 
[2FSA]I 
[7838] 
[L1SSE] 
[B776] 
[574C] 
[428C) 
[3CDC]I 
[6068] 
[2348] 
C[DFA2] 
L[1F88] 
[BB7E] 
DS EZ 2 2 2 2 2 2 2 2 202 2 2 2 2 2 2 2 2 2 2 202.2 [5988] 
MC-PROGRAMME POKEN [8118] 
MODE 2: IF FEEK (48988) < >%3 

39999:G0OSURB 2002:60T0 5 [34B2] 
MENUE [925C] 
IF #$=""THEN GOSUB 288 [8@DA] 
WINDOW#@,61,88,12,25:CLS [2886] 

PRINT CHR$(24);"{5 SPACE?M en u e{S5 

SPACE} ";CHR$ (24) ,,"£1> Neue Funktio 

n","<2> Neue Wertemenge","<3> Neue Y 
-Dehnung" „"i4> Neues t" [855C] 
FRINT ": Graph zeichnen" ,"<6> Hard 
copy",„"<7> Funktionswertei6 SFACE}ab 
fragen" ,"“8> Ende",,"Ihre Wahl (1-8) 


FUNKTION 


(C) 1985 
Timo Breidenstein 
Reichenbacher Str. 28 
72980 Freudenstadt 


Hardcopy-RSX 
von Helmut Tischer 
aus Happy-Computer 12/85 


HrmeVsONEUNBUN- 


EEE EREIERENERN 
PeFFFFTTTTTTT 


LSE12] 
IF INKEY${>""THEN 158 [4258] 
e£=INKEY$: IF e$<"1"OR e$>"8" THEN LO 
CATE 17,13:PRINT"?":PRINT CHR$(24):F 
OR n=1 TO 188:NEXT:GOTO 168:ELSE PEN 
1:PAFER B:CLS [37F2] 
ON VAL (e+) GOSUR 2900,489,500,300,700 
‚1009 ,409,99%0 [1388] 
GOTO 198 [B846] 
r EINGABE DER FUNKTION [DFS2] 
MODE 2: INPUT"Funktion :{5 SPACE}# (x) 
=", f$: IF f$="" THEN 218 [1638] 
KEY 139,"24@ DEF FNt (x)="+f$+CHR$ (15 
)+"goto 248"+CHR$(13):PEN ® [SB7E) 
Es %&BS516,8:POKE %B517,64:POKE %BS53 
20: POKE &ES 3D,1:POKE LESSE ‚2: POKE 
Lasse ‚star [5246] 
DEF FNt (x)=L06G (x)+5IN(x)*#LOG (x) +COS( 
x) [CAFD4] 
FOKE %&B542,8 [C6C6) 
CLS:PEN i1:KEY 139,CHR$ (13) :PRINT "Ne 
ue Funktion :{5 SPACE}# (x)="#$:PRINT 
:PFRINT LE2DC]I 
GOSUB 320: G0OSUB 498: GDSUB S@8:GODSUB 
[C574] 
[OAAA]I 
EINGABE VON t [7198] 
INPUT"t=",t LESB2] 
LAC2A]I 
EINGABE DES WERTEBEREICHS -- 
[4A14] 
INPUT; "Wertebereich: {7 SPACE}von ",„u 
: INPUT" bis ",hzIF h-ui=®B THEN 418 [1616] 
[A92CI 
EINGABE DER Y-DEHNUNG 





870 
888 
898 
988 
918 
928 


930 
748 





t= 0,5 


W-{8.5 ... 


X-LE= 1/8 
= 8.185 
v-LE: 18 


2} 


81 
_ Y-Dehnung: 1.3 


Ein Ausdruck mit der inte- 
grierten Hardcopy-Routine 


t=-.2 
W=t 1.42 . 
X-LE= 





1,53} 


vı8l 
5 HE ine 6E-83 


43 
Y-Dehnung: 8.03 


Hier liegt die 
Y-Achse 
außerhalb 
des sichtba- 
ren Bereichs 


INFUT"Dehnung' in{1® SPACE}y-Richtung 
"‚d:IF d=® THEN d=1 


FUNKTIONSWERTE ABFRAGEN ---- 


ON ERROR GOTO 848 
INPUT"x=",x$: IF LOWER$(x$)="m" THEN 
RETURN ELSE x=VAL (x$) 
PRINT"# ("3 STR$ (x); ")=";FNt (x) :PRINT: 
G0OTO 528 
PRINT CHR$ (11); "Nicht definiert !":P 
RINT: RESUME 618 

GRAPH ZEICHNEN 


b=h-u:xp=470/b: yp=d*489/b:g=u#xp+470 


ORIGIN -u*xp ,20@:MOVE u*xp,@:DRAW q, 
B: IF g>=® THEN MOVE 8,199:DRAW 8,-19 
Ir} 


fx=1+INT (b/2B):IF b/20<®8.5 THEN fx=1 
/INT (28/b) 
fy=1+INT (b/ (28*ABS(d))): IF b/ (2B*ABS 
(d))<Q.5 THEN Fy=1/INT((2B*ABS(d))/b 
) 

xe=fx#txp:ye=fy*yp 
p=-38-(S+LEN(f$))/2:IF p<i THEN p=i 
xet="":IF fx>=1 THEN x$=STR$(fx) ELS 
E x$=" 1/"+MID$(STR$(1/fx) „Z2):xe$="t 
4 SPACE3="+STR$ (fx) 

ye$s="":IF fy>=1 THEN y$=STR$(fy) ELS 
E y$=" 1/"+MID$(STR$(1/#y) ,„2):ye$="t 
4 SFACE}="+STR$(ABS(Fy)) 
LOCATE#2,p,1:FRINT#2 ,CHR$ (24), "# (x)= 
"sf$;CHR$ (24): WINDOW#1, 61,88,1,11:FR 
INT#1, "t="t:PRINT#1,"W= cu", „'nej": 
PRINT#1 
FRINT#1,"X-LE=";x$#,xe$:PRINT#1,"Y-LE 
="sy$, yes: FRINT#1, "Y-Dehnung: "d 

FOR x=8 TO h*xp STEP xe:MOVE x ,2:DRA 
W x,-2:NEXT:FOR »=@ TO u*xp STEP -xe 
:IF x>g THEN 838 ELSE MOVE x ,2:DRAW 
ee 

NEXT 

IF SGN (u)=SGN(h) THEN j=u*xp ELSE j= 


[") 
FOR x=® TO 1997 STEF ABS(ye):MDVE j+2 
„x:DRAW j-2,x:NEXT:FOR x=® TO -199 S 
TEF -ABS(ye):MOVE j+2,x:DRAW j-2,x:N 
EXT 
=u*txp 
ON ERROR GOTO 958 
MOVE x,FNt (x/xp)*yp 
ON ERROR GOTOD 958 
FOR x=x TO g 
y=FNt (x/xp)*yp 
IF ABSty)>=199 OR (SGN(y)<>SGN(YFPOS) 
AND ABS (YPOS)=199) THEN 978 ELSE DR 


LOCATE#2,p,1:PRINT#2,CHR$ (24) 5 "# (x)= 


Listing. Mathematische Funktionen 



































E[BB9IAI 


CB@B2] 
CAAZE] 


LICAE] 
[2422] 


L8F6E) 
[9D38) 
LEC68] 
[A94QB] 
LF2SE]J 


[1856] 


[BO3SBE] 
[E24A] 
[9D74] 


[8B1C) 
[F®B4A] 


[BOAB4] 


[S1E4] 


£EDBS4] 
[B37C) 


[4BiC] 
[SAF4] 


[B&AB] 


[9916] 
L1AF4] 
[C93A] 
EBD&SC) 
LAD] 
L166E) 
[7ED6] 


[DEE4] 
L89F6] 
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"f$; CHR$ (24) :RETURN 

x»=x+t1:IF x>g THEN 948 ELSE RESUME 88 
{") [F9ABb] 
IF ERR=11 THEN RESUME NEXT ELSE RESU 
ME 978 

IF ABS(YPOS)<199 THEN DRAW x,56GN(YFO 
5)*199 ELSE PLOT x,5S6GN(y) #199 

G0TO 958 
MODE 2:END 
s HARDCOPY 

CLS:CALL 400008 

IF PEEK (4B1BB)=&FF THEN PRINT CHR$( 
T);CHR$ (24) ;,"Drucker nicht bereit"; 
CHR$ (24):FOR n=1 TO 3@@@: NEXT: RETUR 
N 


[828A] 


[271E] 


[82BA] 
[CBD&C)I 
[7894] 
L9C7C) 
[315C) 


[D9DA] 
[FFAB] 
[C441E] 


|HARDCOPY : RETURN 
DRUCKER BEREIT? 

FOR n=40088 TO 4BB16:READ w:POKE n, 
w: NEXT: RETURN 

DATA %3e,%00,%32,%a4,%9c ‚Lcd,%2e,&b 
d,%38,%01,%c9 ,43e,&ff,%&32,%34,&9c ,% 
[2B28] 
[86D41 


[2782] 


HARDCOPY-RSX 

OPENDUT"dummy "3 MEMORY HIMEM-1:CLOSE 
OUT 

st=HIMEM-335: MEMORY st-1 

RESTORE 3118 
FOR i=B TO 3535 STEP 8 

ruef=8 

OR j=i TO i+7:READ d$:d=VAL ("&"+d$ 
):POKE st+j,d:pruef=pruef+d:NEXT 
READ p: IF pruef<>p THEN PRINT"Fehle 
r in Zeile"3118+i1/8*18". Bitte Verb 
essern und dann GOTO 3838 eingeben. 
":END 

NEXT 

FOR i=1 TO 27:READ d$:d=VAL("&"+d$) 
:z=st+PEEK (st+d) +256#PEEK (st+d+1):P 
OKE st+d+1,INT(z2/256):POKE st+d,z-2 
S6#INT (2/256) :2NEXT 

CALL HIMEM+1:GOTO 188 
DATA 81,89,08,21,17,00,c3,di, 
DATA bc ,8e,88,c3,1b,88,48,41, 
DATA 52,44,43,4#,50,d9,008,00, 5953 
DATA 88,00,00,ed,73,31,81,3a, 468 
DATA c8,b1,87,fe,21,ce,88,87,1188 


[B74E] 
[9D72] 
[C13DE] 
LFFECI 
[13EE)] 


[7C68] 


[B4980] 
[F354] 


L[7ABCI 
[BE28] 
[5574] 
[B3AQ] 
[27A8] 
[D9DB] 
[935A] 


4708 
Söil 


3. Die Dehnung in Y-Richtung: Sie gibt das Verhältnis zwi- 
schen einer Längeneinheit (LE) auf der X-Achse und einer LE 
auf der Y-Achse an. Wird hierfür 1 eingegeben, so sind beide 
gleich lang. Durch Werte größer 1 wird das Schaubild vertikal 
gedehnt, durch Werte kleiner 1 gestaucht. Negative Werte 
führen zu einer Spiegelung an der X-Achse. 

Wird anstelle einer Eingabe gleich ENTER gedrückt, so 
setzt das Programm als Standardwert für die Y-Dehnung 
eine 1. 

Die Koordinatenachsen werden automatisch in sinnvolle 
Abschnitte eingeteilt. Liegt der Ursprung und damit auch die 
Y-Achse außerhalb des gewählten Wertebereichs, so wird 
anstelle einer kompletten Y-Achse nur ihre Einteilung (Quer- 
striche) am Bildrand angedeutet: links, wenn die Achse unter- 
halb des Wertebereichs liegt, und rechts, wenn sie oberhalb 
davon liegt. 

Eine Anzeige für beide Achsen gibt an, welchem Zahlen- 
wert der Abstand zwischen je zwei Querstrichen auf der 
Achse entspricht. 

Verläuft die Kurve oberhalb des oberen Bildschirmrandes, 
ist dies dadurch ersichtlich, daß sie als gerade Linie am obe- 
ren Bildschirmrand erscheint. Entsprechendes gilt, wenn sie 
unterhalb des unteren Bildrandes verläuft. Liegen Teile des 
Wertebereichs außerhalb des Definitionsbereichs der Funk- 
tion, so wird nichts gezeichnet (zum Beispiel Logarithmus- 
funktion für negative Werte). Wenn der Graph gezeichnet ist, 
erscheint daneben ein Auswahlmenü: 

. Neue Funktion eingeben 

. Neue Wertemenge 

. Neue Y-Dehnung 

. Neuer Wert für Parameter t 

. Graph zeichnen 

. Hardcopy für Schneider-Printer NLQ 401 

. Funktionswerte abfragen: Es können die Funktionswerte 
für beliebige X-Werte berechnet werden. Rücksprung ins 
Menü durch Eingabe von »m«. 


NOUDPQOPD— 


344 [724A] 
L4E6C] 
[SE62] 
[B26E) 
[1436] 
[SBBAI 
[B7Bö] 
LEFCB]I 
LEöEC]I 
LE31E] 
[LAFBC] 
[4216] 
[42A2] 
[2016] 
[36D4] 
[S9BC]I 
L14QE] 
[7F44] 
[68BA6] 
[C1A6] 
LE44E] 
[SBBCI 
[EC26] 
CBEB2] 
[FF18] 
LAZ2A] 
[2914] 
[49A4] 
[OEQ4] 
L1B7E] 
[B664] 
[2ASB] 
C[DB32] 
[176E] 
[D7E2] 
L9IES2I 
EFBSC]I 
[DFD4] 
[2C4E] 
LE3SCI 
[SE1B] 
[D2QA] 
[2D76] 
IFAE6] 


DATA 32,29,801,8e,@d,cd,15,01, 
DATA Be,Ba,cd,15,21,3e,82,cd, S18 
DATA 83,80,3e,7#,32,28,201,2a, 460 
DATA c9,b1,7c,f6,c0,67,86,1d,1878 
DATA 85,290,85,3e,78,32,28,01, 315 
DATA 84,c5,cd,9#,28,5a,c8,b1,19000 
DATA fe,82,cc,9#,800,11,00,08, 644 
DATA a7 ,ed,52,7c,6,3,3c,28,1819 
DATA 88,11,b6b98,3f,19,7c,f6,fB, 
DATA 67,B8e,8a,cd,15,21,Be,@d, 
DATA cd,13,81,eS,3e,42,cd,le, 
DATA bb ’c2,23,@1,e1,c1,10,c®, 
DATA 3e,853,21,33,801,4e,23,06, 
DATA 00.09,34,20,f8,46,23,4e, 
DATA 23,cd,13,81,18,#9,c9,e5, 
DATA 21,53,81,3a,c8,bil,fe,@2, 
DATA 28,05,4e,23,06,00,89,cd, 
DATA 95,808,e1,3a,c8,bl1,fe,82, 
DATA 86,28,28,02,06,50,c5,e5, 
DATA 11,2a,81,3e,27,ed,aQß,Bi, 
DATA #f,07,29,30,0a4,01,50,c0, 
DATA 89,47,7c,e6,c7,67,78,53d, 
DATA 28,eb,21,c#f,b1,3a,29,01, 
DATA 47,c5,11,23,01,06,07,1a, 
DATA 13,a6,fe,21,5f,cb,11,18, 

DATA #6,33,28,21,al,4#, cd, 15, 
DATA 81,3a,c8,bi, a7, ec; 13,01, 

DATA ci ‚23,108, ’dd,ei.c1,7c,e6,1237 
DATA #8,4f,23,7c,e6,87,b1,67,1003 
DATA 18,ac,c9,79,cd,2b,bd,d8,11653 
DATA c5,e5,3e,42,cd,le,bb,e1,12®1 
DATA c1,28,f@,ed,7b,531,81,c9,1084 
DATA 00,20,00,00,00,00,00,00, [") 
DATA 280,20,80,04,1b,4c,48,01, 172 
DATA 84,1b6,46,48,01,05,1b,41, 268 
DATA 87,16,32,05,1b,41,8c,1b, 228 
DATA 32,00, 00,00,00, 20, oo ‚20, fe] 
DATA B@BB1, d004, 2009, BRRc 

DATA 2014,0029,002e ‚0033 

DATA 88358 ,B03d ,BB4e ‚3053 

DATA 805b ‚83074,0079,0082 

DATA BB8b ‚399a,2Bal ,BaObo 

DATA BGc1,88de,BBe3,00f2 

DATA 80#7,00fe,2125 


Listing. Mathematische Funktionen (Schluß) 





8. Ende: Programm wird verlassen, istaber durch »RUN« wie- 
der zu starten. 

Man muß auf eine computergerechte Funktionseingabe 
achten. Wurde eine Funktion fehlerhaft eingegeben (zum 
Beispiel 5 sin x anstelle von 5*sin(x)), so ist sie nicht definiert 
und es erfolgt kein Ausdruck. 

Beim Menüpunkt »Hardcopy« testet das Programm, ob ein 
Drucker angeschlossen und einsatzbereit ist, bevor der 
Hardcopy-RSX-Befehl in einer Endlos-Schleife darauf wartet. 
ON-ERROR-Sprünge verhindern Fehlermeldungen bei Polen 
oder nicht definierten Stellen von Funktionen. Die Graphen 
werden durchgezeichnet und nicht aus Einzelpunkten 
zusammengesetzt, damit auch bei extremen Steigungen 
keine Löcher im Schaubild entstehen. Dadurch, daß der 
Graph, wenn er aus dem Bildschirm hinausläuft, am entspre- 
chenden Bildrand als Gerade weiter gezeichnet wird, lassen 
sich Sprünge von minus unendlich nach plus unendlich 
erkennen und somit von nicht definierten Wertebereichen 
unterscheiden. 

Von der Programmierung her am interessantesten ist das 
Einfügen der Funktion in das Listing. Sie wird als Stringvaria- 
ble f$ eingegeben und dann in Zeile 220 als Programmzeile 
240 auf die kleine ENTER-Taste gelegt. In Zeile 230 wird 
dann der Tastaturpuffer manipuliert, ein Druck auf diese Taste 
simuliert und das Programm abgebrochen. Nach dem 
Abbruch liest das Betriebssystem den Tastaturpuffer aus und 
startet das Programm wieder in Zeile 240. Der Benutzer 
merkt von alldem nichts, da die entsprechenden Systemmel- 
dungen durch Gleichsetzen von Vorder- und Hintergrund- 
farbe unsichtbar bleiben. 

Ein Hinweis zum Eintippen: Wenn durch »RENUM« die Zei- 
lennummern verändert werden, müssen in Zeile 220 bei der 
Belegung der Funktionstasten die entsprechenden Zeilen- 
nummern von Hand geändert werden. 


(Timo Breidenstein/ja) 
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Wozu hat man nun einen Computer, 
wenn man immer noch alles Mög- 
liche auswendig behalten soll? 
Unsere universelle Dateiverwaltung 
nimmt Ihnen einiges ab. 


D ieses Basic-Programm ist universell einsetzbar und 





eignet sich sehr gut zum Verwalten kleinerer Daten- 
bestände. 

Beachten Sie dabei folgende Punkte: 

- Die Auswahl der Funktionen aus den Menüs erfolgt durch 
Drücken der entsprechenden Zifferntaste; »ENTER« ist nicht 
erforderlich. 

- Geben Sie keine Buchstaben ein, wenn numerische Werte 
erwartet werden und umgekehrt. 

- Die Eingabe eines Punktes ».« dient bei den meisten Funk- 
tionen dazu, diese wieder zu verlassen. 

- Sollte das Programm trotzdem einmal abstürzen, kann es in 
den meisten Fällen ohne Datenverlust durch Eingabe von 
»GOTO 30« wieder gestartet werden. 

Nach dem Programmstart geben Sie das Datum ein, und 
zwar bitte immer in der verlangten Form, da sonst als Datum 
31.12.99 erscheint. Danach wird ein Kennwort angefordert, 
damit Ihre Daten vor unberechtigtem Zugriff geschützt sind. 
Das Kennwort steht in Zeile 1230 des Listings und Sie kön- 
nen es gegen Ihr eigenes austauschen. Wurde esrichtig ein- 
gegeben, erscheint das Hauptmenü, ansonsten bricht das 
Programm ab. 

Hauptmenü (Zeilen 300 bis 430): 

Von hier aus erreichen Sie folgende Unterprogramme: 
-1- Datei definieren 
-2- Datei eingeben 
-3- Datei pflegen 
-4- Datei ausgeben 
-5- Datei abspeichern 
-6- Datei laden 
-7- Programmende 
Datei definieren (Zeilen 2000 bis 2240): 

Bevor Sie eine neue Datei definieren, überprüft das Pro- 
gramm, ob nicht schon eine Datei im Speicher existiert. Sollte 
dies der Fall sein, erhalten Sie eine entsprechende Fehler- 
meldung und das Programm kehrt ins Hauptmenü zurück. Sie 
haben dann die Möglichkeit, die existente Datei abzuspei- 
chern und zu löschen. 

Eine Datei wird definiert, indem Sie die Anzahl von Daten- 
sätzen und die Anzahl von Feldern pro Datensatz angeben. 
Danach ist für jedes Feld eine Bezeichnung (Feldname), ein 
Typ (alphabetisch oder numerisch) und die Anzahl von Zei- 
chen pro Feld festzulegen. 

Stellen Sie an dieser Stelle fest, daß Ihre Angaben einer 
Änderung bedürfen, so ist zuerst ein Datensatz anzulegen 
und anschließend die Datei zu löschen. 

Daten eingeben (Zeilen 3000 bis 3200): 

Sie geben Ihre Datensätze Feld für Feld ein, vorausgesetzt, 
Sie haben zuvor eine Datei definiert oder geladen. 

Auf dem Bildschirm erscheint dazu die nächste Satznum- 
mer, gefolgt von den gewählten Feldnamen. 

Jede Eingabe ist mit »ENTER« abzuschließen. Das Pro- 
gramm prüft, ob die maximale Anzahl von Zeichen je Feld ein- 
gehalten wurde. Je nach Beantwortung der Frage »Eingabe 
in Ordnung (j/n):« können Sie korrigieren oder mit dem näch- 
sten Datensatz fortfahren. 

Um die Funktion zu verlassen, geben Sie beim nächsten 
Satz im ersten Feld einen Punkt ein. 





Die laufende Satznummer wird automatisch immer um eins 
erhöht, bis die in der Definition festgelegte maximale Anzahl 
von Sätzen erreicht ist. 

Die Berechnung des freien Speicherplatzes kann unter 
Umständen einige Sekunden dauern. 

Datei pflegen (Zeile 4000 bis 4860): 

»Datei pflegen« bietet: 

-1- Satz ändern 
-2- Satz löschen 
-3- Datei löschen 
-4- Datei sortieren 
-5- Haupt-Menü 

Durch Drücken der entsprechenden Zifferntaste wählen 
Sie die gewünschte Funktion. 

Satz ändern (Zeilen 4100 bis 4300): 

Für die Änderung geben Sie die Satznummer ein. Dieser 
wird angezeigt und Sie können mit »Cursor down« in das zu 
ändernde Feld springen. »ENTER«löscht den alten Inhalt und 
Sie können den neuen eingeben. Mit »CLR« verlassen Sie die 
Funktion. Wollen Sie weitere Sätze ändern, überspringen Sie 
mit »Cursor down« das letzte Feld und geben eine weitere 
Satznummer ein. 

Satz löschen (Zeilen 4350 bis 4460 und 8000 bis 8070): 

Nach Eingabe einer Satznummer erscheint der Inhalt des 
Satzes. Danach entscheiden Sie, ob der Satz gelöscht wer- 
den soll. 

Beim Löschen rückt eine Unterroutine die nachfolgenden 
Sätze vor und vermindert die höchste zur Zeit vergebene 
Satznummer um eins. 

Datei löschen (Zeilen 4500 bis 4590): 

Diese Funktion löscht die Datei im Speicher. Sie können 
anschließend eine neue Datei definieren oder von Kassette 
oder Diskette laden. 

Sortieren (Zeilen 4600 bis 4860): 

Die Datei kann jeweils nur nach einem der angezeigten 
Schlüssel sortiert werden. Ein Punkt als Schlüssel bewirkt 
das Verlassen des Programmteils. 

Ausgabe (Zeilen 5000 bis 5970): 

In diesem Untermenü wählen Sie zwischen: 
-1- Einzelne Sätze 
-2- Ausgewählte Sätze 
-3- Alle Sätze 
-4- Haupt-Menü 
Einzelne Sätze (Zeilen 5200 bis 5350): 

Eine Anzeige von einzelnen Sätzen erfolgt, nachdem Sie 
die gewünschte Satznummer eingegeben haben. 

Die Satznummer ist nicht Bestandteil der Datei, sondern 
ergibt sich aus der Reihenfolge der Sätze im Speicher. 

Das bedeutet, daß sich der Inhalt einer bestimmten Satz- 
nummer zu verschiedenen Zeiten (zum Beispiel nach dem 
Sortieren) unterscheiden kann. 

Mit den Cursor-Tasten können Sie rückwärts und vorwärts 
blättern oder mit »ENTER« abbrechen, um eine neue Satz- 
nummer einzugeben. Ein Punkt als Satznummer eingegeben 
bringt Sie zurück ins Ausgabe-Menü. 

Ausgewählte Sätze (Zeilen 5500 bis 5730): 

Dieser Programmteil bietet Ihnen eine umfangreiche Such- 
funktion innerhalb der Datei. Dazu erscheint im Window 4 
unten links ein Fragezeichen. Sie können jetzt den Suchbe- 
griff eingeben. Ist ein Suchbegriff inmehr als 15 Datensätzen 
enthalten, hält die Ausgabe an. An dieser Stelle können Sie 
entweder mit »Cursor down« weitere Datensätze anzeigen 
lassen, oder mit »ENTER« die Ausgabe abbrechen, um einen 
neuen Suchbegriff auszuwählen. Ein Punkt als Suchbegriff 
bricht ab und Sie kehren ins Ausgabe-Menü zurück. 
Beispiele 
»?:. Haus« Findet alle Sätze, deren erste vier Zeichen bei 
alphabetischen Feldern »Haus« enthalten. Auch 
»Hausfrau« fällt beispielsweise darunter. Lassen 
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Sie aber auf »Haus« einen Leerschritt folgen, 
grenzen Sie so die Suche ein. 

»?: 10.00« Zeigt alle Sätze, deren letzte fünf Zeichen bei 
numerischen Feldern »10.00« enthalten. Auch 
»210.00« wird ausgegeben. Hier können Sie vor 
dem Suchbegriff einen Leerschritt einfügen, um 
die Suche einzugrenzen. 

»?: Preis>100.00« Findet alle Sätze, deren Feld Preis einen Wert 
größer oder gleich 100.00 hat. Auch 32100.00 
würde angezeigt, wenn nicht nach dem > ein 
Leerschritt folgt (Preis> 100.00). 

»?:. Bezeichnung<M« Findet alle Sätze, deren Feld Bezeichnung mit 
einem »M« oder einem Buchstaben beginnt, der 
im Alphabet vor dem M steht. 


Achten Sie darauf, daß der Suchbegriff nicht länger als die 
erlaubte Anzahl von Zeichen des Feldes ist. 
Sämtliche Sätze (Zeilen 5800 bis 5970): 

Alle Sätze der Datei werden auf dem Bildschirm ausgege- 
ben, wobei nach jeweils 15 Sätzen die Ausgabe anhält. Sie 
können dann mit »Cursor down« weitermachen oder mit 
»ENTER« abbrechen (siehe Window #3 rechts unten). 
Datei speichern (Zeilen 6000 bis 6240): 

Aufgezeichnet werden: 


1 REM J.Tiefenboeck [A858] 
2 REM Oberer Weg ii [EEF4] 
REM 8984 Staetzling L37E2] 
REM tel. 8821/7182701 [8B8E] 
” LACF8] 
s CCCFA] 
REM **%* INITIALIZE *%*%* LEB66] 
MODE 2:G0OSUB 1998 [7328] 
WINDOW 1,80,4,22 [D668] 
WINDOW #2, 1,80,1,3 [BSFC] 
WINDOW #3,.41, 80, 23,25 [@D38] 
WINDOW #4,1 ‚30,23,25 [78D4] 
BÖRDER & [A634] 
OPENOUT "dummy" MEMORY HIMEM-1:CLOSEO 
UT [95D4] 
GOTO 308 [61EA] 
REM #** UMRANDUNGEN ##%* [4E6A] 
11@ LOCATE #2,28,2: PRINT #2,"HAUPT 
MENU E"; [2BEC]I 
122 LOCATE #2,64,2: PRINT #2,TT$;"/";MM$ 
:"/"2JJ$; 2: RETURN [368A] 
LOCATE #2,1,1: PRINT #2,CHR$(158);ST 
RING$ (78 ‚CHR$ (154) ) 5 CHR$ (156); [D7F6] 
LOCATE #2,1,2: PRINT #2,CHR$(149);ST 
RING$ (78,CHR$ (32) ) ; CHR$ (149); [BCACI 
LOCATE #2,1,3: PRINT #2,CHR$(147);5ST 
RING$ (78, CHR$ (154) ) ; CHR$ (153) ; :RETUR 
N C[DD36] 
LOCATE #3,1,1: PRINT #3,CHR$(158);ST 
RING$ (38, CHR$ (154) ) ; CHR$ (156); U35F6] 
LOCATE #3,1,2: PRINT #3,CHR$(149);5ST 
RING$ (38 ,CHR$ (32) ) 5; CHR$ (149); [99A4] 
LOCATE #3,1,3: PRINT #3,CHR$(147);3ST 
RING$ (38, CHR$ (154) ) ; CHR$ (153) 5; :RETUR 
N [3638] 
LOCATE #4,1,1: PRINT #4,CHR$(158);5ST 
RING$ (38, CHR$ (154) ) 3; CHR$ (156); [2400] 
LOCATE #4,1,2: PRINT #4,CHR$(149);5ST 
RING$ (38, CHR$ (32) ) 5 CHR$ (149); [D4AE] 
LOCATE #4, 1,3: PRINT #4,CHR$(147):ST 
RING$ (38 ,CHR$ (154) 5 CHR$ (153) ; :RETUR 
N C[FF42] 
REM #*#** HAUPTMENUE #%*%* [38DE] 
CLS [8334] 
GOSUB 220:G0OSUB 118:GOSUR 228: GOSUB 
258 [6362] 
LOCATE 28,3: PRINT "- 1 -{6 SPACE}Da 
tei definieren" CB088] 
LOCATE 208,5: FRINT "- 2 -{6 SFACE}Da 
ten eingeben" [C1E2] 
LOCATE 28,7: PRINT "- 3 -{6& SPACE}Da 
tei pflegen" [C128] 
LOCATE 28,9: FRINT "- 4 -{6 SPACE}Da 
tei ausgeben" [8AQ2] 
LOCATE 28,11: PRINT "- 5 -{6& SPACE}D 
atei abspeichern" [85CC]I 
LOCATE 208,15: PRINT "- 6 -{6 SPACE}D 
atei laden" [88D4) 
LOCATE 20,15: PRINT "- 7 -{6& SPACE}P 
ROGRAMM ENDE" [1588] 
LOCATE 28,16:PRINT STRING$ (32,CHR$ (1 
54)); [62E8] 
LOCATE 28,17:FRINT "Bitte waehlen Si 
e:{2 SPACE)”; LESSE] 
hw$=INKEY$: IF hw$="" THEN 485 [BA24] 
hw=VAL (hw$) :IF hw<i1 OR hw>7 GOTO 495 


- Dateiname 

- Anzahl Sätze, Anzahl Felder 

- Feldnamen, Feldtypen, Anzahl der Zeichen pro Feld 
- höchste belegte Satznummer+ 1 

- alle eingegebenen Feldinhalte 

Datei laden (Zeilen 7000 bis 7350): 

Es darf keine Datei im Speicher existieren, soll diese Funk- 
tion ausgeführt werden. Eine eventuell existente Datei ist 
gegebenenfalls abzuspeichern und im Arbeitsspeicher zu 
löschen. 

Die Eingabe des Dateinamens bestimmt die zu ladende 
Datei. 

Programmende (Zeilen 10000 bis 10060): 

Bevor das Programm endgültig endet, erfolgt nochmals die 
Frage, ob Sie das auch wirklich beabsichtigen. Vielleicht 
haben Sie vergessen, die Datei vorher abzuspeichern. 

Beim Beenden wird der Bildschrim gelöscht und die 
Ready-Meldung erscheint in Zeile 1 am Bildschrim. 

Sie könnten jetzt das Programm wieder aktivieren, sogar 
ohne Datenverlust, durch Eingabe von »GOTO 30«. 


(Josef Tiefenböck/ja) 


[D188] 
428 ON hw GOSUB 2888,3000,4000 ,5000,4u000 
‚’200,10008 [224C] 
438 GOTO 308 [ES46] 
708 REM *** FEHLER BEHANDLUNG ##*%* [CC4A] 
738 LOCATE #4,2,2:PRINT #4,SPACE$ (36) ;:P 
RINT CHR$(T7; U[FF7E] 
748 LOCATE #4 ‚3,2: PRINT #4,fehler$; [COCC]I 
758 FOR z%=1 ro ZBBB: NEXT 2%: G0SUB 25%:R 
ETURN [5670] 
808 REM *** Freier Speicher ##* C1D58] 
818 LOCATE #2,2,2:PRINT#2, FRE("");:RETU 
RN [D8A2] 
1002 REM *** ANMELDUNG #*%** [4678] 
181@8 PRINT STRING$ (88,CHR$ (208)); [BF2C]I 
1828 LOCATE 28,3:PRINT "DATENBAN 
K{i6& SFACE}IC P C{2 SPACE}4 6 4" [AB46] 
18538 PRINT STRING$ (88,CHR$ (210)); [5B22] 
1848 LOCATE 28,7:PRINT CHR$(164);"{2 SPA 
CE}by jtb{2 SPACE}1985" CESCE] 
1858 LOCATE 28,18: INPUT "DATUM{3 SPACE} ( 
TT/MM/JJ): {2 SPACE}" ‚dat$ [A47C] 
10878 TT$=LEFT$(dat$,2):TT=VAL(TT$) [51D6] 
1888 IF TT<1 OR TT>31 THEN LOCATE 1,18:P 
RINT CHR$(28);:60T0 1858 [6018] 
1892 MM$=MID$ (dat$,4,2) :MM=VAL (MM$) LASA4] 
1188 IF MM<i OR MM>12 THEN LOCATE 1,18:P 
RINT CHR#$ (28) ;:6G0TO 1958 [F&D®] 
1118 JJ$=RIGHT$ (dat$,2) :JJ=VAL (JJ$) L[97FA] 
1128 IF JJ<85 OR JJ>99 THEN LOCATE 1,18: 
FRINT CHR$(28);:G60TO 1958 [33527 
1288 LOCATE 28,18:PRINT"Kennwort:{2 SPAC 
E3."3 [5894] 
1218 CALL &BBS7: INPUT ""„kw$:CALL %BB54: 
LOCATE 38,18 [7252] 
1228 FOR k=1 TO LEN(kw$) :PRINT "#"5;:NEXT 
k L72E4] 
12538 IF kw$<>"happy" THEN END ELSE RETUR 
N [2614] 
28808 REM *** Datei definieren ##* [F784] 
2B1ı® CLS [198A] 
2828 GOSUB 288:GO0OSUB 259:G60SUB 220 [8EEA] 
2823 LOCATE #2,28,2:FRINT #2,"DEF IN 
I. TION C19F@] 
2025 IF 1r>® THEN fehler$="Datei schon d 
efiniert": GOSUR 788:G0T0O 388 [A342] 
2838 LOCATE 4,4: INPUT "Anzahl Saetze{2 S 
FACE} (insgesamt max. 258):{3 SPACE} 
‚ar [FES2] 
2040 IF ar >258 THEN 29038 [28E2] 
2045 LOCATE 4,18:FRINT CHR$(24)+" Summe 
aller Zeichen inklusive Leerzeichen 
<8Q ! "+CHR$(24) [S8BE] 
2858 LOCATE 4,6: INPUT "Anzahl Felder{2 S 
FACE} (eine Zeile,max. 18):{4 SPACE} 
er, [88D8) 
2068 IF af>18 THEN LOCATE 4,18:FRINT CHR 
$(24)+"{8 SPACE}3maximal 18 Felder ! 
{41 SFACE}"+CHR$ (24) :G0OTO 2850 [BE1A]I 
2078 LOCATE #3,3,2:PRINT #3,"Saetze:";ar 
"2 SPACE}Felder:"zaf: CAB7A] 
2088 CLS:DIM f$(ar,af)zir=1:sum=d: sumbz= 
1%) [E4F6] 
2898 FOR i= 1 TO af [7C26] 
2892 LOCATE 4,12:FRINT CHR$(24)+" Summe 
aller Zeichen inklusive Leerzeichen 


Listing. Datenverwaltung, wie sie komfortabler nicht sein könnte 










































































<88 ! "+CHR$(24) 
LOCATE 4,3:PRINT CHR$ (18); "Feld ";i 


’ 

LOCATE 4,5: INPUT "Bezeichnung: {8 S 

FACE}",fb$(i) 

LOCATE 4,7: INPUT "Type (Alpha/Num. 
)={2 SPACE}",ft$(i) 

LOCATE 4,9: INPUT "Anzahl Zeichen:t{ 

5 SPACE}",fc(i) 

sum= sum+fc(i): sumbz=sumbz+LEN (fb$ 
(i)) 

LOCATE 4,12: PRINT "Summe der Einga 

ben bisher ";sum;" Zeichen.Maximal 

inklusiv Leerzeichen <88!" 

LOCATE #4,2,2:PRINT #4,"Noch frei : 
"= (88-SUM)-((fcli)-LEN(fb$(i))+hva 

r2));" Zeichen" 

LOCATE 4,15: INPUT "Eingabe in Ordn 

ung (j/n): ",a$ 

IF UPPER$(a$)<>"J" THEN 2155 ELSE 2 
168 

LOCATE 1,3:PRINT CHR$ (28) : sum=sum-f 

c(i)zsumbz=sumbz-LEN (fb$(i)):GOTO 2 

095 

LOCATE 1,3=2PRINT CHR$ (28); 

NEXT i 

IF sum> (80-af) OR sumbz>(8Q0-af) THE 

N 2190 ELSE 2218 

ERASE f$,fb$,ft$,fc:1lr=® 

fehler$="Summe Zeichen > Zeilenlaen 

ge": GOSUB 788: GOTO 2900 

hvari=8:FOR i=1 TO af:hvari=hvari+f 

c(i):NEXT 

hvar2=F1X((80-hvari)/af) 

IF hvar2<i1 THEN hvar2=1 ELSE IF hva 

r2>18 THEN hvar2=1® 

RETURN 

REM ##+* EINGABE ##* 

ELS 

GOSUB 289:6G0SUB 220:G0OSUB 250 

LOCATE #2,28,2: PRINT #2,"E INGA 
BE"; 

IF Ir=@® THEN fehler$="Keine Daten v 

orhanden !": GOSURB 788: RETURN 

GOSUB 888 

LOCATE #3,3,2: PRINT #3,"Saetze ";a 

r;"i2 SPACE}Felder ";af; 

IF 1r>@ THEN 3858 

Ir=1 

WHILE Ir<=ar 

LOCATE 2,18:FPRINT "Verlassen mit >. 

FaRRT 

LOCATE 2,2:PRINT CHR$ (18); "SATZ "sl 


PS 
FOR i= 1 TO af 

LOCATE 2,i+3=:PRINT CHR$ (18); fb$ (id); 
NEXT i 

FOR i= 1 TO af 

LOCATE S+LEN(FB$(I)),i+3:FRINT CHR$ 
(18)3: INPUT "",e$ 

IF LEN(e$)>fc(i) THEN GOSUB 3200: G 
0OTO 3118 

IF UPPER$ (e$)<>"." THEN 3122 ELSE G 
OSUB 888: RETURN 

IF UPPER$(ft$(i))="N" THEN 3125 ELS 
E 3127 
f$(1r,i)=SPACE$(fc(i)-LEN(e$))+te$:6G 
0OTO 138 

f$(1r,i)=e$ 

NEXT i 

LOCATE 2,18: INPUT "Eingabe in Ordn 
ung (j/n):{2 SPACE}" ,„a$ 

IF UPPER$ (a$)="J" THEN 31648 ELSE LO 
CATE 1,18:PRINT CHR$(18);:G0TO 39068 


Ir=lr+i1 

LOCATE 1,18:PRINT CHR$(18); 

WEND 

GOSURB 898: RETURN 

fehler$=fb#$(i)+" zu lang":GOSUB 7808 
: RETURN 

REM *** DATEI PFLEGE ##* 

ELS 

GOSUB 200:G0SUB 250: GOSUR 228 
LOCATE #2,28,2:PRINT #2,'"FFLEG 
E"; 

IF Ir=@® THEN fehler$="Keine Daten v 
orhanden !": GOSUEB 788: RETURN 
LOCATE 28,4: PRINT "- 1 -{7 SPACE}S 
atz aendern" 

LOCATE 28,6: PRINT "- 2 

atz loeschen"‘ 

LOCATE 28,8: PRINT "- 3 -{7 SPACE}D 
atei loeschen" 

LOCATE 28,18: PRINT "- 4 -{7 SPACE} 
Datei sortieren" 

LOCATE 28,12: FRINT "- 5 -{7 SPACE} 
Haupt -Menue" 

LOCATE 28,16: PRINT "Bitte waehlen 
sie: "3; 


-{7 SFACE}S 


CD3C6] 
[JEEC]I 
[FES8] 
[ASQA] 
1[35E2] 
[2332] 


[1630] 


[3154] 
[FBEA]I 
[2226] 
[9580] 
[714E] 
[CAAs4] 


[FS80] 
[9E84] 


[7186] 


[56B0] 
LaCcF8] 


L[4D60] 
[8F 90] 
[BS9C] 
[BABSC] 
E1BEC]I 
[32B&6] 


L9AAE]I 
[3348] 


[C84C] 
[DD32] 
[8F 70] 
L1AS6] 
£[CC78] 


E1ADA]I 
[C624] 


(C648] 
[0768] 
£[C518] 
[698C] 
[99BE] 
[F4FA]I 
CFEIE] 
CDD9C]I 
[CC82] 
[L9IOSE] 
CBi12E] 
C2BC4] 
[D77E] 
[74CC] 
[90934] 
L&A7E] 
[315A] 
CQ4BC] 
[2ZBBE] 
[B62E]I 
[7288] 
[897BQ] 
[BE2CI 
t[821C] 
[öFAE] 
LE218] 
[CFAE]I 


[CSEC]I 


uw$=INKEY$: IF uw$="" THEN 4936 
="1" THEN 4188 
THEN 4358 
THEN 4500 
uw$s="4" THEN 4608 
uw$="5" THEN RETURN ELSE 4936 
REM *#** Record aendern ##** 


CLS 

LOCATE 2,18:FRINT "Verlassen mit >. 
FaRl 

GOSUB 258:LOCATE #4,2,2: INPUT #4,"S 
atz - Nummer: ",„sn$ 

IF sn$="." THEN 4318 

sn=VAL (sn$): IF sn=® THEN GOTO 4128 


IF sn>ar THEN fehler$="Satznummer z 
u gross": GOSUB 788: GOTO 4108 

IF sn{ii1 THEN sn=1 ELSE IF sn?>1Ir-1 T 
HEN sn=lr-1 

LOCATE 2,3: PRINT "Satz : ";3sn 

FOR i=1 TO af 

LOCATE 2,4+i PRINT CHR$ (18); fb$ (id); 
TAB (28) ;#$(sn,i); 

NEXT i 


i=1 

LOCATE #3,2,2: PRINT #3,CHR$ (241); " 

=weiter {2 SPACE}<ENTER>=KORR <CLR>= 

ENDE"; 

CALL &BB9YF 

LOCATE 28,4+i:CALL &BB8l 

as=INKEY$: IF a$="" THEN 4248 

IF a$=CHR$ (241) THEN i=siti: GOTO 42 

98 

IF a$=CHR$(13) THEN 4265 ELSE IF a$ 

=CHR$ (16) THEN 4318 

LOCATE 28,4+i:PRINT CHR$ (18); : INPUT 
""e$ 

IF LEN(e$)>fc(i) THEN GOSUB 4300: G 

0OTO 4238 

f$(sn,i)=ef 

IF UPPER$ (ft$(i))="N" THEN f$(sn,i) 

=SPACE$ (fc(i)-LEN(e$) )te$ 

LOCATE 28,4+i PRINT CHR$(18);f$(sn, 
i)s:iji=iti 

IF i>af THEN PRINT CHR$(7): GOTO 41 

28 

G0TO 4238 

fehler$=fb$(i)+" zu lang": GOSUB 78 

@: RETURN 

CALL &BB9F:CALL %BB84:G60T0O 4008 

REM *#** Records loeschen #%*# 

CLS 

LOCATE 2,18:FRINT "Verlassen mit >. 

Pa 

LOCATE #4,2,2: INPUT #4,"Satz — Num 

mer: ",„sn# 

IF sn$="." THEN 4900 

sn=VAL (sn$): IF sn=@ THEN 4370 

IF sn>1lr-1 THEN fehler$="Satznummer 
zu gross '":GOSUB 7890:G0T0O 4350 

IF snii THEN sn=1 

LOCATE 2,3: PRINT "Satz : ";sn 

FOR i=1 TO af:LOCATE 2,4+i: PRINT f 

b$(i); TAB(2B) ;f$(sn,i);:NEXT i 

LOCATE #4,2,2: INPUT #4,"Loeschen ( 
J3/n):{2 SPACE}" ,„a$ 

IF UPPER$(a$)="J" THEN #f$ (sn, 1)="#" 
»:GOSUB 89088 

GOSUB 258 

GOTO 4358 

REM **%* Datei loeschen ###* 

CLS 

GOSURB 250: GOSUB 2280 

LOCATE #3,2,2: PRINT #3,"Datei:{2 5 

PACE}"3;3n$; 

LOCATE #4,2,2: INPUT #4,"Loeschen ( 
j/n):(2 SPACE}",a$ 

IF UPPER$(a$)="J" THEN 4568 ELSE 45 

98 


ERASE f$,fb$,ft#,fc:GOSUB 808 
Ir=B:FOR i=1 TO 1508:NEXT 

GOTO 4888 

REM #*** Sortieren SHELL-SORT ##* 
CLS: GOSUB 258: GOSUB 228 

LOCATE 1,2:FOR i=1 TO af:PRINT fb$( 
i)5;SPC(fcti)-LEN(fb$(i))+hvar2);:NE 


xT 
LOCATE 2,18:PRINT "Verlassen mit >. 


LOCATE #4,2,2: INPUT #4,"Schluessel 
5 

IF s$="." THEN 4908 

FOR i=1 TO af 

ss=8: IF s$=fb$(i) THEN ss=i: GOTO 
4678 

NEXT i 

IF ss=@ THEN fehler$="Falscher Schl 
uessel '!": GOSUB 790: GOTO 4408 
LOCATE #3,2,2: PRINT #3, "Bitte war 
ten !" 

DIM h$(ar,af) 























[8C68] 
[FF26] 
[5838] 
LF736] 
[1F2A] 
[F1C6] 
[5782] 
[3590] 


[5374] 


C5BQ4] 
4004] 


[BCACI 
[3862] 


CDOCA] 
[24B8] 
[86EA] 


[CASF6] 
[9BSC]I 
LEBO7C)I 


[70A4] 
[69A4] 
[FF4B] 
[4330] 


[E142] 
tEBSE] 
[B7BE] 


[4ED®] 
[90512] 


[1748] 
[875E] 


[8856] 
[Bö2C] 


[8CDE] 
[4E6B] 
[D@DE]I 
E189E] 


[2D82] 


[1970] 
[ESQOA] 
E1BB6] 


16940] 
[4548] 
C9CB4] 


[63CA] 
[39F6] 


CAA82] 
[1448] 
[4526] 
[9D82] 
[0D98] 
[B9I6B] 


[3718] 
LSAFA] 
[AICE]I 
[D664] 
[O5EC]I 
[ö11E] 
[8D24] 
[F&D8] 
CCCBA] 
[287E] 
[FOC®O] 
[SC2A] 
[88EC] 


L1E88] 
[CF78] 


[805E] 


[236E] 
[B428] 
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FOR i=1 TO Ir:FOR j=1 TO af:h$(i,j) 


=f$(i1,j):#f$li,j)=""SNEXT:NEXT 
GOSUB 8088 

m=lr-i 

m=INT (m/2) 

IF m=B THEN 48538 

j=1 

k=(1r-1)-m 

n=j 

l=n+m 


IF h$(n,ss) < h$(l,ss) 
FOR i=1 TO af 
h$(8,i)=h$(n,i): 
#(1,i)=h$(8,i) 
NEXT i 

n=n-m 

IF n<i1i THEN 4898 
G0OTO 4748 

j=j+1 

IF j <=k THEN 4738 

GOTO 4698 , 

i=B: j=9:k=9:1=9:m=9®:n=Q 

FOR i=1 TO 1r:FOR j=1 TO af:f$(i,j) 
=h$(i,j):NEXT:NEXT 


THEN 4808 
h$(n,i)=h$(l,i): h 


ERASE h$:GOSUB 8908 

GOSURB 258: LOCATE #4,2,2: PRINT #4, 
"Datei ist sortiert '" 

FOR i=1 TO 1588: NEXT i: GOSUB 258: 
GOSUB 228:G0TO 44088 

REM *** AUSGABE #%# 

CLS 

GOSUB 288: GOSUB 2590: GOSURB 228 
LOCATE #2,28,2: PRINT #2,"AUSGA 
B E"j 

IF Ir=® THEN fehler$="Keine Daten v 

orhanden !": GOSUB 788: RETURN 
LOCATE 28,4: PRINT "- 1 -{5 SPACE}E 
inzelne Saetze" 

LOCATE 28,6: PRINT "- 2 -{5 SPACE}A 

usgewaehlte Saetze" 

LOCATE 28,8: PRINT "- 3 -{5 SPACE}A 
lle Saetze" 

LOCATE 28,18: PRINT "- 4 -{5 SPACE} 


Haupt -Menue" 





LOCATE 28,14: PRINT "Bitte waehlen 
sie: "; 

uws=INKEY$: IF uw$="" THEN 51800 

IF uw$="1" THEN 5288 

IF uw$="2" THEN 5580 

IF uw$ " THEN 5808 

IF uw$="4" THEN RETURN ELSE 5180 
REM *** einzel Record #** 


CLS 

LOCATE 2,18:FPRINT "Verlassen mit >. 
FR 

LOCATE #4,2,2: 
mer: ",„sn$ 
IF sn$="." 
sn=VAL (sn$): 
: GOTO 52358 
CLS 

IF sn>ar THEN fehler$="Satznummer z 
u gross": GOSUB 7880: GOTO 5208 

IF sn<1 THEN sn=1 

IF sn>(1r-1) THEN sn=lr-i 
LOCATE 2,3: PRINT "Record: 
FOR i=1 TO af 
LOCATE 2,4+i: 
f$(sn,i); 


INPUT #4,"Satz — Num 


THEN GOTO 5888 
IF sn=®8 THEN GOSUB 258 


"sen 


PRINT #b$(i); TAB(20); 


NEXT i 

LOCATE #3,2,2: PRINT #3,CHR$(241);" 
=vor ";CHR$(248);5" =zurueck";z 

LOCATE #3,24,2: PRINT #3,"<ENTER>= 

NDE"; 

a$s=INKEY$: IF a$="" THEN 5320 

IF a$=CHR$(13) THEN GOSUB 258: GOTO 
5200 

IF a$=CHR$ (241) THEN sn=sn+1: GOTO 
5268 

IF a$=CHR$ (248) THEN sn=sn-1: GOTO 


5260 ELSE 5320 

REM **#* Ausgewaehlte Records ##* 
CLS: G0OSUB 258 
LOCATE 2,1@:FRINT 
Paar 

LOCATE 1,2:FOR i=1 TO af:PRINT fb$ 
ti); SPC (fc(i)-LEN(fb$(i))+hvar2);:N 
EXT 

LOCATE #4,2,2:PRINT #4,"Bitte Suchk 
riterium waehlen ":LOCATE #3,2,2:PR 


"Verlassen mit >. 


INT #3, "{29 SPACE}":=LOCATE #3,2,2: 
INPUT #3," ?: ",such$ 
IF such$="." THEN 52900 


LOCATE 1,2: PRINT CHR$ (24); 

FOR i=1 TO af:PRINT fb$(i)3SPC(fcti 
)-LEN(fb$ (i))+hvar2);:NEXT 

PRINT CHR$ (24); :i=1: j=1:z=1 

LOCATE 1,3+z:FRINT CHR$(2D); 

LOCATE 1,3+z 

a=INSTR(such$,">"):IF a>® THEN 5578 


a=INSTR (such$,"“"): IF a>® THEN 5588 


£CS51C] 
[7362] 
[FFBO] 
L1E4E] 
CAA64] 
[D288] 
£D778]1 
[8B96] 
£[5S33C] 
CBBO1C] 
[8CF2] 


[D83A]1 
[A876] 
[5B4A] 
[B270] 
CAD38] 
[28B2] 
CCD8SE] 
[6F34] 
[8648] 


CBIE2]I 
[2B96] 


ESFDE] 


[SB2ZE] 
LASSA]I 
£L1C90] 
[BAS®] 


[SE9I4] 
ECDDAA] 
[4200] 
CACS2]I 
£[7D98] 
[1D2C] 


CAEEC]I 
[6AACI 
[C41C] 
[D926] 
[3A3Q]I 
[86B8] 
LOCS5A] 
[3494] 


[2F70] 


[F868] 
[8BB&6] 


[F77A] 
L939E]I 


CCF76] 
[ZBSE] 
[2232] 
CBYIEE]I 
[85EE] 


[FA4E] 
[D468] 


[91Bö] 


tCEDCA] 
[3130] 


[7A64] 
[1228] 
£CD98A] 
L9EF6] 
[OF7C] 


LEF&E] 


[2486] 


E[FFA2] 
[ECB4] 
[SEICI 


[247A] 
[BEAB] 
[E2A6] 
CDEFC]I 


CADDC]I 


a=INSTR (such$,"="):IF a>® THEN 5598 


IF LEFT$(#$(i,3j) ,LEN(such$) )=such#$ 

THEN 5688 

IF RIGHT$(#$(i,3) ,LEN (such$) )=such$ 
THEN 5688 

IF j<af THEN j=j+1:G60T0 5565 

IF i<lr-1i THEN i=si+t1:j=1:60T0 5565 

ELSE 5788 

fehler$="Falsche Eingabe":60SUB 788 
:G60T0 5598 

FOR x=1 TO af 

IF LEFT$(such$,a-1)=fb$(x) THEN 557 

4 

NEXT 

fehler$="Falsche Feldbezeichnung":G 

OSUB 720:G60T0 5718 

IF UFFPER$ (#ft$(x))="N" 

E 5575 

IF LEFT$(#$(i,x) ,LEN(MID$ (such$, ati 
)))>=MID$ (such$,a+1)THEN 5688 ELSE 

5577 

IF RIGHT$(#$(i,x) „LEN(MID$ (such$,,a+ 
1))> >=MID$(such$,a+1) THEN 5608 

IF i<lr-1 THEN i=i+1:60T0 5574 ELSE 
5708 

FOR x=1 TO af 

IF LEFT$(such$,a-1)=fb$(x) THEN 558 

4 


THEN 5576 ELS 


NEXT 

fehler$="Falsche Feldbezeichnung":G 

OSUB 728:G60T0 5718 

IF UPPER$ (ft$(x))="N" 

E 5585 

IF LEFT$(#f$(i,x),LEN(MID$ (such$ ati 
I)))<=MID$ (such$,a+1)THEN 5688 ELSE 
5587 

IF RIGHT$(#$(i,x) „LEN(MID$ (such$ ,a+ 
1)))<=MID$ (such$,a+1) THEN 5688 

IF i<lIr-1 THEN i=i+1:60T0 5584 ELSE 
5708 

FOR x=1 TO af 

IF LEFT$(such$,a-1)=fb$(x) THEN 559 
4 


THEN 55864 ELS 


NEXT 
fehler$="Falsche Feldbezeichnung":G 
OSUB 780:60T0 5710 

IF UPPER$ (ft$(x))="N" 
E 5595 

IF LEFT$(#$(i,x) ,„LEN(MID$ (such$ ,a+1 
)))=MID$ (such$,a+1) THEN 5688 ELSE 5 
597 

IF RIGHT$(#$(i,x) ,LEN(MID$ (such$, at 
1)))=MID$ (such$,a+1) THEN 5608 

IF i<lr-1 THEN i=i+1:G60T0 5594 ELSE 
5708 

FOR p=1 TO af: PRINT #$(i,p);SPC(fc 
(p)-LEN(f$(i ,p))+hvar2);:NEXT 
IF i<ir-1 THEN 5618 ELSE 5708 
IF z<15 THEN z=z+1: i=i+tl: j=1: 
0 5561 

z=1: LOCATE #3,2,2: 


THEN 5596 ELS 


GOT 
PRINT #3,CHR$ (2 


41)" = weiter{3 SPACE}<ENTER> = END 
E"; 
as=INKEY$: IF a$="" THEN 5648 


IF a$=CHR$ (241) THEN i=i+t1:j=1:60T0 
5568 ELSE IF a$=CHR$ (13) THEN 50008 


fehler$="Ende der Datei erreicht '" 
» GOSURB 790: GODSUB 228 

LOCATE #3,2,2: PRINT #3,CHR$(241)" 
= Suche{3 SPACE?<ENTER> = MENUE"; 
a$s=INKEY$: IF a$="" THEN 5728 

IF a$=CHR$ (241) THEN 5588 ELSE IF a 
$=CHR$ (13) THEN 5@0B ELSE 5728 


REM *** Alle Saetze ##* 
GES 
LOCATE 1,2: PRINT CHR$(24); 


FOR i=1 TO af:PRINT fb$(i)5SPC (fc ti 
)-LEN(fb$ (i))+hvar2) NEXT 

PRINT CHR$ (24) ;:i=1: j=1:z=1 

LOCATE 1,3+z:PRINT CHR$ (28); 

LOCATE 1,3+z 

FOR j=1 TO af: PRINT #$(i,j):SPC(fc 
(3) -LEN(#$i,j))+hvar2) 5 :NEXT 


IF i<lIr-1 THEN i=i+1 ELSE GOTO 5958 
IF z<15 THEN z=z+1: GOTO 5868 

z=1: LOCATE #3,2,2: PRINT #3,CHR$(2 
41)" = weiter{3 SPACE}<ENTER> = END 
Zr} 

a$s=INKEY$: IF as="" THEN 5918 


IF a$=CHR$ (241) THEN 5858 ELSE IF a 
$=CHR$ (13) THEN 59808 ELSE 5918 
fehler$="Ende der Datei erreicht !" 
: GOSUB 790: GOSUB 228 


LOCATE #3,2,2: PRINT #3,"<ENTER> = 
MENUE" ; 

a$=INKEY$: IF a$="" THEN 5978 ELSE 
5908 


REM *** Datei abspeichern ##* 














[®2DEC]I 
[FEE2] 
£733E] 


LFEE6] 
[CAAE]I 


[3D22] 


LA7C&] 
CE9710) 


[E272] 
[1464] 


[2286] 
[5988] 


LEBFA] 
[3768] 


[FBFE] 
[A812] 


[0376] 
[FC66] 


[9388] 
CFCB6] 


[FiFA] 
EFFSE] 


[A102] 
CBB14] 


[887A] 
[90468] 


TE48A] 
LaFSC] 


[CAE86] 
[SCE8] 
[A686] 


[65B8] 
[96ER] 


LEOSCI 
tE912] 
[8944] 
[95BA] 
CAA76] 


[BD18] 
[09740] 


[C63FA] 
[B4&4E] 
ECCAB] 
[65AB] 
[C97E] 
L7DACI 
LC7AA] 
CEDBB] 
LAB9YA] 
[68E8] 
[4386] 
[3412] 
[6944] 
[9BBEI 
[D584]1 
ESAAA]I 


[B2B8] 
CBB62] 


MAAPPY® 
GANLRULER 












































6818 
6020 
6023 


6025 
6030 
6040 
6845 


6058 
6068 
6878 
6080 
6092 
6108 
6118 
6128 
6138 
6140 
6158 
6168 
6170 
6188 
6198 
6208 
6218 


6220 
6250 
6248 
7008 
70180 
78280 
7023 


7038 
7840 
7050 


7068 
7078 
7072 


79075 


7080 
7290 
7118 
7128 
71380 
7140 
7158 
7168 
7178 
7188 
7198 
7200 
7210 
7228 
7230 
7258 


7260 
7270 
7280 


7290 


7308 
7318 
7320 


7338 
7340 


7358 
8008 
8210 
8020 
8030 
8052 
8040 
8065 
8078 


12000 
129010 
120820 
10023 


128030 
12040 


10050 
12960 





CLS 

GOSUB 289:G0SUB 258 

LOCATE #2,28,2: PRINT #2,"ABSPE 
IEHER N"; 

IF Ir=8 THEN fehler$="Keine Daten v 

orhanden !":z GOSUB 788: RETURN 

LOCATE 1,18: INPUT "Name der Datei: 
"un$ 

LOCATE 1,15: FRINT "Bitte Cassette 

einlegen. REC und PLAY druecken !" 

LOCATE 1,16: PRINT "Druecken Sie EN 

CALL %BB18 





PRINT #9,ar 
PRINT #9,af 
FOR i=1 TO af 
PRINT #9,fb$(i) 
PRINT #9,ft$(i) 
FRINT #9,fc(i) 
NEXT i 
PRINT #9,1r 

FOR i=1 TO Ir 
FOR j=1 TO af 
FRINT #9,f$%(i,)j) 
NEXT j 
NEXT i 
CLOSEOUT 
LOCATE #4,3,2: 
chert !"; 
FOR z= 1 TO 2B898:NEXT z 

GOSUB 258 

RETURN 
REM *** DATEI LADEN #** 

CES 
GOSUB 280:G0SUB 258: GOSUB 2208 
LOCATE #2,28,2: PRINT #2,"L ADEN 
IF 1r>® THEN fehler$="Datei noch ex 
istent !": GOSUB 728: RETURN 

LOCATE 2,18: INPUT "Name der Datei 
zum Laden: ",n$ 
LOCATE 2,12: PRINT 
cken !"; 
OPENIN" !"+n$ 
INFUT#9, file$ 
IF file$< >n$THEN CLOSEIN: fehler$=fi 
le$s+"i2 SFACE}gelesen '!":GOSURB 728: 
G0TO 72090 
LOCATE #3,3,2: 
ile$ 

INPUT #9,ar 
INPUT #9,af 

DIM f$(ar,af) 
FOR i=1 TO af 
INFUT #9,fb$(i) 
INPUT #9, ft$(i) 
INPUT #9,fc(i) 
NEXT i 

INPUT #9,1r 
FOR i=1 TO Ir-1 
FOR j=1 TO af 
INPUT #9,f$%(i,)5) 
NEXT j 
NEXT i 
CLOSEIN 
REM ##*%* 
*r* 
FOR i=1 TO Ir-1 
FOR j=1 TO af 

IF UPPER$(#ft$(j))="N" 
E 7300 
f$t(i1,1)=SPACE$(FCc(j)-LEN(FF(i,J)))+ 
##(i,)j) 
NEXT 
NEXT 
hvari=@:FOR i=1 TO af:hvari=hvari+f 
c(i):NEXT 

hvar2=FIX((88-hvari)/af) 

IF hvar2<i1 THEN hvar2=1 ELSE IF hva 
r2>1@ THEN hvar2=1® 
RETURN 
REM #** Facken der Datei 
FOR i= sn TO Ir-1 

FOR j=1 TO af 
f$(i,j)=f$(i+1l,j) 

NEXT j 
NEXT i 

Ir=1r-i 
RETURN 

REM #** PROGRAMM ENDE ##*# 

CLS 

GOSUB 289:G0OSUB 228 

LOCATE #2,28,2: PRINT #2,"FROG 
R AM M{S SPACE}YE NDE":;: 

REM 

LOCATE 1,8: INPUT "Haben Sie sich 
das gut ueberlegt ? ",a 

IF UPPER$(a$)<>"J" THEN RETURN 
MODE 2: BORDER B: END 


PRINT #4,n$;" gespei 


"Bitte FLAY drue 


PRINT #3,"Datei: ";f 


Nummerische Werte ablegen *# 


THEN 7298 ELS 


*r%# 


Listing. Datenverwaltung (Schluß) 


[2592] 
CDB16] 


[DBEE] 
[FSB4] 
[77D®] 
[A544] 


[97316] 
[187C] 
[BS66] 
[D7EA] 
[B8D4] 
[89JEE] 
[A884] 
E[SFAA] 
[7642] 
[C264) 
[DFFC] 
[8716] 
[AAECI 
[LSEFA] 
[9A7B8] 
LAA7O] 
[&DACI 


[2SSE] 
[5762] 
[3C44] 
[A798] 
[989724] 
[3694] 
[32534] 


[9BOF®] 
[2C7C] 
[31976] 


[6F16] 
[3FB®] 
[CF94] 


[DC7C]I 


[8ED6] 
[BAF4] 
[8EDE] 
[EFO8] 
[8FEA] 
[51972] 
[A8BB] 
[C658] 
[AE6C]I 
[B3QA] 
[BFDA] 
[1@F4] 
[A43F6] 
[D766] 
[E766] 
L7EF2] 


[D886] 
[DDD8] 
[A&F2]I 


L1D3A] 


[9ESA] 
[F452] 
[1854] 


[25SBE] 
[3606] 


LEAGE] 
[BE9E] 
[B&BB] 
[978&C] 
[AdE6] 
[2178] 
[&D&C) 
[156C] 
[8094] 
[879E] 
[BAE4] 
[BFEB] 
[A666] 


LA4BE ] 
[7CFB] 


[451A] 
[B944] 
[BS4E] 





Glatter Bruch 








mit allen Einzelheiten. 


Einem echten Bruch sieht man 
nicht von vornherein an, wie er als 
Dezimalzahl ausschaut. Das Pro- 
gramm »Division« zeigt einen Bruch 


ach »RUN« erwartet das Programm die Eingabe von 
Zähler und Nenner. Jetzt werden Sie denken, daß 
Ihr CPC auch ohne dieses Programm Brüche be- 


rechnen kann, wenn Sie beispielsweise eingeben »PRINT 
2/3«. Richtig. Aber was Ihr Computer als Ergebnis bringt, ist 
schlicht unbefriedigend. Erstens zeigt er nur neun Stellen 
nach dem Dezimalpunkt. Und dann verschweigt er Ihnen glatt 
wichtige Informationen. Hier setzt das Programm »Division« 
an. So erfahren Sie zum Beispiel, daß 93727 geteilt durch 
11300 einem gemischt-periodischen, unendlichen Dezimal- 
bruch entspricht, wobei die Periode an der dritten Nachkom- 
mastelle beginnt und jeweils 112 Ziffern lang ist. Auf dem Bild- 
schirm wird außerdem das Ergebnis mit 114 Stellen hinter 
dem Komma dargestellt. 
















































118 
128 
138 


140 


158 
168 
178 
188 
185 
198 


200 
218 
228 
238 


2408 
258 


268 
278 


288 


298 
308 
318 
328 
338 
348 
358 
368 
378 
388 
390 


400 
418 
420 


438 


440 
458 


468 
470 
480 
498 


5o8 
518 


MODE B:LOCATE 1,11:PRINT STRING$ (19, 


(Wolfgang Jäger/ja) 


gu) 
PRINT=PRINT"* DIVISION +" 
"*#*# (C) — Okt./1985 - Wolfgang A. J 
AEGER *** 

... <Version 22? PF 1731, 7608 
Offenburg **%* 

PRINT=:PRINT STRING$(19,"*") 

LOCATE 3,25:PRINT"- bel. Taste -" 
DEFINT i,n,y,‚,r 

DEFREAL x 

FOR i=1 TO 1888: IF INKEY$="" THEN NE 
xT 

MODE 2 

LOCATE 1,18: INPUT"Zaehler = ",x 


IF ABS(x)<>INT(x) OR x=B THEN 210 
LOCATE 1,14: INPUT"Nenner {2 SPACE}I= " 


ıYy 
IF ABS(y)<>INT(y) OR y#y=y THEN 230 
FOR i=1 TO 588: IF INKEY$="" THEN NEX 
1 
CLS:PRINT=:PRINT 
PRINT RIGHT$ (STR$ (x) „LEN(STR$(x))-1) 
"/"RIGHT$ (STR$(y) „LEN (STR$(y))-1) "=" 
RIGHT$ (STR$ (INT (x/y)) „LEN(STR$ (INT (x 
ZI 2-17",77 
IF y/x>1 THEN n=ROUND (LOG1@(y/x)+1) 
ELSE n=® 
n=y+n 
DIM rest (n) 
FOR i=1 TOn 
x=x-y#INT (x/y)zrest (x)=rest (x) +i 
IF x=® THEN PRINT:GOTO 398 
IF i=1 THEN 368 
IF rest (x)<>i THEN PRINT:GOTO 488 
x=x#18 
PRINT RIGHT$(STR$(INT(x/y)),1d5; 
NEXT i:PRINT:PRINT 
LOCATE 1,28:PRINT"> Endliche Dezimal 
zahl":PRINT"{2 SPACE}mit"i-1"Nachkom 
mastellen":G60TO 478 
LOCATE 1,28:PRINT"> Unendliche Dezim 
alzahl " 
IF rest (x)<>i+1 THEN 4538 
PRINT"> Rein-periodisch{8ß SPACE}":FPR 
INT"> Periodenlaenge: "i-1" ":G60TO 47 


[4] 
PRINT"> Gemischt-periodisch{4 SPACE} 


PRINT"> Periodenbeginn an der " 
PRINT "{2 SPACE} "RIGHT$ (STR$ (rest (x) 
-i),1)"ten Nachkommastelle " 

PRINT"> Periodenlaenge: "2*#i-rest (x) " 


LOCATE 1,25:PRINT" (1) neue Divisiont 
& SPACE} (2) Ende " 
as=INKEY$: IF as="" 
IF as="1" 
IF as<>"2" 
MODE 1::END 


THEN 488 
THEN RUN 188 
THEN 488 





























Listing. Jetzt kann der CPC »richtig« rechnen 





CF15C] 
[4346] 
CE@B4] 


CDCB2] 


[SBEB] 
[E1BA] 
[O3F6] 
[7OFA]I 
ECAB2] 
[B792] 


(78F0] 
CABS2] 
[4B86] 
LASF@] 


[168A] 
LESD6] 


[2392] 
[8AS5®] 


£[D178] 


[CF7ZE] 
CZAF®] 
[3A54]2 
[&DC6] 
LOCCE] 
[C26A] 
[a59A] 
[8368] 
[FCö2] 
EBCF8] 
[3722] 


CCD82] 
[57D8] 
CDB6B] 


[66D8] 


[4CE2] 
EBSF4] 


[8550] 
CAF44] 


[982A] 
[E838] 
[3C88] 
[91C8] 
CB4EE] 
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CPIM 





Weltstandard 
mit einem 


8080-Assembler 








ie Schneider-Computer stam- 
men, auch wenn das die Mana- 
ger von Amstrad und Schnei- 
der nicht so gerne hören, aus der 
Heimcomputer-Ecke. Schließt man 
allerdings ein Diskettenlaufwerk an und 
benutzt das Betriebssystem CP/M der 
mitgelieferten System-Diskette, so 
wandelt sich das Gerät in einen Compu- 
ter, der professionelle Programme be- 
arbeiten kann. Die Software-Hersteller 
haben das erkannt und bieten Ihre Pro- 
dukte zu Preisen an, die der normalen 
Heimcomputer-Software entspricht. 
Das Thema CP/M kann man aber 
auch andersherum betrachten. CP/M- 
Programme auf dem Schneider lassen 
sich fast ohne Probleme auf andere 
CP/M-Computer übertragen. Das Hand- 


zu Schreiben Sie die 
mE <ortware für Ihren 


a Schneider unter 
CPIM! Dann läuft sie auch auf 
tausend anderen Computern, 
denn CPIM ist ein echter Welt- 
standard. Und so geht’s! 


buch geht leider auf das Betriebssytem 
fast überhaupt nicht ein. Dabei gibt es 
viele Bereiche, in denen man ohne CP/M 
nicht auskommt. 

Die großen Softwarehäuser stehen 
schon immer vor einem nahezu unlös- 
baren Problem: 

Sobald ein neuer Computer vorge- 
stellt wird, sollen von Anfang an mög- 
lichst viele Programme lieferbar sein. 











Meist können die Firmen auch sehr viel 
Softwareliefern - dochleider nur für das 
Konkurrenzmodell. Jedes Programm 
muß so von Grund auf neu entwickelt 
werden, damit es an die jeweilige Hard- 
ware des neuen Gerätes optimal ange- 
paßt ist. Während die Firmen eifrig Soft- 
ware für den neuen Computer schrei- 
ben, vergehen meist Monate, bis die 
ersten Programme fertig sind und ver- 
kauft werden können. In der Zwischen- 
zeit kann viel passieren. Das Schlimm- 
ste von allem ist wohl, daß sich das 
Gerät als Flop erweist und der Herstel- 
ler die Produktion einstellt. Dann sind 
die ganzen Investitionen der Software- 
häuser »in den Sand gesetzt«. Da man 
solche Risiken nur schwer abschätzen 
kann, entsann man sich einer simplen, 
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aber doch äußerst wirksamen Lösung. 
Ein Standard-Betriebssystem war 
gefragt. Dieses mußte genau definierte 
Programmiermöglichkeiten bieten und 
leicht auf eine Vielzahl von Computern 
anzupassen sein. Da dann die Pro- 
gramme praktisch unverändert über- 
nommen werden können, sparen die 
Firmen einen Großteil ihrer Entwick- 
lungskosten und können innerhalb kür- 
zester Zeit lauffähige Software für eine 
ganze Reihe verschiedener Computer 
auf den Markt bringen. 


Am Anfang stand 
® } 
die Vielfalt 

Es gibt eine Vielzahl solcher 


Standard-Betriebssysteme, beispiels- 
weise MS-DOS, UNIX, FLEX, OS-9 und 
in gewisser Weise auch das von den 
Atari-Computern her bekannte GEM. 
Diese Betriebssysteme sind meist 
genau auf einen Mikroprozessor zuge- 
schnitten. Da im 8-Bit-Bereich der Z80 
sowie der 8080 und der 8085 eine 
dominierende Marktstellung besitzen, 
ist hier auch das CP/M-Betriebssystem, 
das mit diesen drei Prozessoren arbei- 
tet, sehr weit verbreitet. 

Das Betriebssystem CP/M wurde von 
der amerikanischen Firma Digital Re- 
search entwickelt. Diese Firma brachte 
eine ganze Familie von CP/M-Betriebs- 
systemen auf den Markt, die in ihrer 
Fülle leicht verwirren können. Da 
schwirren Begriffe wie CP/M 1.0, CP/M 
2.2, CP/M 3.0, CP/M Plus, CP/M-86, 
CP/M-80, CP/M-86/80, CCP/M, MP/M 
und einige andere durch den Raum. 

Fangen wir der Reihe nach an. CP/M 
1.0 ist die erste vorgestellte Version 
dieses Betriebssystems und wird heute 
von so gut wie niemandem mehr be- 
nutzt. CP/M 2.2 wurde gegenüber die- 
ser Version stark erweitert und von Pro- 
grammierfehlern befreit. Heute ist 
CP/M 2.2 die am weitesten verbreitete 
Version und befindet sich auch bei den 
Computern der CPC-Reihe im Liefe- 
rumfang. CP/M 3.0 und CP/M Plus sind 
ein und dasselbe: eine Fortentwicklung 
von CP/M 2.2. Die hervorstechendste 
Verbesserung ist die Fähigkeit, mehr 
als 64 KByte Speicher verwalten zu 
können. Es gibt aber auch eine »abge- 
speckte« Version von CP/M 3.0, die mit 
64 KByte auskommt. Sie benötigt 
erheblich mehr Speicherplatz als CP/M 
2.2. Ein Benutzer wird deshalb kaum 
auf sie zurückgreifen. CP/M-80 ist ein 
etwas mißverständlicher Name, denn er 
sagt nur aus, daß das Betriebssystem 
für Mikroprozessoren der 80er-Klasse, 
also den 8080 und 8085 des Chipher- 
stellers Intel und den Z80 von Zilog 
geeignet ist. Darunter würden also alle 
Versionsnummern von 1.0 bis 3.0 fal- 


len. Im allgemeinen Sprachgebrauch ist 
damit aber immer die Version 2.2 
gemeint. 

Die anderen Namen der Betriebssy- 
steme brauchen Sie eigentlich gar nicht 
zu interessieren, da diese auf dem 
Schneider nicht implementiert werden 
können. CP/M-86 läuft auf den Prozes- 
soren 8086, 8088, 80186 und 80286 
(alle von Intel). Beidiesen CPUs handelt 
es sich um 16-Bit-Prozessoren, die vor 
allem beim IBM-PC und dessen Kompa- 
tiblen Verwendung finden. Somit steht 
CP/M-86 mit Microsoft MS/PC-DOS in 
Konkurrenz. CP/M-86/80 ist eine Spe- 
zialentwicklung von Digital Equipment 
für den Rainbow 100. Dieses CP/M ver- 
arbeitet gleichermaßen - 8-Bit- und 
16-Bit-Software. Die übrigen Systeme - 
CCP/M, MP/M und was es sonst noch 
gibt - sind Versionen, die das gleichzei- 
tige Abarbeiten mehrerer Programme 
oder die Bedienung mehrerer Benut- 
zer, die an verschiedenen Terminals 
des gleichen Computers sitzen, ermög- 
lichen. 

Natürlich müssen Sie nicht alle diese 
Versionen auseinanderhalten können. 
Merken Sie sich nur, daß allein 
CP/M-2.2 (CP/M-80) und CP/M-3.0 
(CP/M-Plus) für Sie interessant sind. 
Wenn wir im folgenden von CP/M spre- 
chen, ist immer die Version 2.2 ge- 
meint, sofern nichts anderes erwähnt. 


CP/M und Maschi- 
nensprache sind 
untrennbar mitein- 
ander verbunden 


Zu CP/M gehört immer die Maschi- 
nensprache des 8080-Prozessors von 
Intel. Auch wenn im Schneider ein Z80 
von Zilog eingebaut ist, ist dieses 
Standard-Betriebssystem in 8080-As- 
sembler geschrieben. Der Grund dafür 
ist einfach. Der Befehlssatz des 8080 
und auch des 8085 ist ein Teil des 
Z80-Befehlsvorrats. Oder andershe- 
rum: Der Z80-Prozessor ist eine Wei- 
terentwicklung des 8080 und des 
8085. Da CP/M möglichst universell 
einsetzbar sein sollte, hat sich Digital 
Research dazu entschlossen, auf die 
zusätzlichen Z80-Befehle zu verzich- 
ten und deshalb das Betriebssystem in 
8080-Assembler entwickelt. Sofern 
Sie Software schreiben wollen, die auf 
allen CP/M-Computern lauffähig sein 
soll, können Sie somit die Besonderhei- 
ten des Z-80-Prozessors nicht ausnüt- 
zen, da einige CP/M-Geräte immer 
noch die Intel-Prozessoren verwenden. 
Einem eingefleischten Z80-Program- 
mierer wird es in der Seele leid tun, 
wenn er die leistungsfähigen Erweite- 
rungen »seines« Prozessors nicht 


CPIM 


immer benutzen darf, zum Beispiel die 
relativen Sprünge, die Blockverschie- 
be- und Blocksuchbefehle, die beiden 
zusätzlichen Indexregister IX und IY, die 
Bit-Befehle SET, RES und BIT und die 
komfortablen Schiebe- und Rotierkom- 
mandos. Man kann aber davon ausge- 
hen, daß etwa 95 Prozent der heutigen 
CP/M-Computer mit einer Z80-CPU 
ausgerüstet sind. Verwendet werden 
heute die Intel-Typen vorrangig in Hand- 
Held-Computern, weil es eine CMOS- 
Version 80C85 gibt, die besonders 
stromsparend arbeitet. Und darauf 
kommt es bei Batteriebetrieb eben an. 
Die Mengenverhältnisse der beiden 
Prozessorgruppen haben aber inzwi- 
schen auch schon einige Software- 
firmen erkannt und Programme auf den 
Markt gebracht, die ausschließlich mit 
einem Z80 laufen. Prominentestes Bei- 
spiel dafür dürfte Borland International 
mit Turbo-Pascal sein. 

Wenn Sie sich nicht mit Maschinen- 
sprache beschäftigen wollen, aber den- 
noch planen, CP/M-Programme zu 
schreiben, können Sie auf eine Vielzahl 
von Compilersprachen zurückgreifen. 
Es gibt eine ganze Reihe von C-Com- 
pilern, ebenso PL/I, Cobol, Fortran und 
nicht zuletzt Turbo-Pascal. Allerdings 
müssen Sie sich diese Compiler erst 
kaufen, während ein Assembler (beim 
CPC 6128 sind es sogar deren drei) 
zum Lieferumfang der Diskettenstation 
gehört. Auch werden Sie in einer Hoch- 
sprache nie die volle Leistungsfähigkeit 
eines gleichartigen Maschinenpro- 
gramms erreichen, schon allein des- 
halb, weil der Aufruf von Betriebssy- 
stem-Routinen in den meisten Compi- 
lersprachen einige Probleme hervor- 
ruft. Deshalb geben wir Ihnen im folgen- 
den eine Einführung in die 8080-Ma- 
schinensprache. 

Wollen Sie die Einführung in Assem- 
bler verstehen, ist es sehr hilfreich, 
wenn Sie in Basic einige Grundlagen 
und den Unterschied zwischen Dezi- 
mal-, Hexadezimal- und Binärzahlen 
kennen. Haben Sie damit noch Pro- 
bleme, so ist es besser, wenn Sie erst 
Ihre Kenntnisse in Basic vertiefen, 
bevor Sie auf CP/M umsteigen. Das 
zum Lieferumfang der Schneider- 
Computer gehörige Handbuch enthält 
übrigens eine Einführung in Binär- und 
Hex-Arithmetik. 

Im Locomotive-Basic, das sich beim 
Schneider im ROM befindet, werden 
Hexadezimalzahlen durch ein vorange- 
hendes kaufmännisches Und-Zeichen 
(&) dargestellt. Verschiedene Assem- 
bler, beispielsweise der Devpac- 
Assembler von HiSoft ziehen das Dop- 
pelkreuz (#) vor, während der CP/M- 
Assembler ein nachgestelltes H ver- 
langt. Also ist zum Beispiel 2000H 
gleich &2000 oder #2000. 
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Die 80er-CPUs sind 8-Bit-Prozesso- 
ren. Das heißt, ihr Datenbus ist 8 Bit 
breit. Der Datenbus sind die Beinchen 
am Chip, über die der Prozessor Daten 
mit dem Speicher austauscht. Der 
zweite Bus ist der Adreßbus. Dieser hat 
eine Breite von 16 Bit. Damit lassen sich 
also 2'° Byte (= 65536 Byte = 64 
KByte) adressieren. Immer wenn der 
Chip in den Speicher ein Byte schrei- 
ben oder aus diesem ein Byte lesen will, 
muß er den Speicherbausteinen über 
den Adreßbus die gewünschte Adresse 
mitteilen, und kann sich dann das Byte 
über den Datenbus abholen, bezie- 
hungsweise über diesen Bus an die 
RAM-Chips schicken. Über den Daten- 
bus holt sich der Prozessor sowohl 
seine Programmierbefehle als auch die 
zu verarbeitenden Daten. Der Mikropro- 
zessor tut also nichts anderes, als sich 
dauernd aus dem Speicher Befehle und 
die zugehörigen Daten zu besorgen, 
diese zu kombinieren und wieder 
zurückzuschreiben. Dies macht er 
solange, bis ihm der Strom abgeschal- 
tet wird. 

Jeder Mikroprozessor arbeitet mit 
Registern. Register sind Speicher- 
plätze im Prozessor, sozusagen ein 
Mini-RAM in der CPU. In diesen Regi- 
stern kann der Programmierer die wich- 
tigsten, also regelmäßig benötigten 
Daten aufbewahren. Register lassen 
sicht entfernt mit den Variablen in Basic 
vergleichen. Man kann mit diesen Regi- 
stern rechnen und sie miteinander bei- 
spielsweise logisch verknüpfen. Es ist 
klar, daß ein Mikroprozessor um so ein- 
facher zu programmieren ist, je mehr 
Register er besitzt. Die 8080-CPU ist 
für den 8-Bit-Bereich ein in dieser Hin- 
sicht sehr komfortabler Prozessor, 
denn es gibt sieben frei verwendbare 
Register. Diese erhalten als Bezeich- 
nung je einen Buchstaben. A,B,C,D,E,H 
und L sind die Registernamen. Die 
Register können genau so viele Bits 
aufnehmen, wie auf den Datenbus pas- 
sen: 8 Bit. Damit lassen sich 2®, also 
256 Zahlen darstellen. 


8080-Assembler 
kommt zu 
ungeahnten Ehren 


Die Inhalte der Register lassen sich 
beliebig austauschen. Dazu dient der 
MOV-Befehl. MOV steht für »Move« und 
heißt übersetzt »Bewege« oder - freier 
- »kopiere nach«. Ein kleines Beispiel: 
MOV D,H heißt, daß der Inhalt des H- 
Registers ins D-Register geladen wird. 
Dabei bleibt das H-Register natürlich 
unverändert, denn der Prozessor legt - 
wie gesagt - nur eine Kopie des Werts 
im anderen Register an. Achten Sie 


aber auf die Reihenfolge, in der die 
Operanden (die Register) angegeben 
werden. 

Weitere Beispiele für den MOV- 
Befehl sind MOV A,C; MOV H,L; MOV 
L,H; MOV DC und so weiter. Wenn Sie 
in Basic Variablen mit den gleichen 
Namen wie die Register verwenden, 
können Sie die Beispiele dort so schrei- 
ben: 

»A=C«»H=L«»L=H«»D=COe«. 

Nun hätte es wenig Sinn, ständig die 
Inhalte der Register hin- und herzuko- 
pieren, ohne eine Möglichkeit zu 


Rechnen 
kann er auch 


haben, ein Register direkt mit einer Zahl 
zu laden. Dazu dient der Befehl MVI 
(Move Immediate, »Lade den unmittel- 
bar folgenden Wert«). Geben Sie zum 
Beispiel den Befehl MVI C,26, dann 
erhält das C-Register den Wert 26 
zugewiesen. In Basic hieße das 
»C=26«. Der größte Wert, den ein sol- 
ches Register speichern kann, ist 255, 
der kleinste die Null. Es sind nur ganze 
Zahlen erlaubt, keine Fließkommawerte 
wie 3,14 oder 0,27. 

Bisher wurde stillschweigend voraus- 
gesetzt, daß alle Register gleichwertig 
sind. Dem ist aber nicht so, denn das A- 
Register hat viel mehr zu tun als alle 
übrigen Register. Das A-Register wird 
auch Akkumulator oder kurz Akku 
genannt. Wenn Sie sich die lateinische 
Bedeutung des Wortes anschauen, 
bekommen Sie vielleicht eine Ahnung 
von den Aufgaben dieses Registers: 
»accumulare« heißt »anhäufen« oder 
»ansammeln«. Dieses Ansammeln ist 
durchaus wörtlich zu nehmen. Alle 
8-Bit-Rechenbefehle benötigen den 
Akku als den einen der beiden Operan- 
den und schreiben das Ergebnis wieder 
in den Akkumulator. So »sammelt« sich 
mit der Zeit im Akkumulator das 
Rechenergebnis an. 

Die »grundlegendste« aller Grundre- 
chenarten ist die Addition. Dazu gibt es 
folgende Addierbefehle: 

ADD A, ADD B, ADD C, ADD D, ADD 
E, ADDH und ADDL. 

Da der Akku zu diesen Befehlen 
immer benötigt wird, wird er gar nicht 
mehr angegeben. ADD B addiert also 
den Inhalt des B-Registers zum Inhalt 
des Akkus und speichert das Ergebnis 
wieder im Akku. 

Versuchen Sie noch einmal, anhand 
der bereits bekannten Befehle das 
nachfolgende Miniprogramm zu analy- 
sieren! 


1 WIA3 
2 MI C,45 
3, ADNE 


Zuerst lädt das Programm den Akku 
mit dem Wert 3 und das C-Register mit 
der Zahl 45. In Zeile 3 addiert der Com- 
puter den Inhalt des C-Registers (45) 
zum Inhalt des Akkus (3) und speichert 
das Ergebnis wieder im Akku ab. Dort 
steht also 48. Das C-Register bleibt 
natürlich unverändert und behält den 
Wert 45. 

Merken Sie sich also: Bei den 8-Bit- 
Arithmetikbefehlen ist immer der Akku 
einer der beiden Operanden und das 
Ergebnis wird immer im Akku abgelegt. 

Er gibt auch einen Befehl, der zum 
Akkuinhalt direkt - ohne Umweg über 
ein Register - einen Wert addiert. ADI 
steht immer für »Add Immediate«, 
(Addiere den unmittelbar folgenden 
Wert). Das obige 3-Zeilen-Programm 
läßt sich mit diesem Befehl vereinfa- 
chen: 

1 MVI A,3 
2 ADI 45 


Der Unterschied liegt darin, daß das 
C-Register bei diesem Programm nicht 
benötigt wird. Es kann also für andere 
Zwecke freigehalten werden. 

Wenn es Additionsbefehle gibt, muß 
es auch Befehle zur Subtraktion zweier 
Zahlen geben. Analog zu ADD und ADI 
sind sie mit SUB und SUI benannt. Sub- 
traktionen sind wieder mit allen Regi- 
stern möglich, wobei der Akku den Wert 
enthält, von dem der andere Wert abge- 


zogen wird: 
1 MVI A,26 
2 MVI C,10 
3 SUB C 


Der Comptuer führt die Rechnung 26 
- 10 = 16 durch und speichert das 
Ergebnis im Akku. Auch dieses Pro- 
gramm läßt sich mit dem Immediate- 
Befehl SUB (Subtract Immediate) ver- 
einfachen: 
1 MVI A,26 
2 SUI 10 

Diese zwei Befehle erfüllen dieselbe 
Aufgabe wie die vorherigen drei, bele- 
gen aber wiederum kein zusätzliches 
Register. 


Zählen ist erheblich 
einfacher 


Da in Maschinencode-Programmen 
sehr häufig der Inhalt der Register um 
Eins erhöht oder vermindert werden 
muß, wurden Befehle in den Chip inte- 
griert, mit denen man jedes Register 
direkt - also nicht über den Akkumula- 
tor - dekrementieren (um Eins vermin- 
dern) oder inkrementieren (um Eins 
erhöhen) kann. Diese Befehle werden 
schneller als die Addition ausgeführt 
und brauchen nur ein Byte Speicher (im 
Gegensatz zu den zwei Byte bei der 
Addition). Sie heißen DCR (Decrement) 
und INR (Increment): 
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COMPUTER-ZEITSCHRIFTEN 
VON PROFIS FÜR PROFIS 





COMPUTER PERSÖNLICH 





Das aktuelle Fachmagazin 
für Personal-Computer. 


* Wenn Sie jetzt den Schritt vom 
Heim-Computer zur professionel- 
len Anwendung eines Personal 
Computers planen 


* Wenn Sie beruflich oder privat 
bereits einen Personal Computer 
benutzen 


* Wenn Sie regelmäßig Informatio- 
nen über das aktuelle Produkt- 
angebot benötigen 


%* Wenn Sie selbst programmieren 


%* Wenn Sie professionelle Hard- 
und Softwaretests suchen 


* Wenn Sie Ihr eigenes System 
möglichst effizient einsetzen wol- 
len 


dann ist »Computer persönlich«, das 
aktuelle Fachmagazin für Personal 
Computer, genau Ihre Zeitschrift. 


Die konsequente Ausrichtung auf 
professionelle Anwendungen bietet 
Ihnen alle wichtigen Informationen. 


Von Profis für Profis! 


»Computer persönlich« gibt es alle 
14 Tage neu bei Ihrem Zeitschriften- 
händler oder im Computer-Fach- 
geschäft. 


PC MAGAZIN 





Einzige Wochenzeitung für Personal 
Computer im IBM-Standard. 


Sie beschäftigen sich beruflich oder 
privat mit dem Einsatz und der 
Anwendung von Personal 
Computern? 


Sie sind an aktuellen, professionel- 
len Informationen über IBM-PCs, 
kompatible Systeme und deren pro- 
fessionellen Einsatz interessiert? 
Dann ist das PC Magazin genau auf 
Ihre persönlichen Bedürfnisse 
zugeschnitten. 


Es wird von anerkannten und er- 
fahrenen Fachjournalisten für pro- 
fessionelle Anwender und Fachleute 
geschrieben. 


Es berichtet jede Woche ausschließ- 
lich über Computer im IBM-Standard 
und kompatible Systeme, über 
Hard- und Softwareneuheiten. 

Es bringt ausführliche Testberichte 
und gibt Ihnen wichtige Informatio- 
nen über Netzwerke sowie die 
PC/Host-Verbindung. 


Nur diese Spezialisierung ermöglicht 
eine gezielte Berichterstattung und 
bietet genügend Raum, um auf An- 
wondarpreklems spezifisch eingehen 
zu können. 


Von Profis für Profis! 


Und das jeden Mittwoch neu bei 
Ihrem Zeitschriftenhändler oder im 
Computer-Fachgeschäft. 
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CPIM 


DCR A, DCR B, DCR C, DCR D, DCR 
E, DCR H, DCRL sowie INR A, INR B, 
INR C, INR D, INR E, INR H und INRL. 

Ein einfaches Beispiel für beide 
Befehle soll hier genügen: 


J. MVI C,26 

2 DCR C C ist jetzt 25 

3 MVI E,24 

4 INR E E ist jetzt 
auch 25 


Wenn Sie sich jetzt fragen, wann die 
Multiplikations- und Divisionsbefehle 
erklärt werden, müssen wir Sie enttäu- 
schen. Der 8080-Prozessor kennt - 
wie die Mehrzahl der 8-Bit-Prozesso- 
ren - keine Punktrechnung. Diese 
Berechnungen müssen mit Hilfe von 
selbstprogrammierten Routinen durch- 
geführt werden. Schließlich läßt sich 
beispielsweise eine Multiplikation - 
wenn auch umständlich - durch eine 
Reihe von Additionen ersetzen. 


Logeleien im 8080 


Statt dieser beiden Rechenarten 
beherrscht unsere CPU vorzüglich eine 
Reihe von logischen Befehlen, nämlich 
UND, ODER, EXCLUSIV-ODER und 
NICHT. Diese Logikbefehle arbeiten auf 
Bit-Ebene und verknüpfen der Reihe 
nach jeweils die beiden Bits zweier Zah- 
len, die an der gleichen Stelle stehen, 
also die gleiche Wertigkeit besitzen. 
Was hier recht kompliziert klingt, läßt 
sich einfach im Binärsystem darstellen. 
Dazu dienen uns zwei Binärzahlen als 
Beispiel: 

OA hex = 10 dezimal = 0000 1010 
A6 hex = 16 dezimal = 1010 0110 

Beim logischen Oder wird im Ergeb- 
nis ein Bit gesetzt, wenn in einer der 
beiden Zahlen - oder auch in beiden - 
jeweilige Bit gesetzt sind: 

0000 1010 
1010 0110 


1010 1110 


Es gilt hier: O or 1=1, 1 or 0=1,0 or 
0=0 und 1 or 1=1. 

Sie können Rechnungen auch in 
Basic durchführen. Dort gibt es alle 
8080/Z80-Logikbefehle auch. Sie hei- 
Ben dort: AND, OR, XOR und NOT. Tip- 
pen Sie also unter Basic ein: »PRINT 
BIN$ (&X00001010 OR &X10100110«, 
und Sie erhalten das Ergebnis 
»10101110«. 

Wie bei den Arithmetikbefehlen gibt 
es zwei ODER-Kommandos. Eines zur 
Verknüpfung des Akkus mit einem 
Register, nämlich ORA (Or Accumula- 
tor, ODER Akku) und ORI (Or Imme- 
diate, Akku ODER unmittelbar folgen- 
der Wert) zur Verknüpfung des Akkus 
mit einem direkt angegebenen Wert. 
Einer der Operanden muß also immer 
im Akku stehen. Die obige Rechnung 


oder 





läßt sich in Maschinencode und Basic 
so umsetzen: 

1: MVI A,OAH - A=&0A 

2 MVI D,A6H - DO&A6 

3 ORA D - A=A OR D 

Da der Akku beim ORA-Befehl mit 
allen Registern geODERt werden darf, 
sind die Befehle ORA A, ORAB, ORAC, 
ORA D, ORA E, ORA H und ORAL 
zulässig. 

Der ORI-Befehl, der die unmittelbare 
Angabe einer Zahl gestattet, verkürzt 
das Programm auf zwei Zeilen: 

1 MVI A,0AH - A=&0A 
2 ORI A6H - A=A OR &A6 

Das logische UND ist etwas anders 
definiert. Ein Bit wird gesetzt, wenn 
sowohl in der ersten als auch in der 
zweiten Zahl dieses Bit gesetzt ist. 
Andernfalls wird es gelöscht (»zurück- 
gesetzte): 

0000 1010 
1010 0110 


0000 0010 

Diese Regeln lauten damit beim logi- 
schen UND: O and 1=0, 1 andO=0, 0 
and 0=0, 1 and 1=1. 

Die zwei Befehle heißen ANA (And 
Accu, Akku UND Register) und ANI 
(And Immediate, Akku UND folgende 
Zahl). In Assembler und Schneider- 
Basic schaut die Rechnung so aus: 

1 MVI A,OAH - A=&0A 
2 MVI E,A6H - E=&A6 
3 ANA E - A=A AND E 

Wenn Sie sich fragen, warum einmal 
das C-Register, später das D-Register 
und dann das E-Register zur Speiche- 
rung des Wertes dienen: Abwechslung 
muß sein! Sie können genauso gut ein 
beliebiges anderes Register verwen- 
den. Denn die erlaubten Befehle sind 
ANA A, ANAB, ANA C, ANA E, ANA H 
und ANAL. Einfacher wird es wieder mit 
dem ANI-Befehl: 
ak MVI A,0OAH - A=&0A 
2 ANI A6H - A=A AND &A6 


und 





Negativ oder positiv 


Der Exklusiv-Oder-Befehl ist eine 
Abwandlung des ODER-Befehls. Hier 
wird ein Bit nur gesetzt, wenn eines der 
beiden Bits gesetzt ist, aber nicht 
beide. Die Befehle lauten analog zu den 
anderen Logik-Befehlen XRA (EXCLU- 
SIVE OR ACCU) und XRl (EXCLUSIVE 
OR IMMEDIATE). Es gelten die folgen- 
den Regeln: O xor 1=1, 1 xor 0O=1, 1 
xor 1=0, O xor O=0O. Versuchen Sie 
doch selbst einmal, ein Basic-Pro- 


gramm und ein passendes Maschinen- 
programm zu schreiben. 

Der folgende CMA-Befehl fällt von 
der Syntax her etwas aus der Reihe. Er 
braucht nur einen Operanden. Dieser 
steht im Akku, wo auch das Ergebnis 
abgelegt wird. CMA steht für Comple- 


ment Accumulator und bildet das Einer- 
Komplement des Akkuinhalts. Was sich 
jetzt sehr großartig anhört, bedeutet 
ganz einfach, daß alle Bit im Akku her- 
umgedreht werden. Aus Einsen werden 
Nullen und aus Nullen werden Einsen: 
E MVI A,1 - A=1 

2 CMA - A=NOT A 

Die Dezimale 1 sieht binär so aus: 
0000 0001. Bei der Umwandlung wer- 
den alle Bits umgewandelt: 1111 1110. 
Heraus kommt die Zahl 254. Wenn Sie 
den Befehl »PRINT NOT 1« in Basic aus- 
probieren, werden Sie aber nicht 254, 
sondern -2 als Ergebnis erhalten. 

Bisher haben wir vorausgesetzt, daß 
ein Register nur Zahlen zwischen Null 
und 255 speichern kann. Um auch 
negative Zahlen darstellen zu können, 
hat man vereinbart, daß man das 
höchstwertige Bit einer Zahl, also das 
erste Bit von links, als Vorzeichenbit 
betrachten kann. 

Ist dieses Bit auf Null gesetzt, handelt 
es sich um eine positive Zahl, andern- 
falls ist der Wert negativ. Da dieses Bit 
aber nicht mehr zur Darstellung der Zahl 
zur Verfügung steht, bleiben nur noch 7 
Bit für die Zahl frei. Mit diesen lassen 
sich nur die Werte von O bis 127 dar- 
stellen. Das Vorzeichenbit erlaubt dann 
noch die Auswahl zwischen positiven 
und negativen Zahlen. Somit reicht der 
Zahlenbereich bei vorzeichenbehafte- 
ter Darstellung von -128 bis +127. 
Dazu ein Beispiel: 

Die Zahl AO hex (160) sieht binär so 
aus: 1010 0000. Nimmt man das erste 
Bit von der Zahl weg und betrachtet 
man es als Vorzeichen, so stellt man 
fest, daß das Bit gleich Eins und die Zahl 
damit - für den Computer - negativ ist. 
Für die Zahl bleiben noch die Bits 010 
0000 übrig, 32 dez. Also ist 160 für 
den Computer gleich -128+32=-96. 

Zurück zum Beispiel: Die Zahl 254 
lautet in Binärdarstellung »1111 1110«. 
Folglich ist sie negativ und der Zahlen- 
wert ist »1111 1110«, 126 dez. -128 
+126 istaber -2 und wir wissen, woher 
die negative Darstellung unseres Basic- 
Befehls kommt. Denken Sie aber immer 
daran, daß die vorzeichenbehaftete 
und die vorzeichenlose Darstellung 
gleichzeitig nebeneinander verwendet 
werden dürfen. 

Sie werden nun fragen, wozu man um 
alles in der Welt diese umständlichen 
Logik-Befehle benötigt. Als Antwort soll 
vorerst genügen: Sie werden diese 
Befehle noch sehr viel häufiger brau- 
chen, als Sie es jetzt vielleicht erwarten. 
Ein kleines Beispiel, das die Nützlich- 
keit dieser Befehlsgruppe zeigt. Im 
Akku steht eine beliebige Zahl zwi- 
schen O und 255. Dieser Wert soll 
einem Unterprogramm übergeben wer- 
den, darf aber nur im Bereich zwischen 
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O und 63 liegen: 
MAPPY 
KON RUTER 














CPIM 





1 MVI A,?? - A=?? (beliebiger 
Wert) 
2 ANI 63 -A=A AND 63 
Diese Methode funktioniert aber nur, 
wenn der Grenzwert, hier 63, eine Zahl 
ist, die sich aus einer Zweier-Potenz 
minus Eins herleiten läßt, also: 1, 3, 7, 
15, 31, 63, 127 und 255. Aber auch 
anders herum ergibt die Sache Sinn. 
Bei einer Zahl soll sichergestellt wer- 
den, daß das höchstwertige Bit (das 
erste Bit von links) auf Eins liegt: 
1 MVI A,?? - A=?? (beliebig) 
2 ORI 128 - A=A OR 128 


Vor einem Sprung 


® 
die Fahne hoch 

Es ist natürlich wenig sinnvoll, ein 
Programm zu schreiben, das vom 
ersten bis zum letzten Befehl linear 
durchgearbeitet wird. Vielmehr enthal- 
ten fast alle Programme Vergleiche und 
abhängig von deren Ergebnis Sprung- 
befehle. Ähnlich dem IF-Befehl in Basic 
gibt es hier ein mnemonisches Kom- 
mando mit dem Namen CMP für Com- 
pare (auf Deutsch »Vergleiche«). Dieser 
Befehl vergleicht den Inhalt des Akkus 
mit dem des angegebenen Registers, 
beispielsweise CPM A,C. Auch ein 
Direktbefehl ist vorhanden: CPI (Com- 
pare Immediate). Dieser vergleicht den 
Akkuinhalt mit der dem Befehl folgen- 
den Zahl, zum Beispiel CPI 200. 

Der Computer muß sich das Resultat 
des Vergleichs irgendwo merken kön- 
nen. Dazu benutzt er ein Register, das 
bisher noch nicht besprochen wurde 
und auch völlig andere Aufgaben als die 
besprochenen Register hat: das Flag- 
Register oder kurz F-Register. Flag 
heißt auf Deutsch »Flagge«. Dieses 
Register ist bitweise organisiert und 
besteht aus acht Einzelbits. Für jeden 
Prozessorzustand stein Bitreserviert - 
sozusagen als »Flagge«, die gehißt 
wird, wenn ein bestimmter Zustand ein- 
getreten ist. Da der Computer abhängig 
vom Zustand eines Flagbits eine Ent- 
scheidung treffen kann, gibt es Sprung- 
befehle zu verschiedenen Adressen: 
Der unbedingte Sprungbefehl JMP 
(Jump heißt Springen). Er ist in etwa 
vergleichbar mit GOTO in Basic und 
zwingt den Computer, die Abarbeitung 
des Programms an einer anderen Stelle 
im Speicher fortzusetzen. Dieser JMP- 
Befehl ist also an keine Bedingungen 
geknüpft. Es gibt aber eine Reihe von 
bedingten Sprungbefehlen, die jeweils 
mit einem ganz bestimmten Flagbit kor- 
respondieren. 

Die folgenden Bits des F-Registers 
sind auch für den Programmierer von 


Bedeutung: 
c = Carry 
Z = Zero Flag 


M = Minus Flag 
E = Even Parity Flag 
| = Interdigit Flag 

Das Carry-Flag wird gesetzt, wenn 
bei Additionen oder Subtraktionen ein 
Übertrag auftritt. Es wird auch gesetzt, 
wenn bei Vergleichen mit CMP oder CPI 
der Akkuinhalt kleiner als der Wert ist, 
mit dem er verglichen wird. Zurückge- 
setzt wird das Carry-Flag, wenn der 
Akkuinhalt größer oder gleich dem 
anderen Wert istoder wenn bei Addition 
beziehungsweise Subtraktion kein 
Übertrag auftrit. Die zugehörigen 
Sprungbefehle heißen JC xxxx (Jump If 
Carry Flag Set, »Sprung, wenn das 
Carry-Flag gesetzt ist«) und JNC xxx 
(Jump if No Carry, »Sprung, wenn das 
Carry-Flag nicht gesetzt ist«). Damit las- 
sen sich sehr leistungsfähige Pro- 
grammstrukturen entwickeln, ein einfa- 
ches Beispiel dafür ist: 


T MVI A,10 

1 GBI: 27 

3 JC KLEINER 
4 GROESSER: 

5 KLEINER: 


In diesem Programm wird zuerst der 
Akku mit dem Wert 10 geladen. In Zeile 
2 führt der Computer einen Vergleich 
mit einer - noch einzusetzenden - Zahl 
durch. Die Zeile 3 enthält einen Sprung 
zur Marke KLEINER, wenn das Carry- 
Flag gesetzt ist. KLEINER wird also auf- 
gerufen, wenn der Akkuinhalt kleiner ist 
als der Wert, mit dem er verglichen wird. 
Andernfalls beachtet der Computer den 
Sprungbefehl nicht und macht bei der 
Marke GROESSER weiter. 

Setzen wir doch einmal in den Ver- 
gleich (Zeile 2) konkrete Werte ein: CPI 
11. Da 10 kleiner als 11 ist, setzt der 
Computer das Carry-Flag und arbeitet 
an der Marke KLEINER weiter. Ein 
anderes Beispiel: CPI 2. 10 ist größer 
als 2, also ist dem Mikroprozessor der 
Sprungbefehl in Zeile 3 egal, er hat ja 
das Carry-Flag zurückgesetzt. 


Vergleichs-Weise: 
Flag oder nicht 


Das Zero-Flag ist gesetzt, wenn zwei 
Werte bei einem Vergleich identisch 
sind. Die beiden Sprungbefehle lauten 
(entsprechend dem Carry-Flag) JZ 
xxxx (Jump If Zero Flag Set, »Sprung, 
wenn das Zero-Flag gesetzt ist«) und 
JNZ xxxx (Jump If Not Zero, »Sprung, 
wenn das Zero-Flag gelöscht iste«): 


4 MVI A,3 
2 CPI 3 

3 JZ GLEICH 
4 UNGLEICH: 

5 GLEICH: 


Hier wird der Akkuinhalt 3 mit der Zahl 
3 verglichen. Da beide Werte natürlich 
identisch sind, setzt der Computer das 


Zero-Flag und springt zur Marke 
GLEICH. Setzen Sie nun einmal in Zeile 
2 einen anderen Wert nach CPI ein und 
überlegen Sie die Resultate. 

Das Minus-Flag ist auf Eins gesetzt, 
wenn der Inhalt des Akkumulators 
negativ ist. Man kann ja entweder 8-Bit- 
vorzeichenlos oder 7-Bit-vorzeichen- 
behaftet rechnen. Der Inhalt des Akku- 
mulators ist negativ, wenn er zwischen 
-128 und -1 (7-Bit-Darstellung) bezie- 
hungsweise 128 und 255 (8-Bit- 
Darstellung) liegt. 


GOTO gibt’s auch in 
Maschinensprache 


Die beiden Sprungbefehle, die sich 
ihre Informationen vom Minus-Flag 
holen, heißen JM (Jump If Minus, 
»Springe, wenn negativ«) und JP (Jump 
If Positive, »Springe, falls positiv«). 


1 MVI A,28 

2 sul 4 

3 JM NEGATIV 
4 JP POSITIV 
5 MVI A,28 

6 Sul 32 

7 JM NEGATIV 
8 JP POSITIV 


In den Zeilen 1 bis 4 ist das Ergebnis 
24, also positiv. Demnach läßt der Com- 
puter den JM-Befehl unberücksichtigt 
und führt stattdessen den JP-Befehl 
aus. Anders sieht es in den Zeilen 5 bis 
8 aus. Dort ist das Resultat -4, in 8-Bit- 
Darstellung -4+256=252, folglich 
negativ. Hier beachtet der 8080 bereits 
den JM-Befehl und arbeitet an der 
Marke NEGATIV weiter. 

Das Even-Paritiy-Flag zeigt an, ob die 

Anzahl der gesetzten Bits im Akkumula- 
tor gerade oder ungerade (even oder 
odd) ist. Die Sprungbefehle lauten JPE 
(Jump If Parity Even, »Sprung, bei gera- 
der Parität«) und JPO (Jump If Parity 
Odd, »Sprung bei ungerader Parität«). 
Dieses Flag hat allerdings keine allzu 
große Bedeutung. 
Das Interdigit Flag zeigt an, ob ein 
Übertrag zwischen dem dfritten und 
vierten Bit des Akkus aufgetreten ist. 
Dieses Flag läßt sich nur durch Tricks 
abfragen und hat für den Programmie- 
rer praktisch keine Bedeutung. 

Der unbedingte Sprung, etwa ver- 
gleichbar mit GOTO in Basic, weist den 
Computer an, mit der Programmabar- 
beitung an der angegebenen Adresse 
fortzufahren. So löst ein JMP O beim 
Schneider einen Reset (Zurücksetzen 
des Computers in den Einschaltzu- 
stand) aus: 

1 JMP O0 

Fassen wir nochmals alle Jump- 
Befehle zusammen: JMP, JC, JNC, JZ, 
JNZ, JP, JM,-JPE und JPO. 
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Sollen Unterprogramme aufgerufen 
werden, muß der Computer sich die 
Rücksprungadresse merken. Dazu 
dient der Befehl CALL. CALL xx ruft 
(unbedingt) ein Unterprogramm an der 
Adresse xx auf. Analog zu den Varian- 
ten des Jump-Befehls gibt es auch den 
bedingten Aufruf von Unterprogram- 
men: 

CC xx - Call if Carry; Aufruf des 
Unterprogramms, wenn das Carry-Flag 
gesetzt ist. 

CNC xx - Call If No Carry; Aufruf des 
Unterprogramms, wenn das Carry 
gelöscht ist. 

CZ xx - Call If Zero; Aufruf des Unter- 
programms, wenn das Zero-Flag 
gesetzt ist. 

CNZ xx - Call If Not Zero; Aufruf des 
Unterprogramms, wenn das Z-Flag 
gelöscht ist. 

CP xx - Call If Positive; Aufruf des 
Unterprogramms, wenn das Minus-Flag 
gelöscht ist. 

CM xx - Call If Negative; Aufruf des 
Unterprogramms, wenn das Minus-Flag 
gesetzt ist. 

CPE xx - Call If Parity Even; Aufruf 
des Unterprogramms bei gerader Pari- 
tät. 

CPO xx - Call If Parity Odd; Aufruf des 
Unterprogramms bei ungerader Parität. 

Die Programmierung erfolgt genau 
wie bei den Jump-Befehlen: 

MI A,3 

CPI 26 

cc UNTERPROG 
A 
A,128 

CM _UNTERPROG2 

Damit der Computer wieder an die 
Aufrufstelle des Unterprogramms zu- 
rückkehren kann, verwenden Basic- 
Programmierer den RETURN-Befehl. 
So etwas gibt es auch im 8080-As- 
sembler. RET holt die Rücksprung- 
adresse und kehrt ins Hauptprogramm 
zurück. Auch hier lassen sich Bedin- 
gungen angeben: RC und RNC bezie- 
hen sich auf das Carry-Flag, während 
RM und RP vom Minus-Flag beeinflußt 
werden, und RPE und RPO bei gesetz- 
tem oder gelöschtem Parity-Flag einen 
Rücksprung auslösen. Ein typischer 
Unterprogramm-Aufbau könnte etwa so 
aussehen: 


au wur 
=; 
Q 
Re) 


al CALL UNTER 
2 INR A 
JMP O0 
4 UNTER: MVI A,200 
5 RET 
Zuerst ruft der Computer das Teilpro- 
gramm UNTER auf. Dort lädt ein 


Maschinenbefehl den Akku mit der Zahl 
200. RET weist den Prozessor an, an 
die Adresse nach dem Unterprogramm- 
aufruf zu springen. Dort trifft er auf 
einen INR-Befehl, durch den der 
Akkuinhalt auf den Wert 201 gebracht 


wird. JMP O löst einen Reset des Com- 
puters aus. Wenn das Programm unter 
Amsdos, dem Basic-Betriebssystem, 
laufen soll, müßte dort ein RET-Befehl 
stehen, um ins Basic zurückzukehren. 
Denn der Computer betrachtet die 
ganze Maschinenroutine ebenfalls als 
Unterprogramm - als Unterprogramm 
des übergeordneten Betriebssystems. 
Sie sehen also, die RET-Befehle lassen 
sich beliebig verschachteln. 

Es gibt noch eine Gruppe von acht 
speziellen Sprungbefehlen, die soge- 
nannten Restarts (RST). Diese wirken 
ganz genauso wie der Call-Befehl, 
rufen aber nur acht genau festgelegte 
Adressen am Speicheranfang auf - 
nämlich O0 hex, O8 hex, 10 hex, 18 hex, 
20 hex, 28 hex, 30 hex und 38 hex. Sie 
haben den Vorteil, statt drei Byte (wie 
beim Call-Befehl) nur ein Byte als Spei- 
cherplatz zu benötigen. Somit reservie- 
ren die meisten Systemprogrammierer 
die Restarts für die wichtigsten Unter- 
programme eines Betriebssystems und 
sparen eine Menge der kostbaren 
Bytes. RST O löst beispielsweise einen 
Reset aus, die übrigen Restarts werden 
im Schneider zur Vewaltung der sich 
überlappenden RAM- und ROM-Berei- 
che benötigt. Der Rücksprung aus 
einem mit RST aufgerufenen Programm 
erfolgt übrigens genauso wie bei einem 
Call-Aufruf, also mit RET oder einem 
bedingten Return-Befehl. 


Auch GOSUB und 


RETURN haben 


Der 8080-Prozessor ist tatsächlich 
ein halber 16-Bit-Prozessor, wenn er 
auch zu den 8-Bit-Chips zählt. Bisher 
wurden nur 8-Bit-Register angespro- 
chen, nämlich der Akku und das Flag- 
Register sowie B, C, D, E, H und L. Als 
Besonderheit erlaubt es aber die CPU, 
zwei 8-Bit-Register zu einem 16-Bit- 
Register zusammenzufassen. So wird 
aus den Registern Bund C das Doppel- 
register BC, aus D und E das Register 
DE undaus HundL das Register HL. Es 
gibt eine Reihe spezieller Befehle, die 
die Arbeit mit diesen 16-Bit-Registern 
ungemein erleichtern. Diese ähneln 
verschiedenen 8-Bit-Befehlen, haben 
aber andere Namen. 

Haben Sie zum Beispiel bisher pro- 
grammiert 
1 MVI B,03H 
2 MVI C,06H 
läßt sich das mit dem LXI-Befehl verein- 
fachen. LXI heißt »Load Extended Regi- 
ster Immediate« oder »Lade Doppelregi- 
ster unmittelbar«. 

1 LXI B,0306H 

Hier wird statt des 8-Bit-Registers B 

jetzt das 16-Bit-Register BD angespro- 


chen. So können Sie Zahlen von Null bis 
65535 (oder -32768 bis +32767, je 
nach Betrachtungsweise) auf einmal in 
ein Doppelregister laden und die 8-Bit- 
und 16-Bit-Befehle in Ihren Program- 
men beliebig mischen: 

1 LXI D,0306H 

2 DCRE 

Nach diesen beiden Befehlen enthält 
das D-Register den Wert O3 hex, dasE- 
Register aber 06 hex-1=05 hex. Das 
Doppelregister DE hat dann die Zahl 
0305 hex gespeichert. 

Das B-Register wird bei den 16-Bit- 
Befehlen als B, das DE-Register als D 
und das HL-Register als H bezeichnet. 
Es lassen sich immer nur die Register 
BC, DE und HL zusammenschalten. 
Andere Kombinationen wie etwa das B- 
mit dem L-Register sind nicht erlaubt. 


Beachten Sie bitte, daß es keine Mög- 
lichkeit gibt, den Akkumulator auf 16- 
Bit-Breite zu erweitern. Stattdessen 
wird das HL-Register als eine Art 16-Bit- 
Akku betrachtet. 

Es besteht die Möglichkeit, das HL- 
Register mit einer Adresse zu laden und 
dann Lade- oder Rechenbefehle zu- 
sammen mit dem Akku auszuführen. 
Dazu wird ein fiktives Register M ver- 
wendet, was ganz einfach »Memory« 
bedeutet. Ein Beispiel für eine Addition, 
bei der zum Akku der Inhalt der Adresse 
2000 hex hinzugezählt wird: 

1 MVI A,45H 
2 LXI H,2000H 
3 ADD M 

Das M-Register läßt sich also als die 
Adresse definieren, auf die das HL- 
Register zeigt. Steht zum Beispiel in 
3000 hex der Wert FF hex und HL ent- 
hält den Wert 3000 hex, so addiert ADD 
M den Wert FF hex zum Akkuinhalt hin- 
zu. 

Hier noch ein besonderer Hinweis für 
alle, die sich ein wenig mit dem Z80- 
Prozessor auskennen: M wird dort nicht 
verwendet. Bei diesem Chip heißt es 
»HLe«. 

Viele der bisher besprochenen 
Befehle lassen sich so mit dem Pseudo- 
Register M verwenden: ADDM, ANAM, 
CMP M, DCR M, INR M, MOV AM, 
MOV B,M, MOV C,M, MOV D,M, MOV 
E,M, MOV H,M, MOV L,M, MOV M,A, 
MOV M,B, MOV M,C, MOV M,D, MOV 
M,E, MOV M,H, MOV M,L, MVI M,xx, 
ORA M, SUB M und XRA M. Nicht 
erlaubt ist es hingegen, beim MOV- 
Befehl sowohl als Quelle als auch als 
Ziel anzugeben, zum Beispiel MOV 
M,M. Dazu müßte nämlich der 8080- 
Prozessor einen doppelten Adreßbus 
haben. 
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Bisher sind wir auf eine sehr nützliche 
Einrichtung des 8080-Prozessors 
noch nicht zu sprechen gekommen: 
den Stack. Sie haben ihn aber schon 
verwendet, ohne es zu wissen. Denn 
die Call- und Restart-Befehle legen dort 
die Rücksprungadresse ab. 


rt 


Was ist der Stack? Übersetzt heißt er 
»Stapelspeicher« und das beschreibt 
seine Aufgabe auch ziemlich genau. Er 
stapelt Zahlen aufeinander. Wenn Sie 
mehr Werte verwalten müssen, als 
Register frei sind, können Sie einen 
Registerinhalt mit einem einzigen 
Befehl dort ablegen und von dort wie- 
der zurückholen. 

Ein spezielles Register mit dem 
Namen SP (Stack Pointer) zeigt immer 
auf die letzte Eintragsadresse. Stellen 
Sie sich einen Tellerstapel vor: Sie 
legen immer wieder von oben einen Tel- 
ler auf undnehmen von Zeit zu Zeit wie- 
der einen Teller herunter. Dementspre- 
chend wächst oder schrumpft der Sta- 
pel. Wenn Sie neben den Tellerstapel 
einen Zollstock oder ein Metermaß stel- 
len, haben Sie eine Art »Stapelzeiger«. 
Sie können immer ablesen, wie hoch 
der Stapel gerade ist. So ähnlich funk- 
tioniert das auch beim Stapel im Com- 
puter. Natürlich werden dortkeine Teller 
aufeinandergestapelt, sondern Zahlen. 
Und noch etwas anderes. Der Stapel 
wächst mit der Zahl der Einträge nicht 
nach oben, sondern nach unten. Dafür 
hat er aber mit dem Tellerstapel gemein- 
sam, daß es einiges an (Programmier-) 
Akrobatik erfordert, ein anderes als das 
oberste (auch wenn der Stack nach 
unten wächst, spricht man vom letzten 
als dem obersten Stapelelement) 
Stackelement zu entnehmen. Der Sta- 
pelist 16-Bit-weise organisiert. Sie kön- 
nen also nur Doppelregister auf den 
Stack legen und von dort zurückholen. 
Dies hat den Vorteil, daß ein solcher 
Eintrag das gleiche Format hat wie eine 
Rücksprungadresse, was bei fort- 
geschrittenen Assembler-Kenntnissen 
eine Reihe interessanter Programmier- 
möglichkeiten auftut. Um ein Register 
auf den Stack zu schicken, gibt es den 
Befehl PUSH (auf Deutsch »Stoße« 
oder »Schiebe« auf den Stapel). Umge- 
kehrt holt der Befehl POP den obersten 
Eintrag auf dem Stack in ein Doppelregi- 
ster zurück. Der Begriff »Doppelregi- 
ster« ist hier etwas anders als üblich 
definiert, denn er umfaßt nicht nur die 
Register BC, DE und HL, sondern auch 
den Akku gemeinsam mit dem Flag- 
Register. Dieses Register ist natürlich 
nicht im üblichen Sinn frei verwendbar. 


Es trägt den Kurznamen PSW, das heißt 
»Program Status Word«. Alle PUSH- 
und POP-Befehle finden Sie hier: 


PUSH PSW - POP PSW 
PUSH B - POPB 
PUSH D - POPD 
PUSH H - POPH 


Eine wichtige Regel, deren Mißach- 
tung meist zum »System-Crash« führt, 
sollten Sie als angehender Maschinen- 
code-Programmierer nie vergessen. Da 
der Stack nicht nur Ihre Daten, sondern 
auch die Rücksprungadresse verwal- 
tet, mit der der Computer wieder aus 
Ihrem Programm herausfindet, müssen 
Sie immer darauf achten, daß der Stack- 
Pointer vor einem Rücksprungbefehl 
genau denselben Wert hat wie beim 
Eintritt in das Programm oder Unterpro- 
gramm. Stackmanipulationen sollten 
Sie deshalb am Anfang noch den Profis 
überlassen. 

Ebenso sollten Sie auch von Manipu- 
lationen des SP-Registers, die mit LXI 
SP, SPHL und XTHL möglich sind, 
anfangs die Finger lassen. Allgemein 
zur Verwendung empfohlen sind hinge- 
gen die folgenden Befehle, die den 
Datenaustausch des Prozessors mit 
dem Speicher ermöglichen: 

LDA adresse lädt den Akkumulator 
mit dem Wert, der in der angegebenen 
Adresse gespeichert ist (Load Accumu- 
lator). 

STA adresse macht genau das Umge- 
kehrte wie LDA. Die Transportrichtung 
führt vom Akkumulator zur spezifizier- 
ten Speicherstelle (Store Accumula- 
tor). 

LDAX Bund LDAX D machen das glei- 
che wie MOV A, M, allerdings mit dem 
BC- und DE-Register. Sie laden den 
Inhalt der Adresse, auf die das Doppel- 
register zeigt, ins A-Register (Load 
Accumulator Using Extended Regi- 
ster). 

STAX B und STAX D sind die Anpas- 
sung des MOV M,A-Befehls ans BC- 
und DE-Register und damit die Umkeh- 
rung des LDAX-Befehls (Store Accumu- 
lator Using Extended Register). 

LHLD adresse lädt den Inhalt der 
Adresse ins HL-Register. Da das HL- 
Register 16 Bit breit ist, werden auch 
zwei Byte auf einmal übertragen (Load 
HL direct). 

SHLD adresse ist die Umkehrung des 
LHLD-Befehls. Der Inhalt des 16-Bit- 
Registers HL wird an die angegebene 
Adresse und die direkt darauffolgende 
Speicherstelle geladen (Store HL 
direct). 

Bisher noch nicht besprochen wurde 
die vorzeichenbehaftete Arithmetik: 
ADC (Add Register With Carry, 


»Addiere Registerinhalt zum Akku und 
berücksichtige das Carry-Flag«) und 
ACI (Add Immediate Value With Carry, 
»Addiere den unmittelbar im Programm- 
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text folgenden Wert unter Berücksichti- 
gung des Carry-Flags«). Die vorzei- 
chenbehaftete Addition ist beim 
8080-Prozessor nur mit 8-Bit-Länge 
möglich, wohingegen der Z80 auch 
16-Bit-Addition ermöglicht. Vorzei- 
chenlos ist aber die 16-Bit-Addition 
auch beim 8080-Chip möglich. DAD B, 
DAD D, DAD H und DAD SP addieren 
das jeweils angegebene Registerpaar 
zum »16-Bit-Akku« HL. 

Die vorzeichenbehaftete Subtraktion 
ist mit SBB und SBi möglich. Diese bei- 
den Befehle wirken - wie SUB und SUI 
- auf den 8-Bit-Akku. Die 16-Bit- 
Subtraktion wurde - wieder im Gegen- 
satz zum Z80-Chip - gar nicht imple- 
mentiert. Sie kann allerdings durch 
Negation des einen Werts und folgende 
Addition simuliert werden. 

Ein sehr nützlicher Befehl heißt 
XCHG (Exchange, »Tausche«). Dieses 
Kommando tauscht die Inhalte der DE- 
und HL-Register gegeneinander aus. 


Schiebun 
nicht strafbar 


Die beiden letzten 16-Bit-Register- 
Befehle, die noch nicht behandelt wur- 
den, heißen DCX und INX. INX B, INX D, 
INX H und INX SP erhöhen jeweils ein 
Doppelregister um Eins. DCX B, DCX D, 
DCX H und DCX SP vermindern das 
angesprochene Doppelregister um 
Eins. 

Rotationsbefehle lassen die Bits im 
Akku »rotieren«. Zum Beispiel bedeutet 
RAL, daß jedes Bit im Akku um eine 
Position nach links geschoben wird: 
Aus 0001 1010 wird 

0011 0100, da jedes Bit nach 
links bewegt wurde. 

Das Bit, das aus dem Akku »heraus- 
geschoben« wurde, geht nicht verloren. 
Es wird ins Carry-Flag gebracht und 
kann beispielsweise mit JC und JNC 
abgefragt werden. Das Carry-Bit, das 
vorher dort war, muß sich wieder hinten 
»anstellen« und wird zum letzten Bit im 
Akku (Bit 0). Nützlich ist der RAL-Befehl 
beispielsweise für eine schnelle Multi- 
plikation mit 2, 4, 8, 16 und so weiter. 

RAL heißt übrigens »Rotate Accumu- 
lator Left«, auf Deutsch »Rotiere den 
Akku nach links«. Folglich gibt es auch 
einen Befehl, der das Gegenteil macht. 
RAR rotiert den Akku nach rechts. Hier 
wandert das Bit rechts außen (Bit O) ins 
Carry, und das Carry-Flag wird Bit 7 des 
Akkus. Sie sehen, daß man das Carry- 
Flag als neuntes Bit des Akkus betrach- 
ten kann. 

Die beiden anderen Rotierbefehle, 
RLC und RRC, behandeln das Carry- 
Flag anders: Sie heißen »Rotate Left/ 
Right Without Carry« oder »Rotiere 
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nach links oder rechts ohne das Carry- 
Flag«. RLC schiebt alle Bits um eine 
Stelle nach links, das Bit 7 wird Bit O, 
wandert aber zusätzlich ins Carry-Flag. 
Der alte Inhalt des Carry geht verloren. 
RRC macht dasselbe, nur eben rechts- 
herum. 

Natürlich kennen Sie jetzt noch nicht 
den gesamten 8080-Befehlssatz. Es 
gibt noch einige Kommandos, die nicht 
allzu häufig verwendet werden, aber 
doch recht nützliche Dinge tun: 

STC (Set Carry Flag) setzt das Carry- 
Flag auf Eins. So kann zum Beispiel ein 
Unterprogramm dem Hauptprogramm 
Bericht erstatten, ob es seine Aufgabe 
ordnungsgemäß erfüllt hat. 

CMC (Complement Carry Flag) kom- 
plementiert das Carry-Flag. Wenn es 
den Wert O hatte, wird es Eins; wenn er 
1 war, ist er jetzt Null. Wollen Sie also 
das Carry-Flag löschen, müssen Sie die 
beiden Befehle kombinieren: STC und 
CMC. 

PCHL (Load PC from HL) lädt den 
Programmzähler (das ist das Register, 
das dem Computer zeigt, an welcher 
Adresse er sich gerade befindet) mit 
dem Inhalt des HL-Registers. Auf 
deutsch: Der Computer ruft die 
Adresse auf, die im HL-Register ange- 
geben ist. 


DI (Disable Interrupts) und EI (Enable 
Interrupts) verbieten und erlauben die 
Abarbeitung von Interrupts. Befehle 
gleichen Namens gibt es auch in Basic. 

IN port und OUT port werden Ihnen 
bei der Programmierung kaum begeg- 
nen, sofern Sie nicht vorhaben, direkt 
auf die Hardware zuzugreifen. Gerade 
das CPC-Betriebssystem stellt die 
ROM-Routinen für alle Eventualitäten 
zur Verfügung, so daß Sie auf IN und 
OUT sicher verzichten können. 


Das war’s dann 


NOP (No operation): Dieser Befehl tut 
absolut nichts. Er bewirkt nur eine 
(sehr) kurze Wartezeit. 

HLT (Halt) hält den Prozessor an, bis 
wieder ein Interrupt auftritt. Dieser 
Befehl wird aber sehr selten verwendet. 

DAA (Decimal Adjust Accumulator) 
wird noch seltener gebraucht und dient 
dazu, BCD-Arithmetikroutinen anzu- 
sprechen. BCD (Binary Coded Deci- 
mal) ist eine besonders genaue Form 
der Zahlendarstellung und wird meist in 
kaufmännischen Programmen benö- 
tigt. Bei diesen darf es nicht vorkom- 
men, daß der Computer aus 50.89 
Mark etwa 50.8888888 Mark macht. 


Der Schneider besitzt keine BCD- 
Routine im ROM - leider! 

Damit sind wir am Ende der Einfüh- 
rung in die 8080-Maschinensprache 
angelangt. Natürlich ist die Darstellung 
etwas gedrängt und knapp - andere 
Leute haben ganze Bücher über diesen 
Prozessor geschrieben. Aber Sie soll- 
ten zumindest die Grundlagen der 
Maschinencode-Programmierung mit- 
bekommen haben. Sind Ihnen einige 
Sachen noch nicht ganz klar, empfeh- 
len wir Ihnen, sich eines der zahlreichen 
8080- und CP/M-Handbücher zu be- 
sorgen. Sie werden es sowieso zum 
Nachschlagen bei kniffligen Programm- 
situationen des öfteren benötigen! Was 
jetzt noch zu tun ist? Auch wenn es 
abgedroschen klingen mag: Übung 
macht den Meister. Um Maschinen- 
sprache zu verstehen, sollten Sie üben, 
üben und nochmals üben - möglichst 
an praktischen Beispielen. Und verges- 
sen Sie nicht, je tiefer Sie in die Materie 
einsteigen, desto komplizierter wird es 
- aber auch umso interessanter. Basic 
ist recht leicht zu erlernen, stellt aber 
schon nach kurzer Zeit den Program- 
mierer nicht mehr zufrieden. Maschi- 
nensprache ist dagegen ein unermeßli- 
ches Gebiet, dessen Grenzen Sie kaum 
erreichen dürften. (Martin Kotulla/hg) 





Einstie . 
= es lohnt sich 


ekanntlich ist das Betriebssy- 

stem CP/M auf vielen Compu- 

tern unterschiedlichster Her- 
steller lauffähig. Wie ist das möglich, 
wenn doch alle Geräte eine völlig von- 
einander abweichende Hardware auf- 
weisen? Nun, ganz hardware-unab- 
hängig ist CP/M natürlich auch nicht. 
Digital Research, die »Erfinderin« von 
CP/M, hatte aber die rettende Idee: Das 
Betriebssystem muß aus mehreren Tei- 
len zusammengesetzt werden. Die 
direkt mit der Hardware zusammenhän- 
genden Aufgaben erledigt das BIOS 
(Basic Input/Output System). Dieses 
BIOS führt die fundamentalen Aufga- 
ben des Betriebssystems durch. Es 
gibt Zeichen auf dem Bildschirm aus, 
fragt die Tastatur ab, wählt das Disket- 
tenlaufwerk aus und so weiter. 

Das BIOS wird vom Hersteller des 
Computers für jedes Computermodell 
speziell entwickelt. Es verfügt über eine 
Tabelle, in die alle Einsprungadressen 





er TT= Zu jeder Disket- 


ErAN tenstation liefert 
Br Schneider das 
Betriebssystem CP/M. Es eröff- 
net Ihrem Computer völlig neue 
Welten. Vorausgesetzt man 
weiß, wie es funktioniert. 


für die verschiedenen Routinen einge- 
tragen sind. So kann das BDOS, das 
»Basic Disk Operating System« über 
diese genau definierten Adressen auf 
das BIOS zugreifen. Das BDOS wurde 
von Digital Research entwickelt und ist 
systemunabhängig. Auf allen CP/M 
2.2-Computern (also auch auf den 
Schneider-Computern) ist es vom Pro- 
grammcode her identisch. Schon auf 
dieser Stufe profitieren die Program- 
mierer also von der Universität. 

Die nächsthöhere Stufe sind schon 
die Anwenderprogramme, die der Be- 
nutzer in den Speicher lädt. Ein Beispiel 
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verdeutlicht die Zusammenarbeit der 
Komponenten. Das Anwenderpro- 
gramm (zum Beispiel Wordstar) will ein 
Zeichen auf dem Bildschirm ausgeben. 
Dazu ruftes das BDOS auf, das den Auf- 
trag dann an das BIOS weitervermittelt. 
Das BIOS gibt letztlich dann das Zei- 
chen auf dem Monitor aus. 

Bei den Schneider-Computern arbei- 
tet das BIOS etwas anders. Es wäre völ- 
lig unsinnig, alle grundlegenden Funk- 
tionen neu zu programmieren, denn der 
Computer besitzt ja schon eine riesige 
Programmbibliothek - das normale 
Basic-Betriebssystem, mit dem Sie 
beim Einschalten des Computers in 
Berührung kommen. Also transformiert 
das BIOS beim Schneider wiederum 
den Befehl (in unserem Beispiel die 
Bildschirmausgabe) und gibt ihn an das 
normale Betriebssystem weiter. Und 
dieses führt nun endlich die Anweisung 
aus undbringt das Zeichen auf den Bild- 
schirm. 
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CCP (Console Command Processor) & Anwenderprogramme 


BDOS: Basic Disk Operating System 


BIOS: Basic /O System 





Bild 1. Die Struktur von CP/M im Überblick 


Das BDOS führt aber nicht nur eine 
lineare 1:1-Umsetzung in BIOS-Aufrufe 
durch. Ein Großteil der BDOS-Befehle 
ist weit komplizierter aufgebaut. Man 
denke nur an die relative Dateiverwal- 
tung (Datensätze im Direktzugriff), die 
unter CP/M ohne weiteres möglich ist. 
Bei diesen Kommandos muß das BDOS 
eine Menge Aufgaben selbst durchfüh- 
ren. Durch das BIOS kann es nämlich 
nur ganze Sektoren lesen oder 
beschreiben. 

Jedes Betriebssystem benötigt letzt- 
lich eine Art »Benutzeroberfläche«. Der 
Bediener muß ja irgendwie von der 
Tastatur aus seine Befehle eingeben 
können. Dazu dient bei CP/M ein Pro- 
gramm mit dem Namen CCP (Console 
Command Processor). Dies ist der 
»Befehlsempfänger«, der von der Tasta- 
tur Kommandos entgegennimmt und in 
Betriebssystem-Aufrufe umsetzt. Solch 
ein Tastenbefehl ist zum Beispiel DIR. 
DIR beauftragt den CCP, das Inhaltsver- 
zeichnis der Diskette auszugeben. Der 
Weg führt dabei wieder über das BDOS 
zum BIOS. So gesehen bestehen 
gewisse Ähnlichkeiten zwischen dem 
CCP und einem ganz normalen Anwen- 
derprogramm. 

Den schematischen Aufbau, die 
Struktur von CP/M 2.2, zeigt Bild 1. Man 


0000 hex 
0100 hex 
9700 hex 
9F06 hex 
ADOO hex 
AD33 hex 


TPA - Transient Program Area 


kann darin sehen, wie die einzelnen 
Programmteile immer komplexere Auf- 
gaben erfüllen. Gleichzeitig muß per- 
manent auf die darunterliegenden Pro- 
grammteile zurückgegriffen werden. 
Diese symbolische Darstellung hat 
allerdings nichts mit der tatsächlichen 
Speicherverteilung von CP/M zu tun. 
Bild 2 zeigt, wie die einzelnen Teile des 
Betriebssystems beim Schneider tat- 
sächlich im Speicher angeordnet sind. 


CCP, TPA = 
kein Geheimnis 


In dieser Grafik tauchen einige Fach- 
begriffe auf, die wir bisher noch nicht 
besprochen haben. Zwischen 0000 
und OOFF hex liegt die Zeropage des 
Betriebssystems. In diesem Speicher- 
bereich (256 Bytes umfassend) 
»merkt« sich der Computer die wichtig- 
sten Informationen und Einsprungstel- 
len ins CP/M-System. Weiter unten wer- 
den wir die Zeropage wesentlich aus- 
führlicher darstellen, da sie beim Pro- 
grammieren unersetzlich ist. 

Im Bereich 0100 bis 9700 hex befin- 
det sich die TPA (Transient Programm 
Area). Dies ist der Speicherbereich, in 


Betriebs- 
system 


0000 hex 
4000 hex 


CCP - Console Command Processor x 
BDOS - Basic Disk Operating System 
Sprungtabelle des Schneider-BIOS 





BBO0O hex 
BE40 hex 
BE80 hex 
BECO hex 
C000 hex BIOS/AMSDOS-ROM 


FFFF hex 


Pufferspeicher für CP/M und Firmware 
Sprungtabelle der ROM-Routinen 


Ein Teil des Floppy-RAMs 
Sprungtabelle für RSX-Befehle 81 hex bis 89 hex 
Hardware-Stack des BIOS 


Bildschirmspeicher 
Basic-ROM 
Erweiterungs-ROMs 





Bild 2. So ist CP/M 2.2 im Speicher des Schneiders abgelegt 


den die eigentlichen Programme wie 
Textverarbeitungssysteme, Compiler 
oder Tabellenkalkulationen geladen 
werden. Von 9700 bis 9FO6 hex liegt 
dann der bereits erwähnte CCP (Con- 
sole Command Processor). Da er wäh- 
rend der Bearbeitung eines Programms 
nicht benötigt wird, darf das Programm, 
das in der TPA liegt, ihn überschreiben. 
Nach dem Programmende wird er von 
der Diskette automatisch nachgeladen. 

Im Adreßbereich von 9FO6 bis ADOO 
hex steht das BDOS (Basic Disk Opera- 
ting System). Zwischen ADOO und 
AD33 hex befindet sich die Sprungta- 
belle des Schneider-BIOS. Der Spei- 
cher von AD33 bis BBOO hex wird teil- 
weise von CP/M und teilweise von der 
Schneider-Firmware belegt. Dort sind 
alle wichtigen Systeminformationen wie 
Bildschirmmodus und Farben, Tastatur- 
tabellen und Belegung der Funktionsta- 
sten untergebracht, aber auch der Dis- 
kettenpuffer. Ab BBOO bis BE40 hex 
trägt der Computer nach dem Start 
automatisch die Sprungvektoren des 
Basic-Betriebssystems ein. Sie werden 
auch beim Laden von CP/M nicht über- 
schrieben. So kann das BIOS über die 
standardisierten - und im Firmware- 
Handbuch dokumentierten - Schnitt- 
stellen ROM-Routinen aufrufen. 

Zwischen BE40 bis BE80 hex findet 
man einen kleinen RAM-Speicher, der 
vom Floppy-ROM - genauso wie unter 
Basic - zur Speicherung wichtiger 
Daten benutzt wird. Hier finden der 
Disketten-Controller und das Betriebs- 
system Interrupt-Routinen zur Steue- 
rung des Floppy-Laufwerks, Adreßzei- 
ger auf weitere Speicherbereiche, die 
der Diskette zur Verfügung gestellt wer- 
den, Werte für Warteschleifen beim 
Laufwerk-Start und -Stop und andere 
für den Diskettenzugriff unerläßliche 
Informationen. 


Direkter 
Diskettenzugriff 


Der Speicher von BE80O bis BECO 
hex enthält für das BIOS eine Sprungta- 
belle. Diesmal sind es die Adressen der 
RSX-Befehle 81 bis 89 hex. Diese RSX- 
Kommandos sind von Basic aus nicht 
erreichbar, allenfalls durch Maschinen- 
code-Programme. Sie stellen »niedere« 
Floppy-Routinen zur Verfügung, zum 
Beispiel zum Lesen, Schreiben und For- 
matieren von Sektoren. Von BECO bis 
COOO hex ist der Speicher für den 
Z80-Stack reserviert, den natürlich 
auch das Betriebssystem benötigt. 

Etwas kompliziert wird es ab der 
Adresse COO0O hex: Dort liegt das 
BIOS- und Amsdos-ROM, das sich 
beim CPC 464 in dem Kasten befindet, 
der auf den Computer hinten aufge- 
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steckt wird. Bei den anderen 
Schneider-Modellen ist dieses ROM 
hingegen auf der Hauptplatine ange- 
bracht. Parallel dazu adressiert der Pro- 
zessor aber auch den Bildschirmspei- 
cher, das Basic-ROM und eventuelle 
Erweiterungs-ROMs. Für CP/M dau- 
ernd sichtbar ist allerdings nur das 
BIOS/Amsdos-ROM. Es hätte auch ver- 
heerende Folgen, wenn bei einem 
BIOS-Aufruf der Video-RAM-Bereich in 
den Adreßbereich eingeblendet wäre. 

Die Betriebssystem-Routinen, die im 
ROM zwischen 0000 und 3FFF hex 
parallel zur TPA liegen, können aber das 
Floppy-ROM aus- und den Bildschirm- 
speicher einblenden, da sie vor der 
Rückkehr ins BIOS den alten ROM- 
Zustand wiederherstellen. Ab Adresse 
EO0O hex befindet sich übrigens ein 
ROM-Programm, das mit der Disketten- 
station gar nichts und mit dem CP/M- 
Betriebssystem nur entfernt zu tun hat: 
ein Teil des Logo-Interpreters. 


Auf der Benutzer- 
ebene bemerkt man 
die »Innereien« nicht 


Nach diesem Ausflug ins »Innenle- 
ben« des Schneiders kehren wir wieder 
auf die Benutzerebene, den CCP, 
zurück. Ins CP/M-Betriebssystem 
gelangen Sie, indem Sie eine System- 
diskette ins Laufwerk A einlegen und 
den RSX-Befehl ICPM benutzen. Sofort 
wird CP/M - mit dem CCP - geladen. 
Dieser versteht einige Kommandos, die 
zur Arbeit mit der Diskettenstation uner- 
läßlich sind: 

- DIR zeigt das Inhaltsverzeichnis der 
Diskette an. 

- ERA löscht eine Datei oder Datei- 
gruppe von der Diskette. 

- REN benennt eine Datei um. 

- USER wählt den Benutzerbereich aus. 
- TYPE listet eine Diskettendatei auf 
dem Bildschirm. 

- SAVE speichert die TPA oder Teile von 
ihr auf Diskette. 

- A: wählt das Laufwerk A als Bezugs- 
laufwerk, B die Floppy B. 

Vor jede Eingabezeile schreibt der 
CCP den Buchstaben des verwende- 
ten Diskettenlaufwerks und ein Größer- 
Zeichen - sozusagen als Aufforderung 
zur Eingabe von Befehlen. Diese bei- 
den Zeichen werden oft auch als 
»Prompt« bezeichnet. 

Die sieben beschriebenen Befehle 
heißen »resident«, weil sie dauernd im 
Computer »residieren« und damit stän- 
dig verfügbar sind. Vernünftig arbeiten 
läßt sich allein mit diesen Befehlen aber 
nicht. So gibt es zusätzlich sogenannte 
transiente Befehle Das sind Pro- 


gramme, die bei jedem Aufruf erst von 
einer Diskette in die TPA geladen wer- 
den müssen. Sie besitzen als Dateier- 
kennung den Zusatz »COM.«. Das heißt 
»Command File« (Kommandodatei). 
COM-Files sind alles, was unter CP/M 
als Programm fungiert: also nicht nur 
FORMAT.COM, PIPCOM, STATCOM 
und die anderen Dienstprogramme, die 
Sie auf der Systemdiskette finden, son- 
dern auch WS.COM (Wordstar), 
TURBOCOM _ (Turbo-Pascal) und 
andere Software. Der CCP macht kei- 
nen Unterschied zwischen dem Aufruf 
residenter und transienter Befehle. 
Geben Sie DIR ein, erkennt der CCP 
diesen Befehl als resident und führt ihn 
unmittelbar aus. Tippen Sie aber »WS« 
für Wordstar, sucht der CCP ihn erst 
einmal bei den residenten Befehlen. 
Findet er ihn dort nicht, sucht er des- 
halb auf der Diskette weiter. Ist er end- 
lich fündig geworden, lädt er das Pro- 
gramm und startet es. Ist kein Pro- 
gramm dieses Namens auf der Diskette, 
meldet sich der CCP mit »WS« zurück. 

Allzu informativ kann man die Fehler- 
meldungen von CP/M zwar nicht nen- 
nen, man muß aber bedenken, daß 
CP/M zueiner Zeitentwickelt wurde, als 
Speicherplatz noch so kostbar war, daß 
man um jedes Byte kämpfte. 


Einige Funktionen des CCP sind so 
wichtig, daß sie auf einen einzigen 
Tastendruck hin ausgelöst werden. 
Dies geschieht durch Drücken der 
Control-Tasten zusammen mit einem 
Kennbuchstaben. Heißt es also 
»Control-A«, »CTRL-A« oder ganz kurz 
»1A«, bedeutet dies, daß Sie die CTRL- 
Taste gleichzeitig mit dem entspre- 
chenden Buchstaben drücken sollen. 
Es gibt in CP/M folgende Controlcodes: 

CTRL-C löst einen Warmstart des 
Computers aus - das Betriebssystem 
lädt den CCP neu von der Diskette. 
Wichtig ist diese Tastenkombination, 
wenn Sie die Diskette im Laufwerk tau- 
schen wollen. Bei jedem Disketten- 
wechsel müssen Sie CTRL-C drücken. 
Sonst könnte folgendes passieren: Der 


FIR 

ASM 

DUMP 
SYSGEN 
DISCCOPY 
CSAVE 
ROINTIME 


FILECOPY 
CHKDISC 
FORMAT 
EX2 





Computer arbeitet noch mit einer offe- 
nen Datei. Sie wechseln aber die Dis- 
kette mit dieser Datei gegen eine neue 
aus, und der Computer schreibt die wei- 
teren Datensätze und den Directory- 
Eintrag auf die neue Diskette. Sie hätten 
dann im schlimmsten Fall zwei 
unbrauchbare Disketten. Da Digital 
Research dieses Problem erkannte, 
verlangt CP/M bei jedem Disketten- 
wechsel ein CTRL-C. Andernfalls erhal- 
ten Sie beim nächsten Schreibzugriff, 


CP/M reagiert auf 
Bedienerfehler 
manchmal 
empfindlich 


zum Beispiel mit ERA, die Fehlermel- 
dung »Bdos Err On A: R/O«. Dies 
bedeutet »BDOS-Fehler auf Laufwerk 
A, nur Lesen erlaubt«. Nach einem Dis- 
kettenwechsel erklärt CP/M die neue 
Diskette kurzerhand bis zum nächsten 
Warmstart als schreibgeschützt - um 
Fehler zu vermeiden. Ärgerlich ist es 
aber, wenn man mitten aus einem Pro- 
gramm wegen solch einer BDOS- 
Fehlermeldung herausgeworfen wird. 
Um Fehlbedienungen zu vermeiden, ist 
CTRL-C übrigens nur wirksam, wenn 
Sie es an der ersten Stelle einer Zeile 
eingeben. 

CTRL-E erlaubt Ihnen, Ihre Eingabe in 
der folgenden Zeile fortzusetzen, bei- 
spielsweise 
A>DIRtE 
B: (Enter) 

CTRL-H löscht das letzte eingege- 
bene Zeichen und ist damit gleichwertig 
mit der DEL-Taste. 

CTRL-I bewirkt einen Sprung zur 
nächsten Tabulator-Position. Stattdes- 
sen kann man auch die TAB-Taste 
drücken. 

CTRL-J ist gleichwertig mit ENTER. 
Die Taste schließt die Eingabezeile ab. 

CTRL-M besitzt ebenfalls die gleiche 
Funktion wie Enter. 


XSUB 
LOAD 
AMSDOS 


COM 
COM 
COM 


COPYDISC COM 
COM 
BAS 


SETUP 
EX1 


Bild 3. Das Directory der beiden Seiten der Systemdiskette des 


Schneider CPC 464 und 664 
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CTRL-P: Alle Bildschirmausgaben 
werden auf dem Drucker mitprotokol- 
liert, bis Sie wieder CTRL-P drücken. 
Achten Sie aber darauf, daß der 
Drucker empfangsbereit ist, da der 
Schneider sich sonst in einer Endlos- 
schleife festfährt. Andere Eingaben als 
CTRL-SHIFT-ESC sind dann nicht mehr 
möglich. Diese drei Tasten lösen aber 
einen Neustart aus, der alle Daten und 
Programme im Speicher vernichtet. 

CTRL-R wiederholt die Eingabezeile 
auf dem Bildschirm. Diese Funktion ist 
nur für ältere Terminals interessant, die 
auf dem Bildschirm keine Zeichen 
löschen können. 

CTRL-S unterbricht die Textausgabe 
auf dem Bildschirm, bis eine andere 
Taste (bei CP/M 3.0 muß es wieder 
CTRL-S sein) gedrückt wird. Anwen- 
dung findet CTRL-S häufig beim Befehl 
TYPE. 

CTRL-X löscht die eingetippte 
Befehlszeile vom Bildschirm. 

CTRL-U bewirkt, daß die eingetippte 
Zeile vom CCP ignoriert wird. CTRL-U 
ist zum Beispiel bei Fehleingaben zu 
empfehlen und in etwa mit der ESC- 
Taste unter Basic vergleichbar. 


Adstat #.* 


Acc 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
R/W 
12 R/W 

5 »B R/W 
Bytes Remaining On A: 


Recs Bytes 
2 
64 
10 
19 
15 
21 
14 
58 
19 
21 
33 
4 
2 
41 
3 
22 
21 
14 
76 
58 
208 
61 
41 
10 
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A> 


CTRL-V gemeinsam mit der ENTER- 
Taste läßt der CCP die eingetippte Zeile 
wie bei CTRL-U ignorieren. Sie wird 
aber trotzdem nochmals auf dem Bild- 
schirm angezeigt. CTRL-U ist jedoch 
vorzuziehen, da CTRL-V gleichzeitig ein 
Bildschirmsteuerzeichen ist, das den 
Transparentmodus einschaltet. In die- 
sem werden Zeichen nicht mehr 
gelöscht, sondern übereinander 
gedruckt. 

Es ist übrigens ohne Bedeutung, ob 
Sie Ihre Eingaben in Klein- oder Groß- 
buchstaben machen, denn der CCP 
wandelt alles in Großbuchstaben um. 


Sie haben sich sicher schon einmal 
das Inhaltsverzeichnis der mitgeliefer- 
ten CP/M-Systemdiskette ausgeben 
lassen. Wenn nicht, zeigt Bild 3 das 
Directory beider Diskettenseiten. Für 
die Arbeit mit CP/M ist nur die Seite A 
interessant, denn dort befinden sich 
alle unentbehrlichen Hilfsprogramme. 
Man kann zwei Gruppen von Program- 
men unterscheiden: die CP/M- 


A: AMSDOS. COM 
A: ASM.COM 

A: BODOTGEN. COM 
A:CHKDISC. COM 
A:CLOAD.COM 
A:COPYDISC. COM 
A:CSAVE.COM 
A:DDT.COM 

A: DISCCHK. COM 
A:DISCCOPY.COM 
Az DUMP. ASM 

A: DUMP. COM 
A:ED.COM 
A:EX1.BAS 
A:EX2.BAS 
A:FILECOPY.COM 


A:ROINTIME.DEM 
A: SETUP.COM 
A:STAT.COM 

A: SUBMIT.COM 
A:SYSGEN. COM 
A: XSUB.CDM 

Sk 





Bild 4. Informationen über die Programme der Systemdiskette bekommen Sie mit 


dem Befehl »STAT*.*« 


Standardprogramme und die speziell 
auf den Schneider zugeschnittene 
Software. Letztere umfaßt die Pro- 
gramme AMSDOS (Rückkehr aus CP/M 
nach Basic), FILECOPY (Kopieren von 
Dateien mit einem Laufwerk), COPY- 
DISC (Kopierroutine (sektorweise) für 
zwei Laufwerke). DISCOPY (Kopierrou- 
tine (sektorweise) für eine Floppy) 
sowie DISCCHK und CHKDISC zum 
Vergleich zweier Disketten nach dem 
Kopieren (Verify). Dazu kommen noch 
SETUP (Einstellen der CP/M-System- 
parameter wie Tastaturbelegungen und 
Initalisierungsdaten der Schnittstellen), 
FORMAT (Formatieren von Disketten), 
CSAVE und CLOAD (Speichern von 
CP/M-Dateien auf Kassette und umge- 
kehrt). Außerdem meldet das Inhalts- 
verzeichnis noch drei Dateien, die 
nichts mit CP/M, sondern mit Basic zu 
tun haben: ROINTIME (Demonstration 
eines Spielprogramms), EX1 und EX2 
(Speichern von Grafiken auf Diskette). 


Wichtige Utilities 


Die anderen Programme wurden von 
Digital Research entwickelt und gehö- 
ren zum Lieferumfang von CP/M 2.2. 
Sie lassen sich in zwei Kategorien 
unterteilen: in Routinen, mit denen sich 
jeder Benutzer auseinandersetzen 
muß, und in andere, die speziell für Pro- 
grammierer gedacht sind. Leider hat 
Schneider im Handbuch der Disketten- 
station nicht allzu viel Platz für die 
Beschreibung der Dienstprogramme 
aufgewendet; holen wir es also nach: 


SYSGEN (Generate System Sector) 
und BOOTGEN (Generate Boot Sector) 
benötigen Sie, wenn Sie eine im 
Vendor-Format beschriebene Diskette 
zu einer CP/M-Diskette machen wollen. 
Die beiden Programme schreiben die 
Systemspuren auf die neue Diskette. 

MOVCPM (Move CP/M System) 
erlaubt Ihnen, eine veränderte CP/M- 
Version auf die Diskette zu schreiben. 
Dies kann notwendig werden, wenn Sie 
beispielsweise Speicherplatz fest 
reservieren und damit das Betriebssy- 
stem im Speicher nach unten verschie- 
ben müssen. Allerdings wird dadurch 
der sowieso schon recht magere 
Umfang der TPA von rund 39 KByte 
noch knapper. Will man eine Speicher- 
erweiterung einbauen, so läßt sich mit 
MOVCPM die TPA anpassen. 

STAT (Status) ist ein Allzweck- 
Programm, das den freien Speicher- 
platz auf der Diskette angibt und mel- 
det, ob eine Diskette schreibgeschützt 
ist. Eine typische Ausgabe lautet: 

»A: R/W, Space: 50 k« 

»STAT A:« oder »STAT B:« meldet, wie- 
viel Speicherplatz auf dem angegebe- 
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nen Laufwerk noch frei ist. »STAT file- 
name.ext« liefert Informationen über die 
angegebene Datei. Bei »STAT *.*« mel- 
det das Programm diese Informationen 
über alle Dateien auf der Diskette. Es 
werden die Programmlänge in Records 
und Kilobytes, die Zahl der Extents 
(Directory-Einträge), der Dateistatus 
(R/W = Read/Write, Lesen und Schrei- 
ben erlaubt; R/O = Read-Only, nur 
Lesen erlaubt) und der Dateiname aus- 
gegeben. Einen Ausdruck der System- 
diskette zeigt Bild 4. 

»STAT filename.ext $SYS« erklärt die 
angegebene Datei zur »Systemdatei«. 
Diese wird im Directory nicht mehr geli- 
stet. 

»STAT filename.ext $DIR« verwandelt 
eine Systemdatei wieder in ein norma- 
les File, das auch im Inhaltsverzeichnis 
auftaucht. 

»STAT filename.ext $R/O« schützt 
eine Datei dauerhaft gegen Schreibver- 
suche. Dies kann mit »STAT filename.ext 
$R/W« wieder rückgängig gemacht 
werden. 

»STAT A:=R/O« und »STAT B:=R/O« 
erklären das Laufwerk bis zum näch- 
sten Warmstart (CTRL-C) als schreibge- 
schützt. 

»STAT USR:« liefert die aktuelle User- 
Nummer und teilt dem Benutzer außer- 
dem mit, welche User-Bereiche auf der 
Diskette benutzt werden. 

»STAT DEV:« meldet die Zuordnung 
der logischen Peripheriegeräte (Devi- 
ces) zu den physikalischen Geräten. Es 
gibt vier logische Geräte: 

»CON« die Konsole, 

»RDR« der Lochstreifenleser (Rea- 
der), 

»PUN« der Lochstreifenstanzer (Pun- 
cher) 

»LST« der Druckerausgang (Lister). 


Rein und raus 


Beim Schneider finden normaler- 
weise nur die Bezeichnungen »LST:« 
und »CON:« Verwendung. Dabei ist die 
Bezeichnung »CON:« eigentlich dop- 
peldeutig. Als Quelle ist damit die Tasta- 
tur gemeint, als Ziel der Bildschirm. 
Schließlich können Sie - zumindest 
nach CP/M-Verständnis - keine Zei- 
chen vom Bildschirm lesen oder an die 
Tastatur schreiben. 

»STAT log:=phy:« ordnet einem logi- 
schen Ausgabegerät ein physikali- 


schaften der Disketten. Statt »STAT 
DSK:« können Sie auch »STAT A:DSK:« 
oder »STAT B:DSK:« eingeben, um ein 
spezielles Laufwerk anzusprechen. 

»STAT VAL:« zeigt eine Auflistung aller 
gültigen Befehlsformate des STAT-Pro- 
gramms. In Bild 6 sehen Sie einen Aus- 
druck davon. 

PIP (Peripheral Interchange Program) 
ist ein sehr leistungsfähiges Programm 
zum Austausch von Daten zwischen 
den verschiedenen Peripheriegeräten. 
Es gibt zwei »Betriebsarten« für das PIP- 
Programm. Entweder geben Sie direkt 
nach »PIP« die gewünschte Operation 
an oder Sie gelangen in einen Eingabe- 
modus, bei dem Sie wiederholt Befehle 


Logisches Gerät CON: 
Cathode Ray Tube (Bildschirm) 
Teletype (Fernschreiber) 
Batch (Stapelverarbeitung für Lochkarten) 

User Console 1 (vom Benutzer festlegbar) 


ORT: 
TTY: 
BAT: 

UC!: 


Logisches Gerät RDR: 

LY; Teletype (Fernschreiber) 
PTR: 
UR1: 
UR2: 


Logisches Gerät PUN: 

TTY: Teletype (Fernschreiber) 
PTP: 
UP1: 
UP2: 


Logisches Gerät LST: 

TTY: Teletype (Fernschreiber) 
ORT. 
LPT: 
ULE: 


Zusätzliche PIP-Gerätenamen: 
PRN: Printer 


geben können, ohne die Routine dau- 
ernd neu laden zu müssen. Wollen Sie 
beispielsweise die beiden Dateien 
PROG.A und DATEI.B von Laufwerk A 
auf Laufwerk B kopieren, können Sie 
eingeben: 


A) PIP B:=A:PROG.A 
A) PIP B:=A:DATEI.B 


Im Eingabemodus geht das etwas 
einfacher und vor allen Dingen schnel- 
ler: 


A) PIP 
*B:=A:PROG.A 
*B:=A:DATEI.B 
*IC 


Paper Tape Reader (Lochstreifenleser) 
User Reader 1 (vom Benutzer festlegbar) 
User Reader 2 (vom Benutzer festlegbar) 


Paper Tape Puncher (Lochstreifenstanzer) 
User Puncher 1 (vom Benutzer festlegbar) 
User Puncher 2 (vom Benutzer festlegbar) 


Cathode Ray Tube (Bildschirm) 
Line Printer (Zeilendrucker) 
User Lister 1 (vom Benutzer festlegbar) 


Entspricht LST: mit der Option [PNT8] 


NUL: Nulls 


Entspricht PUN:, sendet aber 40 Nullbyte als Vor- und Nachlauf 


EOF: End-Of-File 


Enspricht PUN:, erzeugt aber am Dateiende die Kennung Control-Z 


INP: User Input 


Vom Benutzer derfinierbares Gerät 


OUT: User Output 


Vom Benutzer definierbares Gerät 





Bild 5. So ordnet CPI/M die logischen Peripheriegeräte den tatsächlichen 


Einheiten zu 


A>stat val: 
. Temp R/O Disk: d:=R/O 
Set Indicator: 
Disk Status : 
User Status : 
lIobyte Assign: 


USR: 


d:filename.typ $R/O #R/W $5YS $DIR 
DSK: d:DSK: 


sches zu, so wie es dann von »STAT 
DEV:« gemeldet wird. Damit ließen sich 2 
zum Beispiel serielle Schnittstellen PUN: = TTY: PTP: 
beim Schneider ins System integrieren. LST: = TTV: CRT: 
Welche physikalischen Gerätesichden | > 
logischen zuordnen lassen, zeigt Bild. 
»STAT DSK:« meldet genaue Informa- 
tionen über die Formatierungseigen- 
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BAT: 
uURi: 
url: 
LPT: 


uets 
UR2: 
UP2: 
url1: 


CON: = TTY: CRT: 
RDR: IIYs;PIRY 





Bild 6. STAT über sich selbst. Der Befehl »STAT VAL:« 


























Sie können mit PIP-Dateien von allen 
möglichen Peripheriegeräten zu ande- 
ren Geräten übertragen: 

»PIP B:=A:*.*« kopiert die ganze Dis- 
kette von Laufwerk A nach B. 

»PIP A:PCOM=B:Q.CON« kopiert 
Q.COM von B nach A und nennt die 
neue Datei PCOM. 

»PIP TEXTTXT=COM:« liest Einga- 
ben von der Tastatur in die Diskettenda- 
tei TEXT.TXT, bis Sie CTRL-Z drücken. 

»PIP LST:=CON:« nimmt Tastaturein- 
gaben an und überträgt sie an den 
Drucker, bis Sie CTRL-Z drücken. Um 
hier in eine neue Zeile zu gelangen, 
müssen Sie neben ENTER auch noch 
CTRL-J (Line Feed) eingeben. 


Text mit 
Zeilennummern 


Es gibt spezielle Befehle, die Sie PIP 
beim Übertragen der Dateien mitgeben 
können, beispielsweise zum automati- 
schen Einfügen von Zeilennummern 
oder Löschen des 7. Bits aller Zeichen. 
Diese Anweisungen werden nach den 
Dateinamen in eckigen Klammern 


Block Mode Transfer 


angegeben. Ein Befehl heißt zum Bei- 
spiel»[N]«. Erfügt bei der Dateiausgabe 
Zeilennummern ein. Wollen Sie also 
eine Textdatei »B:FILE.TXT« auf dem 
Drucker mit Zeilennummern ausgeben, 
erreichen Sie das durch »PIP 
LST:=B:FILETXTIN]«. Auch die Kombi- 
nation mehrerer solcher Befehls- 
Buchstaben enthält die Tabelle in Bild 7. 


SUBMIT und XSUB sind Programme, 
die Ihnen eine Menge unnötiger Tippar- 
beit abnehmen. Normalerweise geben 
Sie die Befehle des CCP über die Tasta- 
tur ein. Sie können aber auch alle 
Befehle in eine Datei mit der Endung 
‚SUB, zum Beispiel »COPY.SUB«, 
schreiben und dann durch »SUBMIT« 
ausführen lassen. Der Computer ver- 
hält sich dann so, als kämen die Einga- 
ben von der Tastatur, holt sie aber in 
Wirklichkeit von der Diskettendatei. Bei 
regelmäßig wiederkehrenden Routine- 
aufgaben müssen Sie dann nicht vor 
dem Computer sitzen, um immer wieder 
neue Befehle einzugeben - SUBMIT 
macht das für Sie automatisch. 

Programmieren Sie zur Übung doch 
einmal eine kleine Datei. Wenn Sie 
keinen Editor zur Verfügung haben, 


Kopieren, bis ein Control-S auftritt 


Delete From Column x 


Löscht alle Zeichen ab der Spalte x 


Echo 


Alle Zeichen werden auf dem Bildschirm ausgegeben 


Delete Form Feeds 


Löscht alle ASCII-12-Zeichen (Form Feed) aus der Datei 


Get From User Area x 


Holt die Datei aus dem Benutzerbereich x 


Copy Intel-Hex File 


‘ ‚Stellt fest, ob die Datei eine Intel-Hex-File ist. 


Ignore :00 Records 


Ignoriert alle Aufzeichnungen einer Intel-Hex-Datei, die mit :00 beginnen. 


Lower Case 


Gibt die Datei in Kleinschrift aus. 


Line Numbers 


Fügt vor jeder Zeile durchgehende Zeilennummern ein. 


Line Numbers (2) 


Wie [N], jedoch Zeilennummern mit führenden Nullen. 


Copy Object File 


Kopiert Dateien, ohne das EOF-Zeichen Control-Z zu beachten. 


Pages 


Alle x Zeilen wird ein Form-Feed-Zeichen eingefügt. 


Otext!S Quit Copy 


Kopiert die Datei, bis der String »text« entdeckt wird. 


R Read System File 
Kopiert Systemfiles ($SYS) 


StexttS Start Copy 


Kopiert die Datei ab der Stelle, an der »text« gefunden wird. 


Set Tabulators 


Setzt Tabulatoren alle x Stellen. 


Upper Case 


Alle Buchstaben werden in Großbuchstaben umgewandelt. 


Verify Data 


Überprüft bei Diskdateien die geschriebenen Zeichen nochmals. 


Write Over R/O Files 


Überschreibt schreibgeschützte Dateien ohne Warnung. 


Set Bit 7 To Zero 


Löscht in allen Zeichen das siebte Bit. 
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können Sie PIP verwenden: »PIP 
A:INFO.SUB=CON:«. Alle Tastatur- 
eingaben werden jetzt in die Datei 
»INFO.SUB« übertragen. Beenden kön- 
nen Sie Ihre Eingabe mit CTRL-Z. Hier 
der Dateiinhalt für unser Beispiel: 

A: 

DIR 

DIR B: 

STAT *%.%* 

STAT DSK: 

STAT USR: 

Wenn Sie nur ein Diskettenlaufwerk 
besitzen, lassen Sie die Zeile »DIR B:« 
weg. Sobald Sie die Datei angelegt 
haben, müssen Sie sicherstellen, daß 
sich SUBMIT auf der eingelegten Dis- 
kette befindet. Tippen Sie dann »SUB- 
MIT INFO« ein und Sie erhalten eine 
Menge Informationen über Disketten 
und Laufwerk. 


Auch Stringvariablen werden von 
SUBMIT verarbeitet. Diese heißen $1 
bis $9. Da hinter »SUBMIT INFO« auch 
Texte eingegeben werden können, wer- 
den diese automatisch den Strings 
zugeordnet. Lautet Ihre Eingabe etwa: 

»SUBMIT PROG DATEIN.ASM 
FILE2. COM PROGRAMM3.BAS« 

Dann erkennt der Computer SUBMIT 
als den Programmnamen und PROGals 
»PROG.SUB«, die Submit-Datei. Der 
Stringvariablen $1 wird »DATEI1.ASM« 
zugeordnet, $2 wird mit »FILE2.COM« 
und $3 mit »PROGRAMM3.BAS« 
belegt. 

Legen Sie nun eine neue Datei unter 
dem Namen »FILE.SUB« an: 

DIR $1 
STAT $1 
TYPE $1 
PIP $2=$1 

Um das Programm zu starten, ist 
diese Befehlsfolge notwendig: »SUB- 
MIT FILE dateil.typ datei2.typ« (bei- 
spielsweise »SUBMIT FILE TEXT.TXT 
BRIEFWSe). 

SUBMIT »übersetzt« 
Aufruf so: 

DIR TEXT.TXT 
STAT TEXT.TXT 
TYPE TEXT.TXT 
PIP BRIEF.WS=TEXT.TXT 

Die Datei TEXT.TXT haben Sie noch 
von der Erklärung des PIP-Kommandos 
auf Ihrer Diskette. Wenn Sie versuchen, 
auch in einem aufgerufenen Programm 
die Tastatureingabe durch eine Submit- 
Datei zu simulieren, werden Sie bemer- 
ken, daß das so nicht geht. Denn SUB- 
MIT arbeitet nur auf der CCP-Kom- 
mandoebene. Für solch einen Zweck 
benötigen Sie XSUB. XSUB muß dazu 
ebenfalls in die SUB-Datei geschrieben 
werden. So können Sie zum Beispiel 


dann diesen 
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die PIP-Kommandoebene aufrufen, um 
ein Programm über die Tastatur einzu- 
geben: 


XTEST.TXT=CON: 


Die Routine geben Sie mit »PIP 
XSUBTEST.SUB=CON: ein. Nach 
»SUBMIT XSUB TEST« startet das Pro- 
gramm PIP und geht zur Eingabe über. 
Ohne XSUB würde der Computer nach 
dem Start von PIP stehen bleiben, da 
keine Parameter (für PIP) mit überge- 
ben werden. 


Für Maschinen- 
sprache-Fans: 
ASM, LOAD und DDT 


Das Dreigespann ASM, LOAD und 
DDT ist bereits alles, was ein Ma- 
schinensprache-Programmierer unter 
CP/M an Software braucht. Bei ASM 
handelt es sich um einen einfachen 
8080-Assembler, LOAD übersetzt die 
vom Assembler gelieferten Dateien in 
ausführbare Programme und DDT istein 
recht mächtiger Maschinensprache- 
Monitor und Debugger. 

Der DDT (Dynamic Debugging Tool) 
wurde bereits im zweiten Schneider- 
Sonderheft ausführlich erklärt. Falls Sie 
diese Ausgabe nicht zur Hand haben, 
finden Sie in Bild 8 eine Auflistung der 
DDT-Befehle. Sie sollten aber noch wis- 
sen, daß der DDT-Debugger prinzipiell 
mit Hexadezimal-Zahlen arbeitet. 3000 
ist für ihn also nicht 3000 dez, sondern 
3000 hex oder 12288 dez. 


Der Assembler: 
nicht super, aber 
ausreichend 


Auch wenn ASM (aufgerufen mit 
»ASM Quelldatei ASM«) nicht alle Spe- 
zialitäten hochentwickelter Assembler 
wie Makros oder Erzeugung relokati- 
bler (verschiebbaren) Codes bietet, 
reicht er für unsere Zwecke vollauf aus. 
Er übersetzt alle 8080-Befehle, und 
das istja das Wichtigste. Zudem besitzt 
ASM neben dem Prozessorbefehlssatz 
noch folgende Pseudokommandos: 

EQU ordnet einem Label einen Wert 
zu, zum Beispiel RESET EQU O. Nach 
dieser Zuweisung kann RESET gleich- 
wertig neben O verwendet werden: 
RESET EQU O0 

CALL RESET 
LHLD RESET 


Solche Marken dürfen auch vor 
Maschinencode-Befehlen stehen und 


besitzen dann als Wert die gerade 
aktuelle Adresse: 
START LXI SP,0100H 


(das H steht für hex,). 
Ein Beispiel: 

Stellen Sie sich vor, daß der LXI- 
Befehl an der Adresse 0200 hex steht. 
START entspricht dann 0200 hex. 

SET funktioniert ähnlich, ermöglicht 
aber wiederholte Definitionen des glei- 
chen Labels: 

X SET 2000H 
LDA X 
X SET 3000H 
STA X 


Diese Marken dürfen nicht den glei- 
chen Namen haben wie ein Pseudo- 
kommando oder ein Maschinenbefehl 
(beispielsweise ORG oder RET). Die 
Labels können bis zu 16 Buchstaben 
lang sein. Dabei sind alle Stellen gültig. 
Außer Buchstaben und Zahlen ist als 
Teil eines Labels nur das Dollar-Symbol 
($) erlaubt - zum Beispiel: RESET 
$CPM, WARM$BOOT. Es zählt aber 
nicht zu den 16 erlaubten Stellen. 

SET und EQU dürfen auf bereits defi- 
nierte Labels zurückgreifen, beispiels- 
weise »RESET EQU O« und »BDOS 
EQU RESET+970OH«. Hier sehen Sie 
auch, daß Berechnungen in den vier 
Grundrechenarten sowie die Logik- 
funktionen AND, OR, XOR und NOT 
sowie SHL (Shift Left, wie »2000H SHL 
2«) und SHR (Shift Right, zum Beispiel 
»3000H SHR 4«) erlaubt sind. Aber 
Achtung: Diese Berechnungen werden 
nur während des Assemblierungsvor- 
gangs durchgeführt, nicht während des 
Ablaufs des Maschinenprogramms. Sie 
sind damit kein Ersatz für die 
8080-Arithmetikbefehle wie DCR, ADI, 


ORA oder SBBundeignen sich nicht für 
Rechnungen, bei denen Werte erst 
während der Programmbearbeitung zur 
Verfügung stehen. 

Zwei weitere Pseudobefehle heißen 
ORG (Origin) und END. ORG setzt den 
Programmzähler auf den angegebenen 
Wert. An diese Adresse wird das 
zukünftige Programm geladen. Da die 
TPA bei 0100 hex beginnt, sollte die 
erste Zeile des Programms ORG 
O100H lauten. END zeigt dem Assem- 
bler das Ende der Quelldatei an. 

Auch eine bedingte Assemblierung 
ist gestattet. IF und ENDIF sind die 
Befehle dazu. So kann man Programm- 
teile übersetzen lassen oder von der 
Assemblierung ausschließen, wenn 
eine angegebene Bedingung zutrifft. 


Bedingte 
Assemblierung 


Datenbereiche werden mit DS 
(Define Storage), DB (Define Byte) und 
DW (Define Word) in den Programm- 
code eingefügt: 

DS 23 reserviert 23 Byte Speicher- 
platz, die vom Maschinencode-Pro- 
gramm zum Beispiel für Daten oder als 
Zwischenspeicher benutzt werden 
können. Der Inhalt dieses Bereichs ist 
undefiniert, also nicht zwangsläufig mit 
Nullen gefüllt. »DB 24.20H,010B/A« 
legt im Speicher die Bytes 24, hex 20, 
bis 010 und 65 (ASCIl-Wert von A) ab. 
DW macht dasselbe für 16-Bit-Werte: 
»DW 16384,9000H«. 

Der aktuelle Programmzähler (die 
Adresse, an der das Programm sich 
gerade befindet) wird durch das Dollar- 


= Assemble Mnemonics eingeben und assemblieren 

A [Adresse], Beispiel: AD100 

Speicherbereich hexadezimal und ASCII ei 
D [Von], [Bis], Beispiel: DO100,0200 
Speicherbereich füllen 
F [Von], [Bis], [Womit], Beispiel: F3000,4000, E65 


= Dump 
= Fill 


=Go 


Maschinenprogramm aufrufen, auch mit Brake 


G [Wohin] oder G [Wohin], [Stop1], [Stop2], ge BR 
Hexadezimale Addition und Subtraktion 

H [Zahl1], [Zahl2], Beispiel: HO003,1F3A 

Dateinamen zum Datei-Einlesen vorgeben 

| [Dateiname.Ext], Beispiel: IPROG.COM 


Disassemblier-Funktion 


L [Von], [Bis], Beispiel: L9700,9800 
Speicherbereiche verschieben 
M [Von], [Bis], [Wohin], Beispiel: M9800,9F00, 4000 











128 


MAAPPY X 














FINDER 

















zeichen repräsentiert. Um zum Beispiel 
zehn Byte vorwärts zu springen, 
braucht man nur JMP $+10 eingeben. 

ASM erlaubt es, mehrere Befehle in 
einer Zeile unterzubringen. Ähnlich 
dem Doppelpunkt, der in Basic Befehle 
trennt (ein Beispiel: CLS:LIST), wird hier 
das Ausrufezeichen verwendet (CMPH 
! RZ). Kommentare leitet - wie bei 
Z80/8080-Assemblern üblich - ein 
Strichpunkt ein. Aber auch den Stern 
(*), den manche Assembler vorziehen, 
akzeptiert ASM als Kommentarken- 


nung: 
; So wird kommentiert 
* So auch 

Zahlen können dezimal (23 oder 
23D), hexadezimal (OFFH), binär 


(0101B) und oktal (970 oder 97Q) 
angegeben werden. Auch hexadezi- 
male Zahlen müssen mit einer Ziffer 
beginnen, notfalls stellen Sie eine Null 
voran. Stringkonstanten erkennt der 
Assembler nur, wenn sie von einfachen 
Anführungsstrichen (') umgeben sind. 
Außerhalb von Anführungsstrichen 
werden alle Kleinbuchstaben in Groß- 
buchstaben umgewandelt. Die Eingabe 
erfolgt formatfrei. Die einzelnen Teile 
einer Zeile müssen lediglich durch min- 
destens ein Leerzeichen oder einen 
Tabulatorsprung voneinander getrennt 
sein. Wie Sie Ihr Programm eintippen 
wollen, bleibt also Ihnen überlassen. 


Kommentare zur 
Dokumentation 


Eine vollständige und syntaktisch 
richtige Quellcode-Zeile könnte für 
ASM so aussehen: »START: LXI H,$/2 ! 
DB C9YH,00B/Text'; Kommentar«. Der 
Assembler läßt sich zum Beispiel mit 
»ASM file. ABX« aufrufen. Ausnahms- 
weise bedeuten die drei Zeichen nach 
dem Punkt im Dateinamen, hier ABX, 
nicht die Extension des Namens. 
Quellcode-Dateien müssen nämlich 
immer mit ASM enden, um mit ASM 
bearbeitet werden zu können, bei- 
spielsweise FILE.ASM, PROGRAM. 
ASM, CODE.ASM. Das erste Zeichen 
der Extension beim Aufruf gibt an, auf 
welchem Laufwerk sich die Quelldatei 
befindet - also AoderB. Das zweite Zei- 
chen teilt dem Assembler mit, auf wel- 
che Diskettenstation er den erzeugten 
Code schreiben soll. Statt einer Lauf- 
werksbezeichnung können Sie auch Z 
angeben. Dann erzeugt ASM keinen 
Code, sondern prüft nur das Assem- 
blerprogramm auf syntaktische Richtig- 
keit. Das dritte Zeichen der Extension 
bezeichnet das Laufwerk, auf dem die 
List-Datei ausgegeben werden soll. Z 
unterdrückt die Ausgabe, X leitet das 
Listing auf den Bildschirm um. »ABX« 


bedeutet dann, daß die Quellcode- 
Datei auf Laufwerk A steht, der 
erzeugte Code auf B geschrieben wird 
und das Listing auf den Bildschirm pro- 
tokolliert wird. »AAX« speichert auch 
das erzeugte Programm auf A. 

Nach der Übersetzung mit ASM 
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befinden sich zwei weitere Dateien auf 
der Diskette. Sie haben den gleichen 
Namen wie die Quelldatei, jedoch eine 
andere Extension: ».PRN« ist die Listda- 
tei und ».HEX« die Code-Datei. 

Diese Code-Datei muß noch von 
einem anderen Programm zu einem 




















Data Error 


Die Zahl ist zu groß für den vorgesehenen Datenbereich. 


Espression Error 


Der Ausdruck kann nicht berechnet werden. 


Label Error 


Fehler bei der Zuweisung eines Labels (Marke). 


Not Implemented 


0100 


0100 OEO9 
0102 112D01 
0105 CDO500 


0108 OEOA 
010A 114501 
010D CD0500 


Diesen Befehl versteht ASM nicht, evtl. aber MAC 


oder RMAC. 
Overflow 


Der Ausdruck ist zu kompliziert bzw. ein String hat 


mehr als 64 Zeichen. 
Phase Error 


Das Label hat im Paß 2 einen anderen Wert als im Paß 1. 


Register Error 


Das angegebene Register kann bei diesem Befehl 


nicht verwendet werden. 
Syntax Error 


Ein falsches Mnemonic wurde gefunden. 


Undefined Symbol 


Ein Symbol ist vor der Verwendung nicht definiert worden. 


Value Error 
Ein Wert ist fehlerhaft. 


Bild 9. Fehlermeldungen des ASM 


COM-File gemacht werden - von 
LOAD.COM. Der Aufruf von LOAD 
erfolgt mit dem Namen der HEX-Datei, 
aber ohne Extension (Beispiel: »LOAD 
PROGRAM). 

Wenn Sie Ihr Programm also auf den 
Namen PROGRAM getauft haben, 
befinden sich jetzt folgende Dateien auf 
der Diskette: PROGRAM.ASN (der 
Quellcode), PROGRAM.PRN (die List- 


Aller Anfang ist leicht 


ze, co CP/M-Programme 


ypim el schreiben, das 
er heißt in Maschi- 
nensprache programmieren. 
Aber keine Angst, die ersten 
Versuche sind ganz einfach. 


enn Sie sich durch die 
anderen Artikel unseres 
CP/M-Teils  »durchgebis- 


sen« haben, dann sollen Sie hier 
belohnt werden. Wir wollen ein CP/M- 
Programm schreiben. Zuerst ist es 
noch ganz einfach. Es wird nur eine 
Meldung - ein String - auf dem Bild- 
schirm ausgegeben. 

Zum Eingeben des Programms neh- 
men Sie ein beliebiges Textverarbei- 
tungsprogramm - notfalls die unter 
»Einstieg in CP/M« beschriebene Vari- 
ante mit »PIP File. ASM=CON:«. ».ASM« 
deshalb, damit der ASM-Assembler 
unsere Routine übersetzen kann. Ein 
Editor (ED) steht auf der Systemdis- 
kette Ihres Schneiders. Wollen Sie mit 


0110 214501 
0113 3620 
0115 23 
0116 5E 


0117 3620 
0119 1600 
011B 23 
o11c 19 
011D 3621 
O11F 23 
0120 3624 


0122 0E09 
0124 113E01 
0127 CD0500 


012A C30000 
012D 5769652068ASK : 


013E ODOA4B616CANS: 
0145 41 BUF: 


;Datei HALLO.ASM 


ORG O100H 


MVI C,9 
LXI D,ASK 
CALL 5 


;Frage nach Namen 


WI C,10 
LXI D,BUF 
CALL 5 


;Lies den Namen 


Füge Leerzeichen zwischen 
“Hallo” und Name ein 


LXI H,BUF 
MVI M,20H 
INX H 
MOV E,M 


;ASCII Leerzeichen 


;Bestimme Zahl der 
;Zeichen der Antwort 
MVI M,20H 

MVI D,O 

INX H 

DAD D 

MUIM,'L 

INX H 

MI M,'S' 


WI C,9 
LXT D,ANS 
CALL 5 
JMP 0000 ;Zurück zum CCP 
DB 'Wie heißen Sie? S' 

DB ODH,OAH, 'Hallo' 

DB 65 ;Puffergröße: 65 Zeichen 





Listing. Ihr CPC lernt Sie kennen 


Datei), PROGRAM.HEX (die Hex-Datei) 
und PROGRAM.COM (das ausführbare 
Programm). 

Versuchen Sie doch einmal, das 
Listing einzugeben, zu speichern und 
anschließend zu assemblieren. Wenn 
alles korrekt verläuft, meldet sich das 
fertige Programm mit der Frage »Wie 
heißen Sie?«. Nach Eingabe Ihres 
Namens begrüßt Sie Ihr Computer mit 


Wordstar arbeiten (sehr komfortabel für 
Maschinencode-Eingaben), dann müs- 
sen Sie Ihre Eingabe unbedingt im N- 
Modus (Bearbeiten einer Programmda- 
tei) vornehmen. 

In die erste Zeile Ihres Programms 
gehört ein Kommando, das den Pro- 
grammzähler auf die Adresse O100hex, 
den Beginn der TPA, setzt: 


ORG O100H 


Oder, wenn Sie es übersichtlicher 
und klarer haben wollen, dürfen Sie ein 
Label definieren: 


TPA EQU 0100H 
ORG TPA 


Damit wir genau wissen, wo sich der 
Stapelzeiger (SP-Register) befindet, 
fügen wir einen Ladebefehl ein, der das 
Register auf den Bereich direkt unter- 
halb der TPA zeigen läßt. Dortreserviert 
sich das Betriebssystem einen 128 
Byte großen Puffer, den wir jetzt aber 
noch nicht benötigen: 

LXI SP,O0100H 
oder 


SP,TPA 
Alle CP/M-Funktionen 


werden über 


»Hallo« und Ihrem Namen. Dank der 
Kürze ist das Listing auch für Anfänger 
noch überschaubar. 

Natürlich entdeckt der Assembler 
auch Fehler in Ihrem Programm. Diese 
werden in der List-Datei und zusätzlich 
auf dem Bildschirm mit einem Kenn- 
buchstaben ausgegeben. Das Bild 9 
zeigt alle Fehlercodes. 

(Martin Kotulla/hg) 





das BDOS (Basic Disk Operating 
System) aufgerufen. Aber wie macht 
man das? 

1. Man lädt das C-Register mit der Num- 
mer der gewünschten Funktion. Alle 
BDOS-Funktionen sind durchnumme- 
riert. 

2. Wenn 8-Bit-Werte übergeben wer- 
den sollen, nutzt man dazu das E- 
Register, bei 16-Bit-Werten nimmt man 
das DE-Doppelregister als Speicher für 
den benötigten Wert. 

3. An der Adresse 5 (0005hex) steht 
ein direkter Sprung ins BDOS. Also ruft 
man diese Adresse auf. Nach Bearbei- 
tung der BDOS-Funktion fährt der Pro- 
zessor unmittelbar nach der Aufruf- 
stelle im Programm fort. 

Da wir eine Zeichenkette ausgeben 
wollen, suchen wir uns eine Funktion 
heraus, die das macht. Dies ist die 
BDOS-Funktion 9. Also laden wir das C- 
Register mit dieser Funktionsnummer 
(hier der 9): 

MVI C,9 

Übersichtlicher und damit auch für 
andere verständlicher wird es mit einer 
EQU-Zuweisung: 
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OUTPUTS EQU 9 
MVI C,OUTPUTS 
Zu lesen ist das Label als »Output 


String« (Gebe eine Zeichenkette aus). 


Da das BDOS wissen muß, an wel- 
cher Adresse der String zu finden ist, 
laden wir das DE-Register mit einem 
symbolischen Zeiger auf den Text: 

LXI D,STRING 

Alle Vorbereitungen sind getroffen 
und der Aufruf kann an das BDOS abge- 
schickt werden. 

BDOS EQU 5 
CALL BDOS 

Da das Programm schon zu Ende ist, 
fügen wir gleich noch einen Warmstart 
ein, so daß der Benutzer wieder im CCP 
landet: 

WARM EQU O 
JMP WARM 

Doch halt! Wir haben janoch gar nicht 
den String angegeben, den wir aus- 
drucken wollen. Das läßt sich nachho- 
len: 
STRING DB 
ist das!'! 

Ganz Gewissenhafte können jetzt 
noch »END« dazuschreiben - bei man- 
chen Textsystemen muß man END 
immer angeben, da sonst ASM »ins 
Blaue hinein« assembliert. Da hilft dann 
nur Ausprobieren. Eine Quelle meist 
»unerklärlicher« Fehler bei der Pro- 
grammübersetzung durch den ASM ist 
so heimtückisch, daß fast jeder einmal 
darüber stolpert: Vergessen Sie kei- 
nesfalls bei Wordstar, in der letzten Pro- 
grammzeile den Zeilensprung (Enter) 
auszulösen. Andernfalls steigt der ASM 
ohne jede Fehlermeldung aus! 

Tippen Sie das Programm ab und 
speichern Sie es als »MYFIRST.ASM«. 
Dem Assembler übergeben Sie es als 
»ASM MYFIRST.AAA« und dem Lader 
als »LOAD MYFIRST«. 

Schauen Sie sich doch einmal mit 
»TYPE MYFIRST.PRN« oder »PIP LST: 
=MYFIRST.PRN« die List-Datei an. 
Wenn Sie Tippfehler gemacht haben, 
entdeckt ASM diese und meldet alle 
Zeichen, die er nicht versteht. Dann 
müssen Sie nochmals mit dem Editor 
heran und die beanstandeten Zeilen 
verbessern. Die Fehlermeldungen fin- 
den Sie in Bild 9 des Artikels »Einstieg 
in CP/M«. 

Irgendwann ist ASM dann mit dem 
Quellcode so zufrieden, daß er keine 
Fehlermeldungen mehr ausspuckt, und 
Sie können mit LOAD ein COM-File 
erzeugen. Wenn der übliche Prompt 
»A« erscheint, geben Sie »MYFIRST« 
ein. CP/M lädt Ihr Programm von der 
Diskette und startet es. Doch was ist 
das? Er hört gar nicht nach dem kurzen 
Satz auf, sondern druckt noch einen 
Haufen Buchstaben aus, die nie und 
nimmer im Quellcode stehen! 


'Hallo -- so einfach 


Es kann sogar der Fall eintreten, daß 


Sie einen Reset auslösen und CP/M 
neu laden müssen. Bei gründlicher 
Überlegung können Sie durchaus auf 
die Fehlerursache kommen. Wir haben 
der BDOS-Routine gar nicht mitgeteilt, 





’ 





’ 










BDOS EQU 5 
TPA EQU O0100H 
WARM EQU 0 ; 


OUTPUTS EQU 9 


ORG TPA 


Dr 





SP,TPA ; 





MVI C,OUTPUTS; 

LXI D,STRING ; 
CALL BDOS ; 
JMP WARM ; 


STRING DB 'Hallo - so 


3 
MYFIRST.ASM - Das erste CP/M-Programm 


Definitionen KRrRRRRRRKRRRKRRRKRRKRRRR 


; Sprung ins BDOS 

; Beginn. der TPA in CP/M 
Warnstart 

; BDOS-Funktion 9: Stringausgabe 


; Programm PRERRRHRRRRHHHRRRHHEKN 
Programnstart festsetzen 
Stackpointer unter die TPA 
BDOS-Funktionsnummer ins C-Register 
Zeiger auf den String 

Vom BDOS ausgeben lassen 


CP/M-Warnstart 


einfach ist das!',13,10,'$' 


wie lang der auszugebende String ist, 
beziehungsweise wo er endet! 

Wir haben weiter oben erfahren, daß 
nur das DE-Register laut CP/M-Kon- 
vention zur Datenübermittlung benutzt 
werden darf. Dieses ist aber schon mit 













B 
; MYFIRST.ASM - Das erste CP/M-Programm 


’ 


BDOS 
TPA EQU 
WARM EQU 0 
OUTPUTS EQU 9 


EQU 5 


u 1} 


O0100H 


» Definitionen REERRHRHHHHHHHHHHRNK 


; Sprung ins BDOS 

; Beginn der TPA in CP/M 

; Warmstart 

; BDOS-Funktion 9: String- 
ausgabe 


; Programm PERRRRRRRRRRRRRRRRHHRRRRN 


ORG TPA 


310001 
OEO9 


START LXI 


110E01 
CD0500 
030000 
48616C6C6FSTRING 


BDOS 
WARM 


SP,TPA 
C,OUTPUTS 


D,STRING 





; Programmstart festsetzen 


; Stackpointer unter die TPA 
; BDOS-Funktionsnummer 
ins C-Register 
; Zeiger auf den String 
; Vom BDOS ausgeben lassen 
; CP/M-Warnstart 


'Hallo - so einfach ist das!',13,10,'$' 


Bild 2. So sieht »MYFIRST« nach dem Bearbeiten mit dem Assembler aus 


:100100003100010E09110E01CD0500030000486148 
:100110006C6C6F202D20736F2065696E666163685B 
:0C0120002069737420646173210DOA24AF 


:0000000000 





Bild 3. Das Intel-Hex-Format Ihres Programms ist für Menschen unlesbar 
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dem Zeiger auf den String belegt. Da 
die Programmierer bei Digital Research 
konsequent bleiben wollten, haben sie 
sich dafür entschieden, das Stringende 
durch ein Dollarzeichen anzugeben. 
Bessern wir also die Zeile aus: 

STRING DB 'Hallo -- so einfach 
ist das! ',13,10,'$' 

Wenn Sie das Programm wieder nach 
der üblichen Prozedur übersetzen und 
ausführen lassen, erhalten Sie die 
gewünschte Bildschirmausgabe - und 
Ihr erstes fehlerfreies CP/M-Programm! 
Das Bild 1 zeigt den Quellcode, wie er 
von Ihnen eingegeben werden sollte, 
Bild 2 die List-Datei und die .HEX-Datei, 
das sogenannte Intel-Hex-Format. Die- 
ses spezielle Format wird vom Assem- 
bler erzeugt und von LOAD in eine 
COM-Datei ungewandelt. 


Bildschirmeffekte, 
> 
oh, la la! 


Kennen Sie zufällig einen Besitzer 
eines Commodore 128, eines Bond- 
well-, Sanyo- oder eines anderen CP/M- 
Computers? Sicher läßt er Sie einmal 
ein paar Minuten an sein Gerät. Tippen 
Sie auch dort das Programm ein und 
lassen Sie es laufen! Es ist schon ein 
tolles Gefühl, Programme zu schreiben, 
die auf einer Vielzahl verschiedener 
Computer ohne Änderungen lauffähig 
sind. 

Übrigens, die Bytes 13 und 10 im 
String dienen dazu, einen Wagenrück- 
lauf und ein Line Feed (Zeilenvorschub) 
an den Bildschirm zu senden. Damit 
hebt sich der ausgedruckte Satz bes- 
ser von der folgenden »A«-Meldung ab. 

Experimentieren Sie ruhig mit dem 
String. Siekönnen beispielsweise Steu- 
erzeichen zum Bildschirmlöschen oder 
zur Farbänderung einfügen. Sofern die 
Zeichen nicht gerade mit den CP/M- 
Steuerzeichen kollidieren, ist das er- 
laubt und kann tolle Bildschirmeffekte 
hervorrufen. Im Schneider-Handbuch 
finden Sie eine Tabelle mit allen erlaub- 
ten Bildschirm-Steuerzeichen. Wie 
wäre es etwa mit dieser Zeile? 

STRING DB 4,1,15,2,28,2,1,24 
DB 'So kann man Texte auch 
darstellen! ' 
DB:-15,1,13,10;,10,10,:"$* 

Die Steuerzeichen sind aber bei 
jedem Computer anders. Wenn Sie 
CP/M-Programme mit Bildschirmsteue- 
rung auf andere Geräte übertragen wol- 
len, müssen Sie diese Control-Codes 
anpassen! 

Um wieder in die CP/M-Standard- 
Darstellungsweise MODE 2 zu gelan- 
gen, müssen Sie CTRL-D, CTRL-B und 
Enter drücken. 

Mit diesem Beispiel kennen Sie 
bereits die erste BDOS-Funktion des 


CP/M-Betriebssystems. Es bleibt nur 
noch anzumerken, daß es den BDOS- 
Routinen erlaubt ist, alle Registerinhalte 
zu verändern. Wenn Sie also diese 
Werte weiter benötigen, müssen Sie sie 
vor dem Aufruf auf den Stack retten und 
nachher wieder zurückholen. BDOS 
und BIOS arbeiten im übrigen mit einem 
eigenen Prozessor-Stack. So müssen 
Sie nicht mehr Platz für den Stack Ihres 
Programms reservieren, als es für 
eigene Zwecke benötigt. 

Was machen Sie aber, wenn Sie statt 
eines ganzen Strings nur ein einziges 
Zeichen ausgeben wollen? Die Bildung 
einer Zeichenkette, die aus einem ein- 
zelnen Zeichen besteht, ist wohl nicht 
sehr sinnvoll. Das BDOS stellt stattdes- 
sen dafür die Funktion 2 zur Verfügung, 
die »Konsolenausgabe« genannt wird. 
Das E-Register wird mit dem ASCIl- 
Code des Zeichens geladen, das Sie 
ausgeben wollen. Programmieren wir 
also eine Schleife, die den gesamten 
ASCII-Zeichensatz von 32 bis 255 
druckt! Die üblichen Zeilen, mit denen 
fast alle CP/M-Programme beginnen, 
übernehmen wir hier wieder. Im folgen- 
den werden aber nicht mehr alle Defini- 
tionen (EQUates) explizit angegeben. 
Sie werden als bekannt vorausgesetzt 
und sollten immer von Ihnen in den 
Quellcode Ihrer Programme eingefügt 
werden: 

BDOS EQU 5 
TPA EQU O100H 
WARM EQU O0 

Um eine Schleife mit weniger als 256 
Durchgängen zu programmieren, wer- 
den Z80-Kenner wahrscheinlich den 
Befehl DJNZ (Decrement B-Register 
And Jump If Not Zero) verwenden. Sie 
laden das B-Register mit der Zahl der 
Durchläufe und setzen an das Ende der 
Schleife DJNZ. Dieser Befehl dekre- 
mentiert das B-Register und prüft, obes 
den Wert Null erreicht hat. Trifft dies 
nicht zu, ruft der Prozessor den Anfang 
der Schleife auf. 


programmiert 


Doch ein 8080-Assembler wie der 
ASM hat natürlich von den Z80-Mne- 
monics keine Ahnung, und die Intel- 
Prozessoren kennen keinen vergleich- 
baren Befehl. Nehmen wir doch statt- 
dessen den Akku. Der wird sowieso 
nicht benötigt und kann problemlos vor 
dem Aufruf der BDOS-Routine gerettet 
werden. 

Versuchen Sie am besten, das fol- 
gende Programm selbst nachzuvollzie- 
hen: 


ORG TPA 
LXI SP,TPA 


MVI A,256-32 
MVI E,32 
PUSH D 

PUSH PSW 
MVI C,2 
CALL BDOS 


SCHLEIFE 


JNZ SCHLEIFE 
JMP WARM 
END 


Maschinensprache-Profis werden be- 
mängeln, daß dieses Programm »ent- 
setzlich umständlich« aufgebaut ist. 
Schreiben Sie am besten ein gleichwer- 
tiges Programm, das nicht den Akkumu- 
lator als Schleifenzähler verwendet, 
sondern nach jeder Zeichenausgabe 
den Inhalt des E-Registers in den Akku 
lädt und dort mit 255 vergleicht. Das ist 
nicht allzu schwer, aber eine gute 
Übung für jeden Programmierer. 


Die Tastatur: 
Rettung, wenn 
der Computer 
nichts weiß 


Bisher haben wir zwei Funktionen 
kennengelernt, mit denen sich Zeichen 
auf dem Bildschirm ausgeben lassen. 
Genauso wichtig ist aber auch die 
Tastaturabfrage. Dazu brauchen Sie 
aber noch einige Informationen, wie 
CP/M die Tastatur verwaltet: Während 
der Schneider im Basic-Betriebssy- 
stem einen Zeichenpuffer benutzt, der 
per Interrupt während des Programm- 
laufs gedrückte Tasten registriert, ist 
das in CP/M viel primitiver: Der Tastatur- 
puffer kann sich nur ein einziges Zei- 
chen merken! Dies hat aber auch den 
Vorteil, daß ein Löschen des Tastatur- 
puffers vor wichtigen Eingaben ganz 
einfach ist. 

Die BDOS-Funktion 11 (Konsolensta- 
tus abfragen) stellt fest, ob ein Zeichen 
im Puffer ist. Dies ist übrigens die erste 
Funktion, die nicht nur Registerwerte 
übernimmt, sondern auch Werte an das 
aufrufende Programm übergibt. Dafür 
hat Digital Research wieder bestimmte 
Regeln festgelegt: 8-Bit-Werte meldet 
das BDOS im Akkumulator, 16-Bit- 
Werte im HL-Doppelregister. 

Die Funktion 11 setzt das A-Register 
auf Null, wenn kein Zeichen verfügbar 
ist. Sonst erhält der Akku den Wert 1. 
Mit diesem Unterprogramm können Sie 
zum Beispiel sehr einfach die Aufgaben 
lösen, nach einer Meldung wie »Press 
any key to continue« oder »Bitte 
drücken Sie eine Taste« auf die Reak- 
tion des Benutzers zu warten. 
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Ein kleines Programmbeispiel soll das 
demonstrieren. Wir verwenden diesmal 
zwei BDOS-Funktionen, nämlich Num- 
mer 9 (Zeichenkette ausgeben) und 
Nummer 11 (Konsolenstatus abfragen): 
ORG TPA 
LXI SP,TPA 
MVI C,9 
LXI D,STRING 
CALL BDOS 
MVI C,11 
CALL BDOS 
CMP O 
JZ WARTEN 
JMP WARM 
DB 'Press any key to' 
DB "'continue..... H' 

END 

Meistens wollen Sie als Programmie- 
reraber auch wissen, welche Taste sich 
der Benutzer ausgesucht hat. Dazu 
haben sich die System-Entwickler bei 
Digital Research die Funktion 1 (Konso- 
leneingabe) einfallen lassen. Diese mel- 
det im Akku den Code der gedrückten 
Taste. Zusätzlich wird das Zeichen auf 
dem Bildschirm ausgegeben. Die Steu- 
erzeichen CTRL-S und CTRL-P werden 
beachtet, nicht hingegen CTRL-C, mit 
dem sich normalerweise ein Warmstart 
des Betriebssystems auslösen läßt. 

Auch diese Funktion wollen wir an- 
hand eines kleinen Programms erläu- 
tern. Es fragt zuerst nach einem Tasten- 
druck und gibt dann das Zeichen mit 
einem Antwort-Text auf dem Bildschirm 
aus. Wir verwenden wieder nur die als 
bekannt vorausgesetzten Funktionen: 


MELDUNG 


WARTEN 


STRING 


ORG TPA 
LXI  SP,TPA 
ANFRAGE MVI 0,9 
LXI D,TEXT1 
CALL BDOS 
TASTATUR MVI C,1 
CALL BDOS 
PUSH PSW 
AUSWERT MVI 0,9 
LXI D,TEXT2 
CALL BDOS 
POP PSW 
MOV  E,A 
MVI C,2 
CALL BDOS 
j JMP WARM 
TEXT1 DB 'Bitte druecken 
Sie eine Taste: 
5' 
TEXT2 DB 13,10 
DB 'Sie haben diese 
Taste gedrueckt: 
$' 
END 


Der Programmteil ANFRAGE gibt den 
Text »Bitte druecken Sie eine Taste:« 
aus. TASTATUR fragt die Tastatur ab und 
rettet das gelesene Zeichen mit PUSH 
PSW auf den Stack. Der Programmteil 
AUSWERT schreibt den Text »Sie 


haben diese Taste gedrueckt:« auf den 
Bildschirm und gibt zusätzlich das gele- 
sene Zeichen aus. 

Problematisch wird es hier, wenn Sie 
ein Zeichen eingeben, das gleichzeitig 
ein CP/M-Control-Code ist, beispiels- 
weise CTRL-S oder CTRL-P. Wenn Sie 
nämlich einen Control-Code an das 
Schneider-Betriebssystem senden wol- 
len, der zugleich von CP/M benutzt 
wird, fängt ihn das BDOS ab und läßt ihn 
gar nicht mehr an den BIOS-Teil durch. 


Eine Funktion 


für zwei Aufgaben 


Auch ist es in manchen Fällen nicht 
erwünscht, daß das von der Tastatur 
empfangene Zeichen auf dem Bild- 
schirm ausgegeben wird. Dazu wurde 
die Funktion 6 geschaffen, die direkte 
Konsolen-Ein- und -Ausgabe. Diese 
BDOS-Funktion erledigt zwei völlig ver- 
schiedene Aufgaben: einerseits die 
Tastaturabfrage und andererseits die 
Bildschirmausgabe - beide unter 
Umgehung des BDOS. 

Wenn Sie das E-Register mit einem 
Wert ungleich 255 (OOFFhex) laden, 
gibt die Funktion das entsprechende 
Zeichen auf dem Bildschirm aus. So 
können Sie ohne Probleme den gesam- 
ten Schneider-Zeichensatz von O bis 
254 ausdrucken: 


ORG  TPA 

LXI  SP,TPA 

MI E,O 
SCHLEIFE PUSH D 

WI E,1 

WI (,6 

CALL BDOS 

POP D 

PUSH D 

WI (,6 

CALL BDOS 

POP D 

INR E 

MOV  A,E 

CPI 254 

JNZ SCHLEIFE 

JMP  WARM 

END 


Diese Routine istrecht einfach zu ver- 
stehen, wenn man weiß, daß der 
Schneider auch die Control-Codes von 
Obis 31 auf dem Bildschirm als Zeichen 
ausgeben kann. Allerdings muß ihnen 
ein »CHR$(1)« vorangehen, ähnlich 
»PRINT CHR$(1);CHR$(13)« in Basic. 

Vor der Schleife wird das E-Register, 
das wie üblich das zu druckende Zei- 
chen enthält, auf Null gesetzt. In der 
Schleife rettet der Computer zuerst das 
DE-Register und gibt CHR$(1) direkt 
über das BIOS aus. Der Zeichencode 
wird wieder ins E-Register geladen und 
gleich darauf vor dem BDOS gerettet. 
Die BDOS-Funktion 6 gibt nun das 
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eigentliche Zeichen aus. Vergleichsbe- 
fehle sind nur mit dem Akkumulator 
zulässig, also lädt das Programm den 
ausgegebenen Buchstaben in den 
Akku und vergleicht ihn dort mit 254. Ist 
dieser Wert erreicht, verläßt das Pro- 
gramm die Schleife und kehrt mit einem 
Warmstart auf die CCP-Kommando- 
ebene zurück. 

Die zweite Aufgabe der Funktion 6 ist 
die ungepufferte Tastaturabfrage, bei 
der das gelesene Zeichen nicht auf 
dem Bildschirm ausgegeben wird. Das 
BDOS erkennt Ihren Wunsch, die Tasta- 
tur abzufragen und nicht etwa ein Zei- 
chen auszugeben, daran, daß das E- 
Register den Wert FFhex (255) enthält. 
Als Resultat liefert die Routine den 
ASCII-Wert der gedrückten Taste. Wenn 
keine Taste im Abfragezeitraum regi- 
striert wurde, meldet die Funktion den 
Wert Null. Auch das ist ein Unterschied 
zur Funktion 1 (Konsoleneingabe). Die 
direkte Konsoleneingabe wartet nicht, 
bis ein Zeichen zur Verfügung steht. Am 
deutlichsten wird der Unterschied 
wohl, wenn wir das Programm, mit dem 
die Konsoleneingabe-Funktion erläu- 
tert wurde, auf die Funktion 6 umschrei- 
ben: 


ORG TPA 
LXI SP,TPA 
ANFRAGE MVI 0,9 
LXI D,TEXT1 
CALL BDOS 
TASTATUR MVI 0,6 
MVI E;259 
CALL BDOS 
CPI 0 
JZ TASTATUR 
PUSH PSW 
AUSWERT MVI C,9 
LXI D,TEXT2 
CALL BDOS 
POP _PSW 
MOV E,A 
MVI 0,2 
CALL BDOS 
JMP WARM 
TEXT1 DB 'Bitte druecken 
Sie eine Taste: 
$' 
TEXT2 DB 13,10 
DB 'Sie haben diese 
Taste gedrueckt: 
$' 
END 


Die Änderungen beschränken sich 
auf den Teil TASTATUR. C=6 ruft die 
direkte Konsolen-Ein- und -Ausgabe 
auf, durch E=255 selektiert das Pro- 
gramm die Tastaturabfrage. Meldet das 
BDOS den Tastenwert Null im Akku, 
wurde keine Taste gedrückt und das 
Programm kehrt zurück in die Schleife. 
Andernfalls gibt der Computer die ent- 
sprechende Meldung aus. Wenn Sie 
Lust haben, können Sie das Programm 
so umschreiben, daß die Bildschirm- 
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ausgabe nicht über die BDOS-Funktion 
2 läuft, sondern über die Funktion 6 - 
_ genauso wie in unserem zweiten 
Zeichensatz-Beispielprogramm mit 
CHR$(1). Dann können Sie wirklich 
jede Taste drücken, ohne befürchten zu 
müssen, daß irgendeine Systemebene 
das Zeichen als Steuerzeichen mißver- 
steht und nicht weiterreicht. 
Doch in vielen Fällen wollen Sie nicht 
ein einzelnes Zeichen von der Tastatur 
abrufen, sondern einen ganzen String. 


Eine ganze 
Zeichenkette 


Dazu benötigen Sie einen Befehl ähn- 
lich INPUT in Basic. Für viele Ma- 
schinencode-Programmierer ist es ein 
Graus, alle Editierfunktionen und das 
Ein- und Ausschalten des Cursors zu 
installieren. CP/M bietet eine sehr kom- 
fortable Lösung: eine eigene BDOS- 
Funktion. Sie ist sozusagen das Gegen- 
stück zur Funktion 9 (Zeichenkette 
ausgeben) und heißt entsprechend 
»Zeichenkette einlesen«. 

Ihre Funktionsnummer ist 10. Der 
Aufruf ist etwas komplizierter als bei 
den bisherigen Funktionen. Das DE- 
Register wird mit einem Zeiger auf 
einen Speicherbereich geladen, der als 
Eingabepuffer verwendet wird. Dorthin 
schreibt später das BDOS alle eingege- 
benen Zeichen, so daß Sie sie im Pro- 
gramm lesen und auswerten können. 

Das erste Byte des Pufferspeichers 
sollten Sie mit der maximal erlaubten 
Länge der Eingabezeile laden. Die 
Werte von 1 bis 255 sind möglich. 
Wenn der Benutzer mehr als die 
erlaubte Zeichenzahl einzutippen ver- 
sucht, kehrt das BDOS in das aufru- 
fende Programm zurück, ohne auf das 
Drücken der ENTER-Taste zu warten. 
Etwas ähnliches erleben Sie, wenn Sie 
versuchen, im CCP eine Zeile von mehr 
als 128 Zeichen einzugeben. 

Nach dem Aufruf enthält das zweite 
Byte im Puffer die Zahl der wirklich ein- 
gegebenen Zeichen. In den übrigen 
Bytes des Eingabepuffers finden Sie 
die Werte der eingetippten Symbole. An 
Editierfunktionen ist alles vorhanden, 
was auch der CCP-Editor bietet: DEL, 
CTRL-H, CTRL-U, CTRL-M, CTRL-J, 
CTRL-R, CTRL-X, CTRL-E und leider 
auch CTRL-C. Wird CTRL-C als erstes 
Zeichen in der Zeile eingetippt, bricht 
der Computer das laufende Programm 
ab und springt zum CCP zurück. Schrei- 
ben wir ein Programm, das eine Ein- 
gabe von zehn Zeichen vom Benutzer 
fordert und diesen Text in der Folge 
2Omal auf dem Bildschirm ausdruckt: 


ORG TPA 
IXI SP,TPA 
EINGABE MVI C,10 


LXI D,PUFFER 
CALL BDOS 
Neben der üblichen Einleitung lädt 
das Programm das C-Register mit der 
Funktionsnummer 10 und das DE- 
Register mit einem Zeiger auf den - 
noch zu definierenden - Pufferspei- 
cher. »CALL BDOS« leitet die Befehls- 


ausführung ein. 
AUSGABE MVI A,20 
SCHLEIFE MVI 0,9 
LXI D,PUFFER+2 
PUSH PSW 
CALL BDOS 
POP PSW 
DCR A 
JNZ SCHLEIFE 
JMP _WARM 


Als Schleifenzähler verwenden wir 
hier das A-Register. Die Funktion 9 gibt 
einen String auf dem Bildschirm aus. 
Das DE-Register wird mit PUFFER+2 
geladen, weil die ersten beiden Bytes ja 
Informationen über die Länge der Zeile 
geben - und die werden bei der Aus- 
gabe nicht benötigt. Ist der Akku auf 
Null heruntergezählt, führt das Be- 
triebssystem einen Warmstart durch. 

Das wichtigste ist aber hier der Puf- 
fer, der durch geschickten Aufbau eine 
Menge Programmieraufwand ersparen 
kann: 


PUFFER DB 10 
DB 0,32,32,32,32,32 
DB 32,32,32,32,32 
DB 13,10, '$' 
END 
Der Pufferaufbau läßt sich so zerle- 
gen: 


1. Byte: Maximale Länge der Benutzer- 
eingabe. 

2. Byte: Beliebig, das BDOS trägt nach 
der Befehlsausführung hier die tatsäch- 
liche Länge der Eingabezeile ein. 

3. bis 12. Byte: Pufferspeicher, der hier 
mit Leerzeichen vorbelegt ist. 

13. Byte: Wagenrücklauf für die Bild- 
schirmausgabe. 

14. Byte: Zeilenvorschub bei 
BDOS-Funktion 9. 

15. Byte: Stringende-Kenner bei der 
Zeichenkette-Ausgabe (Funktion 9). 


der 


Ebenfalls zeichen- 
orientiert: Drucker, 
Lochstreifenleser 
und -stanzer 


Damit kennen Sie alle Befehle zur 
Bedienung von Tastatur und Bildschirm. 
Es gibt noch drei andere zeichenorien- 
tierte Peripheriegeräte: den Lochstrei- 
fenleser, den Lochstreifenstanzer und - 
nicht zu vergessen - den Drucker. Zei- 
chenorientiert heißen diese Geräte 
deshalb, weil man von ihnen immer nur 


ein Zeichen lesen, beziehungsweise an 
sie ein einzelnes Zeichen übergeben 
kann. Die anderen Peripheriegeräte wie 
Diskette oder Festplatte können auch 
ganze Bytefolgen lesen und schreiben. 
Aufgrund ihrer Konstruktion sind sie 
außerdem in der Lage, eine spezielle 
Spur oder einen Sektor direkt anzu- 
sprechen. 

Wohl kein Heimcomputer-Besitzer 
wird ein Lochstreifen-Gerät sein Eigen 
nennen. Deshalb der Vollständigkeit 
halber nur kurz die beiden zugehörigen 
BDOS-Routinen: 

Funktion 3: Lochstreifen lesen. Der 
Akku liefert das gelesene Zeichen. 

Funktion 4: Lochstreifen stanzen. Im 
E-Register muß der Code des auszuge- 
benden Zeichens stehen. 

Interessant sind die beiden Funktio- 
nen nur noch, weil sie manchmal zur 
Ansteuerung einer seriellen Schnitt- 
stelle oder eines Kassettenrecorders 
»mißbraucht« werden. Beide lassen 
sich aber beim Schneider nur mit 
Schwierigkeiten anpassen. Die serielle 
Schnittstelle von Schneider arbeitet 
nämlich nicht mit den System-Routinen 
im BIOS-ROM zusammen und der Kas- 
settenrecorder benötigt zur Datenüber- 
gabe immer einen 2 KByte großen Puf- 
ferspeicher. Bei einer TPA von rund 39 
KByte unter CP/M 2.2 (464 und 664 
ohne Speichererweiterung) kann man 
sich dieses »Speicherplatzopfer« nicht 
mehr leisten. 

Viel wichtiger ist die Druckeransteue- 
rung unter CP/M. Die Funktion 5 (Zei- 
chen auf dem Drucker ausgeben) über- 
nimmt entsprechend dem Standard im 
E-Register das auszugebende Zei- 
chen. Ist der Drucker nicht empfangs- 
bereit, wartet die BDOS-Funktion, bis 
sie das Zeichen übergeben kann. 

Wer sich das ROM-Listing des BIOS- 
Teils im Bereich C4Alhex bis C4A8hex 
und die zugehörigen Unterprogramme 
anschaut, kann erkennen, wie der Her- 
steller des Schneider-Computers das 
Verhalten bei nicht empfangsbereitem 
Drucker abfängt - oder auch nicht 
abfängt. Je nach Gerätetyp kann der 
Computer aussteigen, in einer Endlos- 
schleife verharren oder sonstige uner- 
wünschte Resultate zeigen. Beim CPC 
464 verbleibt das Programm in einer 
Endlosschleife, die nur durch CTRL-C 
oder einen Reset mit CTRL-SHIFT- 
ESCAPE abgebrochen werden kann. 

Als Beispiel schreiben wir ein Pro- 
gramm, das einen Satz auf dem Drucker 
ausgibt. Dieser Text soll im Quellcode 
festlegbar sein. Der Programmkopf ist 
wieder CP/M-typisch: 

ORG TPA 
LXI SP,TPA 

Das HL-Doppelregister dient uns als 
Zeiger auf den String. 

LXI H,STRING 
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Die Programmschleife wird beendet, 
wenn der Computer ein Dollar-Zeichen 
gelesen hat. Diesen Stringbegrenzer 
kennen wir ja schon aus der BDOS- 
Funktion 9 und wollen ihn hier überneh- 
men: 

SCHLEIFE MOV 


ja) 
oO 
ine) 
fee} 


SCHLEIFE 
ENDE JMP WARM 

Zuerst lädt der Prozessor einen 
Buchstaben in den Akku und vergleicht 
ihn mit dem Dollarsymbol. Fällt der Ver- 
gleich positiv aus, so geht der Compu- 
ter zur Marke ENDE und löst dort einen 
Warmstart aus. Ist hingegen das String- 
ende noch nicht erreicht, lädt das Pro- 
gramm das gelesene Zeichen ins E- 
Register - eine Vorbereitung für den 
BDOS-Ansprung. »MVI C,5« spezifiziert 
die gewünschte Funktion, und CALL 
BDOS ruft das BDOS direkt auf. Da die- 
ses alle Register verändern kann, das 
HL-Register aber nicht zerstört werden 
darf, sichern wir HL mit »PUSH H« auf 
dem Stack und holen es später mit 
»POP H« wieder zurück. »INX H« vor 
dem PUSH-Befehl weist den Computer 
an, das HL-Register auf den nächsten 
Eintrag im String zeigen zu lassen. 

Als String können Sie irgendeinen 
Text einsetzen, der Ihnen gefällt, zum 
Beispiel: 
STRING DB 'So spricht CP/M den 

Drucker an' 
DB 13,10,10,'$' 


Wo ist was? 


Das IOBYTE, manchmal auch I/O- 
Byte oder Input/Output-Byte geschrie- 
ben, merkt sich im Betriebssystem die 
Zuordnung der logischen zu den physi- 
kalischen Geräten. Diese Unterschei- 
dung wurde schon beim Programm 
STAT.COM (Einstieg in CP/M) erklärt. 
Das IOBYTE liegt im Speicher an der 
Adresse 0003hex. Wenn Sie es direkt 
verändern, können Sie auf den Einsatz 
von STAT.COM verzichten. Allerdings 
ist das IOBYTE nicht allzu wichtig. Wer 
ändert schließlich ständig seine Hard- 
ware? Zudem sollten Sie von Manipula- 
tionen des IOBYTES absehen, wenn 
Ihre Programme auch unter CP/M-3.0 
(CP/M plus) funktionieren sollen. Diese 
Variante von CP/M verwendet das 
IOBYTE gar nichtmehr, sondern besitzt 
viel leistungsfähigere Alternativen. 
Deshalb muß das IOBYTE dem Stan- 
dard entsprechen. 


A\2J> 


Zu jedem der vier logischen Geräte 
lassen sich je vier physikalische Peri- 
pheriebausteine zuordnen. Bild 5 in 
dem Artikel »Einstieg in CP/M« zeigt 
die symbolischen Gerätenamen. Im 
IOBYTE sind die Zuweisungen binär 
codiert. Für jedes logische Gerät sind 
zwei Bit reserviert. Mit diesen zwei Bit 
lassen sich vier Werte darstellen - eben 
die vier physikalischen Geräte. 


Das wichtigste 
Peripheriegerät 
unter CP/M 


Welche Bits welches Gerät betreffen, 
das zeigt Ihnen die folgende Aufstel- 
lung: 

- Bits O und 1: die Konsole CON: 

- Bits 2 und 3: der Lochstreifenleser 
RDR: 

- Bits 4 und 5: der Lochstreifenstanzer 
PUN: 

- Bits 6 und 7: Der Drucker LST: 

Auslesen läßt sich das IOBYTE mit 
der BDOS-Funktion 7 (IOBYTE). Der 
Inhalt des Bytes wird im A-Register 
übermittelt. Gesetzt wird das IOBYTE 
mit der Funktion 8 (IOBYTE setzen). Im 
E-Register übergeben Sie dazu den 
neuen Inhalt. 

Sie kennen jetzt alle Befehle, die mit 
den vier zeichenorientierten Periphe- 
riegeräten (CON:, RER:, PUN:, und 
LST:) zu tun haben. Die zweite Haupt- 
gruppe der BDOS-Funktion tut eigent- 
lich das, was man vom Namen »BDOS« 
(Basic Disk Operating System) erwar- 
tet: Sie ermöglicht die Arbeit mit Disket- 
tendateien. 

Bevor wir uns an die Diskette selbst 
wagen, benötigen wir einige grundle- 
gende Informationen. Der Computer 
muß wissen, welche Datei angespro- 
chen werden soll. Dazu übermitteln wir 
ihm die Adresse eines »Dateischrei- 
bers«. Dieser wird FCB genannt, ausge- 
schrieben: File Control Block. Auf 
Deutsch etwa »Dateikontrollblock«. Ehe 
wir irgendeine Datei ansprechen kön- 
nen, müssen wir einen FCB zusammen- 
stellen. FCBs haben ein Standardfor- 
mat, das immer gleich aufgebaut ist: 
0. Byte: Disketten-Laufwerk 
1. bis 8. Byte: Dateiname 
9. bis 11. Byte: Extension 

Die übrigen der 36 Byte im FCB nutzt 
CP/M intern zur Verwaltung der Datei. 
Einige Speicherstellen des FCB dürfen 
Sie auch selbst verwenden. 

Die FCB-Blöcke im Speicher korres- 
pondieren mit den Einträgen im Inhalts- 
verzeichnis. Wird eine Datei geöffnet, 
kopiert CP/M den Directory-Eintrag von 
der Diskette in den FCB. Die diversen 
Lese- und Schreiboperationen verän- 
dern den FCB automatisch. Beim 


Schließen einer Datei schreibt der 
Computer dann anhand des FCB einen 
neuen Eintrag ins Disketteninhaltsver- 
zeichnis. 

FCBs müssen immer exakt nach Vor- 
schrift aufgebaut sein. So muß etwa der 
Dateiname genau acht Stellen umfas- 
sen. Ist er kürzer, ist er mit Leerzeichen 
(Spaces) aufzufüllen. Das gilt analog für 
die Extension. Der Punkt zwischen 
Dateiname und Extension wird nicht 
angegeben. Das Diskettenlaufwerk ist 
im Byte O des FCB codiert: Eine 1 wählt 
das Laufwerk A, eine 2 das Laufwerk B 
und so weiter. Geben Sie eine Null an, 
holt sich CP/M die Diskette vom Stan- 
dardlaufwerk, das im CCP-Prompt (A> 
oder B>) angegeben ist. 

Eine besondere Schwäche von CP/M 
ist es, daß das Betriebssystem die Dis- 
kettendateien immer nur in 128 Byte 
großen »Happen« lesen kann. Andere 
Betriebssysteme wie beispielsweise 
MS-DOS für IBM-Computer sind da viel 
flexibler. Mit etwas Programmierauf- 
wand kann man aber mit dieser Ein- 
schränkung ganz gut zurechtkommen. " 
Die Bezeichnung »Sektor« für die 
128-Byte-Einheiten ist etwas unglück- 
lich gewählt. Intern verarbeitet der 
Schneider unter Amsdos und im CP/M- 
BDOS nämlich Sektoren von 512 Byte 
Länge. Es obliegt dem BIOS, diese in 
vier Teile 128 Byte zu zerlegen und 
beim Schreiben wieder zusammenzu- 
fügen. Eingebürgert hat sich deshalb 
der Begriff »logischer Sektor« für das, 
was das BDOS unter Sektoren versteht, 
im Gegensatz zu den »physikalischen 
Sektoren« des BIOS. Logische Sekto- 
ren lassen sich auch als »Records« 
bezeichnen. 


Wohin mit 
dem Sektor? 


Der Programmierer muß dem Be- 
triebssystem mitteilen, wohin es den 
gelesenen - logischen - Sektor schrei- 
ben soll. Diese Adresse heißt in der 
CP/M-Terminologie DMA (Direct Me- 
mory Access). 

Versuchen wir, ein Programm zu 
schreiben, das eine bestehende Datei 
öffnet, einen Datensatz liest, auf dem 
Bildschirm anzeigt und die Datei wie- 
der schließt. Dazu sollten Sie natürlich 
ersteinmal eine Datei erzeugen. Tun Sie 
das mit »PIP A:DATEI.FIL=CON:«. Sie 
können einen beliebigen Satz einge- 
ben. Am Schluß verwenden Sie bitte 
das Dollarzeichen, ENTER, CTRL-J und 
CTRL-Z. 

Verzichten Sie aber unbedingt dar- 
auf, das Dollarsymbol im übrigen Satz 
zu benutzen - die BDOS-Funktion 9, 
mit der wir den Satz auf dem Bildschirm 
ausgeben wollen, stellt sich sonst stur 
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und druckt einfach nur den ersten Teil 
des Satzes aus. Eine grundlegende 
Anderung sollten wir für die zukünftigen 
Programme noch machen. Wir verlegen 
den Prozessor-Stack in einen anderen 
Speicherabschnitt, weil wir den Bereich 
zwischen 0080hex und OOFFhex für 
andere Zwecke brauchen: 

ORG TPA 

LXI SP,STACK 

Da wir genau wissen wollen, wohin 

CP/M den Datensatz schreibt, setzen 
wir mit der BDOS-Funktion 26 (Daten- 
puffer festlegen) die DMA-Adresse. Das 
DE-Register ist mit einem Zeiger auf 
den Speicherbereich zu laden: 


LX1 D,BUFFER 
MVI C,26 
CALL _BDOS 


Alle folgenden Diskettenzugriffe bis 
zum nächsten Warmstart verwenden 
nun den - noch zu definierenden - Puf- 
fer »BUFFER« als Zwischenspeicher. 


Das waren alles noch Vorarbeiten. 
Doch jetzt wird es spannend. Wir öffnen 
unsere erste Diskettendatei: 


LXI D,FCB 
MVI 0,15 
CALL BDOS 


Natürlich haben wir noch keinen FCB 
festgelegt - das machen wir am Ende 
des Programms. Sie brauchen sich nur 
zu merken, daß die BDOS-Funktion 15 
eine bereits bestehende Datei öffnet, 
wenn das DE-Register auf den FCB 
zeigt. 

Die nächste BDOS-Funktion, die wir 
verwenden wollen, liest einen Daten- 
satz von der Diskette ein. Sie besitzt die 
Funktionsnummer 20 und erwartet wie- 
der im DE-Register einen Zeiger auf 
den Dateikontrollblock: 


LXI D,FCB 
MVI 0,20 
CALL _BDOS 


Jetzt steht der Satz im Speicher und 
muß nur noch auf den Bildschirm 
gebracht werden. Da ja am Ende des 
Satzes das Dollarzeichen als Stringbe- 
grenzer steht (Sie haben es doch hof- 
fentlich nicht vergessen?), können wir 
ohne weiteres die BDOS-Funktion 9 
(Zeichenkette ausgeben) aufrufen: 


LXI D,BUFFER 
MVI C,9 
CALL BDOS 


Da Sie ein »gewissenhafter« CP/M- 
Programmierer werden sollen, er- 
scheint es ratsam, daß Sie sich gleich 
zu Anfang angewöhnen, alle Dateien - 
auch die nur gelesenen - wieder zu 
schließen. Die vorgesehene BDOS- 
Funktion »Datei schließen« trägt die 
Nummer 16: 


LXI  D,FCB 
WI c,16 
CALL BDOS 


Einen Warmstart schicken wir noch 

nach: 
JMP WARM 

Die eigentliche Arbeit beginnt aller- 
dings erst jetzt. Sie müssen noch Ver- 
einbarungen über alle Pufferspeicher 
treffen. Fangen wir mit dem einfachsten 
an: dem Stack. 20 Byte entsprechen 
10 Stapeleinträgen und reichen im Nor- 
malfall aus. Damit lassen sich alle vier 
Doppelregister sichern und bis zu 
sechsfach verschachtelte Unterpro- 
gramme aufrufen: 

DS 20 

STACK EQU $ 

Wem die Reihenfolge der Definitio- 
nen (erst DS, dann die Marke STACK) 
nicht einleuchtend ist, der muß daran 
denken, daß der Stack nach unten 
wächst und das SP-Register immer mit 
dem oberen Ende des Stapelspeichers 


geladen wird. 

Auch der DMA-Puffer ist schnell 
erzeugt: 
BUFFER DS 128 


Verzwickter wird die Lage beim File- 
Control-Block. Hier geben wir zuerst 
die Laufwerknummer an, gefolgt vom 
Dateinamen und der Extension. Da der 
FCB immer 36 Byte lang ist, müssen wir 
genügend Platz reservieren. Wichtig ist 
es auch noch, die Bytes 12 und 32 im 
FCB beim Öffnen der Datei auf Null zu 
setzen. Fügen wir doch ganz einfach für 
alle Bytes zwischen 12 und 36 Nullen 
ein: 


FCB DB 1 
DB 'DATEI' 
DB 32,32,32, 
DB 'FIL' 
DB 0,0,0,0,0,0 
DB 0,0,0,0,0,0 
DB 0,0,0,0,0,0 
DB 0,0,0,0,0,0,0 


Noch ein »END« daruntergesetzt, und 
das Programm kann assembliert wer- 
den. 


Das Byte 32 im FCB-Block hat eine 
besondere Bedeutung. Dort speichert 
das BDOS die Nummer des als näch- 
stes zu bearbeitenden Records. Diese 
Eigenschaft können Sie ausnutzen, 
indem Sie dort die Nummer des von 
Ihnen gewünschten Datensatzes ange- 
ben. Sogar schon beim Öffnen der 
Datei kann der als erstes zu lesende 
Record vorgegeben werden. 

Andern Sie also die letzte DB-Zeile 
Ihres Programmes so ab: 

DB 0,0,3,0,0,0,0 


Wenn das File DATEI.FIL lang genug 
ist, können Sie so den dritten Datensatz 
der Datei lesen. 

Ohne weiteres ist es möglich, in ein 
und derselben Datei gleichzeitig zu 
lesen und zu schreiben. Dies ist im Ver- 
gleich zu Amsdos ein großer Fort- 
schritt. Verwenden Sie wieder den 
Quellcode Ihres Programms und brin- 
gen Sie die letzte DB-Zeile wieder in 
den alten Zustand mit lauter Nullen. Die 
folgenden Zeilen sind von Ihnen vor der 
Stringausgabe (Funktion 9) einzuset- 
zen. 

LX1 H,BUFFER+3 
MVI M,254 

Durch diese beiden Befehle ersetzt 
der Computer das dritte Byte im gelese- 
nen Datensatz durch das Zeichen 254 
- sinnvoll oder nicht, hier kommt es 
lediglich darauf an, das Wissen zu ver- 
mitteln. 

Zum Schreiben von Records gibt es 
die BDOS-Funktion 21. Sie erwartet im 
DE-Register einen Zeiger auf den FCB- 
Block und schreibt den Record, der 
sich im aktuellen DMA-Puffer befindet, 
auf die Diskette: 


LXI  D,FCB 
MI cC,21 
CALL BDOS 


Den Rest der alten Datei können Sie 
wieder übernehmen. Austesten läßt 
sich das COM-Programm mit Hilfe eines 
kleinen Basic-Programms. Drücken Sie 
also nach der Assemblierung CTRL- 
SHIFT-ESCAPE und geben Sie dieses 
Programm ein: 

10 OPENOUT ”DATEI.FIL” 

20 FOR i=1 TO 50 

30 PRINT #9, ”Datensatz”; 
STR$(i); "8"; 

40 NEXT i 

50 CLOSEOUT 

Nach »RUN« gelangen Sie mit dem 
RSX-Befehl »ICPM« nach CP/M zurück. 
Drücken Sie dort TYPE DATEI.FIL, so 
gibt der CCP den Dateiinhalt aus. Bear- 
beitet wird der Dateiinhalt, indem Sie 
das COM-File, das Sie gerade eben 
übersetzt haben, starten. Dieses gibt 
den Datensatz mit dem eingefügten 
neuen Zeichen auf dem Bildschirm aus 
und schreibt ihn in die Datei. Sobald 
sich das Betriebssystem mit A> oder 
B> meldet, können Sie sich mit TYPE 
DATEI.FIL die Datei erneut anzeigen 
lassen - der Unterschied dürfte deut- 
lich sein. Doch etwas Unerwartetes 
geschieht: Geändert wurde nicht der 
erste Datensatz, sondern der erste 
Record wurde zusammen mit der Ände- 
rung in den zweiten Record geschrie- 
ben. Das ist eine Sonderleistung von 
CP/M, da es automatisch nach jedem 
Schreib- oder Lesezugriff den internen 
Zähler erhöht. Normalerweise ist das 
Einlesen der Records der Reihe nach 
sehr sinnvoll. Das selbsttätige Hoch- 
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zählen des Zeigers führt in den meisten 
Fällen zu kürzeren Programmen. 

Aber anstatt mit dem Record-Zeiger 
und sequentiellen Dateien zu hantieren, 
ist es meistens einfacher, eine Direkt- 
zugriff-Datei zu programmieren (siehe 
auch 2. Schneider-Sonderheft 1/86). 

Die Datei DATEI.FIL zeigt übrigens, 
daß es ohne weiteres möglich ist, 
ASCII-Textdateien zwischen Basic und 
CP/M hin- und herzuschicken. Bei 
Binärdateien und Basic-Programmen 
ist das schwieriger, da diese einen 
sogenannten File-Header (Kopfsatz) 
besitzen, der Nicht-ASCIl-Werte enthal- 
ten kann. 

Wenn Sie ein Programm schreiben, 
das endlose Datensätze in einem File 
unterbringt, ist irgendwann einmal der 
Zeitpunkt gekommen, daß Ihre Datei 
größer als 16 KByte wird. Das mag 
CP/M aber nicht besonders gern, weil 
es so große Dateien mit einem einzigen 
Eintrag im Diskettendirectory nicht ver- 
walten kann. Die Lösung ist aber ganz 
einfach. CP/M »spendiert« dem Pro- 
gramm einen weiteren Eintrag im 
Inhaltsverzeichnis. Bei DIR taucht er 
aber nicht auf, daer besonders gekenn- 
zeichnet ist. Diese zusätzlichen Ein- 
träge heißen »Extents«. Dateien können 
so nicht nur 16 KByte, sondern auch 
32, 64, 128 KByte oder mehr sein. Die 
Grenze setzen die Diskettenkapazität 
und die Aufnahmefähigkeit des Directo- 
ries. Schneider-ı, „isch ist, daß das 
Directory nur 64 Einträge verwalten 
kann. Also gehen Sie möglichst spar- 
sam mit diesen um. Besonders Besitzer 
der ersten Version der Vortex-Floppy 
können von der Kapazität des Inhalts- 
verzeichnisses ein Lied singen. Auf 
einer Diskette bringt man dort über 700 
KByte Daten unter - das Directory faßt 
aber trotzdem nur 64 Einträge. VDOS 
2.0, das neue DOS der Vortex-Station, 
kann nun aber 128 Einträge verwalten. 
Und das reicht meist aus. 

Die Extents werden vom BDOS auto- 


matisch durchnummeriert, damit sie 
korrekt bearbeitet werden können. 
Diese Information legt das BDOS auch 
im FCB-Block ab. Das Byte 12 ist dafür 
reserviert. Bei entsprechendem Bedarf 
können Sie darauf in Ihren Programmen 
zugreifen. Zum Beispiel sind beim 
Lesen von Dateien im Byte 32, das die 
Record-Nummer angibt, nur Werte zwi- 
schen O und 127 gestattet. Wollen Sie 
auf dahinter liegende Einträge zurück- 
greifen, müssen Sie beim Öffnen der 
Datei im Byte 12 die Nummer des 
Extents angeben und im Byte 32 dann 
die Sektornummer, abhängig vom 
Beginn des Extents. 


Fehlererkennung 


Fehler sind menschlich - sie können 
entweder Ihnen als Programmierer 
unterlaufen oder dem Benutzer Ihres 
Produkts. Egal, woher der Fehler 
stammt, man muß erst einmal wissen, 
daß er überhaupt aufgetaucht ist und 
dann Abhilfe schaffen. 

Fehlerquellen sind zum Beispiel die 
Angabe falscher Dateinamen, das 
Lesen über das Dateiende hinaus, das 
Schreiben von Dateien auf volle Disket- 
ten oder in volle Directories - der Mög- 
lichkeiten gibt es viele. Sofern das 
BDOS, das eine Diskettenroutine ent- 
sprechend Ihrem Auftrag ausführt, 
etwas von einem Fehler bemerkt, kön- 
nen Sie sicher sein, daß es Ihnen davon 
eine Mitteilung schickt. Der »Bote« ist 
der Akkumulator. Wenn dieser nach 
dem Aufruf von BDOS-Routinen be- 
stimmte Werte aufweist, ist davon aus- 
zugehen, daß etwas schiefgelaufen ist. 

Die Routinen 20 (Record lesen) und 
21 (Record schreiben) liefern im Akku- 
mulator den Wert O, wennalles geklappt 
hat. Sie können Ihr Programm um eine 
Fehlerbehandlung erweitern. Fügen 
Sie nach dem Lesen des Records (LXI 
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D,FCB ! MVI C,20 ! CALL BDOS) fol- 
gende Zeilen ein: 

CPI 0 

JNZ ERROR 

Durch den Vergleich mit Null stellt der 

Computer fest, ob ein Fehler aufgetre- 
ten ist. In diesem Fall springt er zur 
Marke ERROR. Dort muß eine Meldung 
an den Benutzer ausgegeben werden. 
Bei komplexeren Programmen ist es 
empfehlenswert, gewisse Vorkehrun- 
gen wie beispielsweise das Schließen 
der benutzten Dateien, das Löschen 
des Bildschirms und ähnliche Dinge 


aufzurufen. Begnügen wir uns mit 
einem lakonischen Fehlertext: 
ERROR LXI D,STRING 
MVI 0,9 
CALL BDOS 
JMP WARM 
STRING DB 'Bei READ ist ein 
Fehler aufgetreten 
!$' 


Testen können Sie die Funktionsfä- 
higkeit dieser Fehlerbehandlungs- 
Routine, indem Sie ganz einfach die 
Datei DATEI.FIL mit REName umbenen- 
nen und damit für das Programm sozu- 
sagen »unsichtbar« machen. 

Die anderen bisher erwähnten Dis- 
kettenfunktionen melden Fehler eben- 
falls im Akku, allerdings in anderer Form. 
Wenn der Akkuinhalt 255 (OOFFhex) 
beträgt, ist irgend etwas beim Disket- 
tenzugriff schief gelaufen. Sie könnten 
zum Beispiel direkt nach dem Funk- 
tionsaufruf zum Öffnen der Datei einen 
Error-Check einbauen: 

ERRCHECK CPI 255 
JZ OPENERROR 
Und am Ende des Programms: 


OPENERROR LXI D,MESSAGE 
WI c,9 
CALL BDOS 
JMP  WARM 

MESSAGE DB 'Bei OPEN ist 


ein Fehler 
aufgetreten.' 
(Martin Kotulla/hg) 
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unter CP/ 


(»Aller Anfang ist leicht«) haben wir 

nur bestehende Dateien gelesen 
und verändert. Nun wollen wir einmal 
selbst eine Datei erzeugen und auf der 
Diskette speichern. CP/M bietet die 
BDOS-Funktion 22 (Datei erzeugen) 
an. Sie verlangt im DE-Register einen 
Zeiger auf den benutzten FCB-Block. 
Der FCB-Block muß wie üblich aufge- 
baut werden. Doch es gibt leider noch 
einige Fallstricke. Die Funktion prüft 
zum Beispiel nicht, ob bereits eine Datei 
mit einem identischen Namen existiert, 
sondern legt ohne Rücksicht auf Verlu- 
ste einen neuen Verzeichniseintrag im 
Directory an. Ein Resultat kann sein, 
daß auf der Diskette ein Chaos 
herrscht. Abhilfe schafft ein Befehl zum 
Löschen von eventuell bestehenden 
Dateien dieses Namens, der vorange- 
schickt werden sollte. Eleganter ist der 
Weg, eine bestehende Datei zum .BAK- 
File umzubenennen und die neue Datei 
unter dem geplanten Namen abzule- 
gen. Programmtechnisch ist der Auf- 
wand für diese Lösung größer. Schließ- 
lich müssen Sie noch prüfen, ob eine 
.BAK-Datei dieses Namens bereits exi- 
stiert. 

Bevor wir also eine neue Datei erzeu- 
gen können, müssen wir uns erst mit 
den Befehlen zum Löschen und Umbe- 
nennen von Dateien auseinanderset- 
zen. Zur Erklärung des Löschbefehls 
wollen wir ein Aquivalent für den ERA- 
Befehl schreiben. 

Bisher sind Sie gewohnt, sich selbst 
den FCB-Block zusammenzubasteln. 
Das erfordert nur wenig Mühe, wenn 
sich der Dateiname nicht ändert, son- 
dern fest im Programmcode verankert 
ist. Stellen Sie sich aber vor, Siemüßten 
eine Benutzereingabe auswerten und 
in einen korrekten Dateinamen umset- 
zen. Einige Seiten Quellprogramm kom- 
men dabei schnell zusammen. Da erin- 
nern Sie sich daran, bei verschiedenen 
CP/M-Programmen nach dem Namen 
des Hauptprogramms weitere Dateina- 
men angegeben zu haben. Zum Bei- 
spiel bei WordStar »WS BRIEF.BRF«. 
Diese Eingabe nennt sich »CCP- 
Kommandozeile« und muß vom Be- 
triebssystem irgendwo abgespeichert 
werden. Und tatsächlich, der Puffer- 
speicher liegt zwischen den Adressen 
0080 hex und OOFF hex. Damit verste- 


N m ersten Teil unseres CP/M-Kurses 


u PLUS =) Im zweiten Teil 
RAM S unseres CP/M- 


BES Programmier- 
kurses lernen Sie, wie man 
Dateien erzeugen und Sie dann 
auf der Diskette speichern 
kann. Nach diesem Artikel 
werden Sie alle BDOS- und 

alle BIOS-Funktionen Ihres 
Schneider-Computers perfekt 
beherrschen. 


hen Sie auch, warum es sinnvoll ist, den 
Z80-Stack nicht gerade in diesen Be- 
reich zu legen. 

Damit der Aufbau der Kommandopzei- 
le erkennbar wird, sollten Sie sich eine 
Diskette mit dem Systemdebugger DDT 
heraussuchen und diesen mit »DDT 
FILE.COM« laden. Auch wenn Sie gar 
kein Programm »FILE.COM« besitzen, 
hat das keine unangenehmen Auswir- 
kungen. Der DDT meldet sich dann zwar 
mit einem »?«, unternimmt aber keine 
weitergehenden Aktionen. 

Mit dem D-Befehl (Dump) listet er den 
Speicher auf. Geben Sie die Start- und 
Endadresse an, zeigt der Debugger 
den Inhalt des angesprochenen Spei- 
cherbereiches in Hexadezimalzahlen 
und ASCII-Zeichen an. So listet 
»DC000,FFFF« das komplette Schnei- 
der-BIOS-ROM. Anhalten läßt sich die 
Ausgabe mit CTRL-S, abbrechen mit 
jeder beliebigen anderen Taste. CTRL-P 
schaltet wahlweise den Drucker zu, der 
auf Wunsch alle Ausgaben mitprotokol- 
liert. 

Lassen Sie sich die zweite Hälfte der 
Zero-Page mit DO080,00FFF ausge- 
ben. Sie muß in etwa so aussehen, wie 
sie im Bild 1 wiedergegeben ist. Sofern 
Sie keine unnötigen Leerzeichen beim 
Aufruf von DDT eingegeben haben, fin- 
den Sie an der Adresse 0080 hex den 
Wert 09 hex. Welche Bedeutung das 
Byte hat, können Sie herausfinden, 
wenn Sie die Länge Ihrer Eingabe nach- 
zählen. »DDT FILE.COM« besitzt 12 


Stellen. Wenn Sie von 12 die drei Buch- 
staben »DDT« abziehen, erhalten Sie die 
Zahl 9. Das Byte an der Adresse 0080 
hex gibt also die Länge der Eingabe- 
zeile abzüglich der Namenslänge des 
aufgerufenen Programms an. Das Leer- 


zeichen zwischen dem Programmna- 
men und den angegebenen Parametern 
wird mitgezählt. Der Aufruf »PIP 
LST:=CON:« speichert dann also eine 
10 (A hex) an der Adresse 0080 hex. 

In den Bytes zwischen 0081 und 
OOFF hex findet sich dann die gesamte 
Eingabezeile wieder. Wurde eine Kom- 
mandozeile mit weniger als 128 Buch- 
staben eingegeben, ist der Inhalt der 
restlichen Bytes unbestimmt. Das 
Betriebssystem siedelt nämlich auch 
den Sektorpuffer zur Kommunikation 
mit der Diskettenstation in diesem 
Bereich an. Wenn Sie die Auflistung in 
Bild 1 betrachten, finden Sie beispiels- 
weise einen Auszug aus dem Directory 
der im letzten Kapitel bearbeiteten Dis- 
kette. Die Programmnamen READCMD. 
PRN, READCMD.HEX und READCMD. 
COM zeugen davon. 

Mit dieser Kommandozeile lassen 
sich an Programme beliebige Parame- 
ter übermitteln. Als Demonstration 
schreiben wir eine Routine, die die Mini- 
malfunktionen einer Schreibmaschine 
erfüllt. Es soll eine Zeile aus dem CCP- 
Kommandopuffer übernehmen und auf 
dem Drucker ausgeben. Das Programm 
ist aber aus zwei Gründen nur sehr 
beschränkt zur Textbearbeitung geeig- 
net. Erstens wandelt es alle Kleinbuch- 
staben in ihre großen Äquivalente um, 
und zweitens müßten Sie das Pro- 
gramm für jede Druckzeile neu von der 
Diskette laden. 

Beginnen wir mit dem üblichen Pro- 


grammkopf: 

TPA EQU _0100H \ Diese Adressen 
WARM EQU O0 gelten wieder für 
BDOS EQU 5 alle Programme 
ORG TPA 

LXI SP,STACK 


Alsnächstes laden wir den Akkumula- 
tor mit der Länge der Eingabezeile. So 
läßt er sich als Schleifenzähler verwen- 
den: 

LDA 0080H 

Das HL-Register zeigt auf den Beginn 
des Kommandopuffers: 
LXI H,0081H+1 

Der Abstand 008 1hex+ 1 isterforder- 
lich, weil wir jaschon gesehen haben, 
daß in 008 1hex immer ein Leerzeichen 
steht. Daswollen wirabernichtdrucken. 

In einer Programmschleife wird nun 
der ganze Text auf dem Drucker ausge- 
geben. Dazu stellt uns das BDOS die - 
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bereits bekannte - Funktion 5 (Zeichen 
auf dem Drucker ausgeben) zur Verfü- 


gung: 
SCHLEIFE MOV E,M 

INX H 

DCR A 

JZ ENDE 

MVI 0,5 

PUSH PSW 

PUSH H 

CALL BDOS 

POP _H 

POP PSW 

JMP SCHLEIFE 


Wenn der Akku auf Nulldekrementiert 
wurde, ruft der Prozessor die Befehle ab 
der Marke ENDE (JZ ENDE) auf. Sonst 
erhöht das Programm den Zeiger im HL- 
Register, sichert die Register A und HL 
auf dem Stack, gibt das Zeichen über 
das BDOS aus, stellt die Registerinhalte 
wieder her und kehrt zurück in die Pro- 
grammschleife. 

Am Programmende ist es empfeh- 
lenswert, einen Wagenrücklauf und Zei- 


lenvorschub an den Drucker zu 

schicken: 

ENDE MVI E,13 
MI cC,5 
CALL BDOS 

LINEFEED MVI E10 
MVI 655 
CALL BDOS 
JMP WARM 

STACK EQU $ 
END 


Mit dem Auslesen des Kommando- 
puffers sind wir aber unserem Ziel, uns 
die Konstruktion von FCBs zu ersparen, 
keinen Schritt näher gekommen. Aber 
CP/M bietet einen bemerkenswerten 
Komfort. Bevor es das von der Diskette 
geladene COM-File aufruft, stellt es 
fest, obvom Benutzer zusätzliche Datei- 
namen angegeben wurden und ver- 
sucht, einen FCB-Block zu erstellen. 

Laden Sie wieder den Systemdebug- 
ger mit DDT FILE.COM undllisten Sie mit 
DOO5C,0080 einen anderen Teil der 
Zero-Page. Bild 2 zeigt, wie es dort aus- 
sieht. Wenn Sie den Hexdump genau 
betrachten, werden Sie feststellen, daß 
er einen vollständigen Dateikontroll- 
block darstellt. 

So können wir sehr leicht unser Ziel 
verwirklichen, einen ERA-Ersatz zu 
schreiben. Als zusätzliche Leistung soll 
das Programm den von CP/M aufgebau- 
ten FCB ausdrucken und eine Sicher- 
heitsabfrage machen: 


ORG TPA 
FCB  EQU  OO5CH 
START LXI SP,STACK 


Zuerst soll das Programm den Datei- 
namen so zeigen, wie er von CP/M im 
Standard FCB gespeichert wird. Wie 
Sie aus unserem letzten Kursteil bereits 
wissen, beginnt der Dateiname an der 
Adresse FCB+1. An der Adresse FCB 


steht das gewählte Diskettenlaufwerk. 
Lassen wir zuerst das Laufwerk 
anzeigen. Es ist binär codiert, also 
A=1, B=2 und so weiter. Durch Addi- 
tion von 64 erhalten Sie den Kennbuch- 
staben (1+64=65=»A«, 2+64=66 
=»B«). Geben Sie keine Laufwerksbe- 
zeichnung an, so setzt CP/M den Wert 
Null ein, der dem aktuellen Bezugslauf- 
werk entspricht. In diesem Fall zeigt das 


Programm 0+64=64, also einen 
»Klammeraffen« (@) an: 
LAUFWERK LDA FCB 
ADI 64 
MOV  E,A 
Die normale Konsolenausgabe 


(Funktion 2) kann ohne Einschränkun- 
gen verwendet werden: 
MVI C,2 
CALL BDOS 
Jetzt fehlt noch der Doppelpunkt 
nach der Laufwerksbezeichnung: 


MVI’ Byte 
MI cC,2 
CALL BDOS 


Und nun kommt der Dateiname dran. 
Er besteht aus acht Buchstaben, 
zuzüglich drei Buchstaben für die 
Extension. Der Einfachheit halber fas- 
sen wir beide Teile zusammen und 
geben sie auf einmal aus. Damit sind elf 
Buchstaben zu drucken: 

DATEINAME LXI H,FCB+1 
MVI A,ı11 
MOV E,M 
PUSH PSW 
PUSH H 

MI C,2 
CALL BDOS 
POP H 

POP PSW 

INX H 

DCR A 

JNZ SCHLEIFE 

Damit beenden wir das Programm 
und setzen die folgenden Zeilen an den 
Schluß: 


SCHLEIFE 


JMP WARM 
DS 20 
EQU $ 
END 

Wenn Sie das Programm jetzt assem- 
blieren, können Sie das entstehende 
COM-File aufrufen und sehen, was 
CP/M aus Ihrer Eingabe macht. Ange- 
nommen, Sie haben das File 
»ERASE.COM« genannt, sind in unten- 
stehender Tabelle einige Beispiele zu 
finden, was auf dem Drucker ausgege- 
ben wird. 


STACK 


A) ERASE FILE.COM 
A)ERASE A:FILE.C?M 
A) ERASE *.COM 

A) ERASE DATEINAM.* 


A)ERASE %.%* 
A)ERASE B:*.H?X 
A) ERASE B:FILENAME.BAK 





Soweit funktioniert also alles ein- 
wandfrei. Es fehlt nur noch die Sicher- 
heitsabfrage und der eigentliche 
Löschvorgang. Entfernen Sie nun alle 
Befehle nach der Zeile JNZ SCHLEIFE 
und setzen Sie dafür folgende Kom- 
mandos ein: 


ABFRAGE LXI  D,SICHER$ 
MI 0,9 
CALL BDOS 


Diese drei Befehle geben den Text 
aus, der unter SICHER$ zu finden sein 
wird. Nun müssen wir noch die Tastatur- 
abfrage einbauen. Die Funktion 1 (Kon- 
soleneingabe) ist hier am geeignetsten: 

MVI C,1 
CALL BDOS 

Diese Routine liefert im Akku den 
ASCII-Wert der gedrückten Taste. 
Schauen wir uns einmal die Ergebnisse 
an. Sie müssen nur noch den String 
SICHER$ definieren und die alten Zei- 
len in folgende Reihenfolge umstellen: 


JMP WARM 
SICHER$ DB '- Sind Sie 
sicher? $' 
DS 20 
STACK EQU 8 
END 


Wenn Sie alles richtig übernommen 
haben, läuft das Programm zur vollsten 
Zufriedenheit - und wir können endlich 
die Dateien, die gelöscht werden sol- 
len, wirklich aus dem Directory entfer- 
nen: 


cpI 7! 
JINZ _ WARM 
ERASE MI c,19 
DE DE 
CALL BDOS 
JMP  WARM 


Die Befehle müssen noch vor dem 
String SICHER$ eingesetzt werden. 
Bild 3 zeigt das vollständige Listing. Sie 
sehen, nach all dem - leider notwendi- 
gen - »Vorgeplänkel« eine wirklich kom- 
pakte Lösung mit nur sechs Programm- 
schritten. 

Noch eine Kurzinformation zur 
BDOS-Funktion 19: Der Name lautet 
»Datei löschen«, die Funktion erwartet 
im DE-Register einen Zeiger auf den 
FCB-Block. 

In der jetzigen Version kennt ERASE 
bei der Frage »Sind Sie sicher?« nur »J« 
als Großbuchstaben für »Ja«. Bei allen 
anderen gedrückten Tasten löst das 
Programm einen Warmstart aus, ohne 
die Datei zu löschen. ERASE steht 


COM 
C?M 


@ :FILE 
A:FILE 


Das macht CPIM 
aus Ihrem 
COM-File 
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natürlich Ihren Erweiterungen offen. 
Zum Beispiel kann man das Programm 
so ausbauen, daß auch der Kleinbuch- 
stabe »j« bei der Sicherheitsabfrage 
akzeptiert wird. 

Wie reagiert aber CP/M, wenn der 
Benutzer einen zweiten Dateinamen in 
der CCP-Aufrufzeile angibt? Ganz ein- 
fach: Es legt auch einen zweiten FCB 
an. Mehr als zwei FCBs verkraftet das 
Betriebssystem beim Aufruf von Pro- 
grammen allerdings nicht. 

Der zweite FCB wird direkt nach dem 
ersten an der Adresse O06C hex abge- 
legt, er beginnt also genau 16 Byte 
nach dem ersten. Für die Funktion 
»Datei umbenennen« ist dies sehr nütz- 
lich, denn sie erwartet die beiden Datei- 
namen in genau diesem Format. Einzige 
Einschränkung ist, daß das Byte O des 
zweiten FCB auf Null gesetzt sein muß. 
Es gibt ja das Laufwerk des neuen 
Dateinamens an. Unterschiedliche 
Laufwerke beim Umbenennen von 
Dateien sind natürlich Unsinn. Fassen 
wir also zusammen: 
005C hex Byte 0 Laufwerk 
005D hex Byte 1 Alter Dateiname 
006C hex Byte 16 Neues Laufwerk, 

immer Null 
006D hex Byte 17 Neuer Dateiname 

Im Gegensatz zum REN-Befehl ver- 
langt also die BDOS-Funktion, daß der 
alte Dateiname zuerst steht. Das Pro- 
gramm kann recht kurz bleiben: 


FCB EQU 005CH 
FCB2 EQU FCB+16 
ORG TPA 
LXI SP,STACK 
NULLSETZ LXI H,FCB2 
MVI M,0 
RENAME MVI 0,23 
LXI D,FCB 
CALL BDOS 
JMP WARM 
DS 20 
STACK EQU $ 
END 


Die verwendete BDOS-Funktion hat 
die Nummer 23 und den Namen »Datei 
umbenennen«. Sie erwartet - wie alle 
Dateifunktionen - im DE-Register einen 
Zeiger auf den FCB-Block. Dieser FCB- 
Block enthält ausnahmsweise zwei 
Dateinamen. Den Aufbau haben wir 
gerade besprochen. 

Wenn Sie das Programm RENAME. 
COM nennen, können Sie es statt des 
REN-Befehls verwenden: 

»REN PROG.NEU=PROG.ALT« ent- 
spricht »RENAME PROG.ALT PROG. 
NEU«. 

Für diesen Einzelfall ist die Lage des 
zweiten FCB mitten im ersten äußerst 
praktisch, doch in den meisten Fällen 
muß man ihn kopieren. Wenn Sie näm- 
lich die erste Datei mit dem FCB an 
der Adresse 005C hex öffnen, über- 
schreibt CP/M alle Daten im zweiten 


FCB. Der FCB hat ja bekanntlich eine 
Länge von 32 bis 36 Byte und nicht 
16 Byte. Z80-Programmierern fällt hier 
sofort der Blockkopierbefehl LDIR ein. 
Doch ein 8080-Assembler kann diesen 
nicht verstehen. Da eine Simulation 
durch eine Programmschleife recht auf- 
wendig ist, wollen wir uns anschauen, 
wie wir den ASM dazu bringen können, 
auch Z80-Befehle zu übersetzen. 
Sehr hilfreich ist bei dieser Arbeit eine 
Vergleichstabelle der Z80- und 8080- 
Befehle sowie eine Tabelle der 
Z80-spezifischen Befehle (siehe den 
Artikel »Z80/8080 im Vergleich«). 
Ohne Probleme lassen sich Befehle 
übersetzen, die keine Parameter besit- 
zen wie LDIR, OTDR, EXX, NEG und 
RETI. Fügen Sie einfach die Opcodes 
als DB-Konstanten ein und schon 
haben Sie den 8080-Assembler. Statt 
LDIR schreiben Sie nun DB OEDH, 
OBOH, statt EXX jetzt DB ODYH. Mit 
einem kleinen Trick lassen sich auch die 
Indexregister IX und IY ansprechen. Die 
meisten der Indexregister-Befehle ent- 
stehen nämlich aus normalen HL-Regi- 
ster-Kommandos, die das vorange- 
hende Byte mit DD hex (für IX) oder FD 
hex (für IY) verändert. Eine kleine 
Tabelle solcher Umcodierungen finden 
Sie hier: 
Z80: 8080: 
ADD IX,BC DB DDH und DAD B 
ADD IY,BC DBFDH und DAD B 
LD (adr),IX DB DDH und SHLDadr 
LD SPIY DB FDH und SPHL 
LD IYwort DBFDHundLXI H,wort 
Etwas verzwickter wird es bei denje- 
nigen Indexbefehlen, die einen Ver- 
schiebewert benötigen. Dieser muß 
hinter dem Befehl angefügt werden: 


Z80 8080 

ADD A,(IX+ DB ODDH und ADD M und 
distanz) DB Distanz 

CP (IY+ DB OFDH und CMPM und 
distanz) DB Distanz 

LDL,(IX+ DB ODDH und MOV LM 
distanz) und DB Distanz 


Alle übrigen Befehle müßten Sie wohl 
oder übel direkt von Hand ausrechnen 
undals Konstanten in den Quelltext ein- 
fügen. 

Nach diesem Ausflug in die Tiefen 
des Mikroprozessors kehren wir wieder 
auf die Benutzer- und Programmierer- 
ebene von CP/M zurück. Wir wissen 
zwar jetzt, wie sich Dateien löschen und 
umbenennen lassen, haben aber immer 
noch keine Datei erzeugt. 

Benutzen wir zuerst unsere Kennt- 
nisse über das Löschen von Files, da 
alte Dateien unbedingt von der Diskette 
entfernt werden müssen, bevor die 
BDOS-Funktion »Datei erzeugen« 


(Nummer 22) aufgerufen werden darf. 
Das Programm, das wir schreiben wol- 
len, soll eine Datei erzeugen und einen 
Satz in diese Datei schreiben. 


Wir verwenden dazu den CCP-Kom- 


mandopuffer: 

FCB EQU O0O05CH 
ORG TPA 
LXI SP,STACK 


Da wir uns die Arbeit nicht allzu 
schwer machen wollen - Programmie- 
rer arbeiten schließlich nicht, sie lassen 
den Computer für sich arbeiten - benut- 
zen wir wieder den von CP/M angebo- 
tenen FCB-Block. Das erfordert aller- 
dings Disziplin bei der Bedienung, weil 
sich im Dateinamen bei dieser BDOS- 
Funktion keine unerlaubten Zeichen 
befinden dürfen (auch kein ? oder *). 

Vorher sollten wir aber noch den 
DMA-Puffer auf einen neuen Bereich 
festlegen. CP/M benutzt den Bereich 
0080 hex bis OOFF hex. Dort liegt auch 
die Kommandozeile, die wir später in die 
Datei schreiben wollen. Sicherheitshal- 
ber setzen wir den DMA-Puffer auf 
diese Adresse: 


LXI D,0080H 
MVI C,26 
CALL BDOS 


Die BDOS-Funktion 26 legt den 
DMA-Speicher neu fest. Löschen las- 
sen sich Dateien mit der BDOS- 
Funktion 19: 


LXI D,FCB 
MVI C,19 
CALL BDOS 


Nach diesen vielen Vorarbeiten ist es 
soweit. Die Funktion 22 erzeugt eine 
Diskettendatei, die durch den FCB 
beschrieben wird. Auf diesen muß das 
DE-Register zeigen: 


LXI D,FCB 
MVI 0,22 
CALL BDOS 


Jetzt steht die Datei auf der Diskette. 
Sie muß nur noch mit Daten gefüllt wer- 
den. Nichts einfacher als das: 


LXI D,FCB 
MVI 6,91 
CALL _ BDOS 


Diese BDOS-Funktion 21 überträgt 
128 Byte, beginnend an der Adresse 
0080 hex, auf der Diskette. Auch das 
Schließen der Datei dürfen wir nicht 


vergessen: 
LXI D,FCB 
MVI C,16 
CALL BDOS 


Am Programmende darf natürlich der 
Warmstart nicht fehlen, ebensowenig 
die Stackdefinition: 


JMP WARM 
DS 20 

STACK EQU $ 
END 


Aufrufen sollten Sie das Programm, 
nachdem Sie es als CREATE.COM 
gespeichert haben, zusammen mit dem 
Namen der zu erzeugenden Datei und 
darauffolgend beliebigen Buchstaben. 
Geben Sie solange Buchstaben ein, 
wie der CCP sie annimmt. Das Pro- 





140 











RAIN PPY® 
onen 




















CPIM 





gramm bildet dann die neue Datei und 
schreibt Ihre Eingabezeile in die Datei. 
Mit TYPE filename.ext können Sie sich 
ansehen, ob alles nach Wunsch 
geklappt hat. 


Direkter Zugriff 
auf Daten 


Was in Amsdos nur mit einigen 
Mühen und langen Maschinencode- 
Routinen simuliert werden kann, bietet 
CP/M serienmäßig: die Direktzugriffda- 
teien. Im Gegensatz zu sequentiellen 
Dateien, bei denen Datensätze nur der 
Reihe nach gelesen werden können, 
lassen sich in Direktzugriffdateien ein- 
zelne Records direkt ansprechen. 
Damit haben Sie die Möglichkeit, effi- 
ziente Dateiverwaltungen mit relativen 
oder indexsequentiellen Zugriffsverfah- 
ren zu entwickeln. 

Diese Dateien unterscheiden sich in 
CP/M nicht allzu sehr von anderen 
Dateien. Sie werden über genau diesel- 
ben BDOS-Funktionen erzeugt (22), 
geöffnet (15), geschlossen (16), ge- 
löscht (19) oder umbenannt (23) wie 
alle anderen Files auch. Lediglich für 
das Schreiben und Lesen sind eigene 
Funktionen vorhanden. 

Für den direkten Zugriff muß der FCB, 
der bisher nur 32 Byte umfaßte, auf 36 
Byte erweitert werden. In den Byte 33 
und 34 speichert der CP/M-Computer 
die Nummer der zu bearbeitenden Auf- 
zeichnung. Wenn Sie einen bestimmten 
Datensatz bearbeiten wollen, müssen 
Sie in diesen beiden Bytes die Satz- 
nummer eintragen, das Lowbyte zuerst. 

Beim Öffnen der Datei ist unbedingt 
darauf zu achten, die Aufzeichnungs- 
nummer im Byte 32 des FCB-Blocks 
auf Null zu setzen. Von Manipulationen 
dieses Werts, die bei der sequentiellen 
Verarbeitung durchaus zu empfehlen 
sind, ist beim Direktzugriff abzuraten. 


.Im Gegensatz zur sequentiellen Da- 
teiverwaltung zählt das BDOS bei direk- 
tem Datenzugriff nicht automatisch den 
internen Zeiger auf den nächsten 
Datensatz fort. Das muß Ihr Programm 
machen. Recht nützlich ist aber, daß 
man jederzeit zwischen sequentieller 
und direkter Dateiverwaltung hin- und 
herwechseln darf. Der Zähler im Byte 
32 wird nämlich mitverwaltet. Es ist 
damit aber keineswegs so, daß jedem 
logischen Datensatz auch ein physikali- 
scher Datensatz entspricht. Denn leere 
Datensätze werden von CP/M nicht mit 
abgespeichert, was eine Menge Spei- 
cherplatz auf der Diskette spart, den 
Wechsel zwischen den Betriebsarten 
aber erschwert. 

Die BDOS-Funktion 34 (Aufzeich- 
nung schreiben) verlangt, daß im DE- 


Register ein Zeiger auf den 36-Byte- 

FCB zu finden ist, und daß die Bytes 33 

und 34 die Satznummer enthalten. Die 

Funktion schreibt dann eine 128 Byte 

lange Aufzeichnung in die Datei. 

Die BDOS-Funktion 33 (Aufzeich- 
nung lesen) arbeitet ähnlich, liefert aber 
128 Byte aus der Datei in den aktuellen 
DMA-Puffer. 

Die BDOS-Funktion 40 (Initialisie- 
rung schreiben) schreibt eine aus Null- 
bytes bestehende Aufzeichnung in die 
Datei. Damit lassen sich Aufzeichnun- 
gen löschen oder als ungültig markie- 
ren. 

Ist der Wechsel vom direkten auf den 
sequentiellen Zugriff relativ einfach, 
stehen Sie bei der umgekehrten Rich- 
tung vor großen Problemen. Schließlich 
schreibt das Betriebssystem bei 
sequentiellem Aufruf nur das Byte 32 
fort, nicht aber die Bytes 33 und 34. 
Abhilfe schafft da eine BDOS-Funktion, 
die den Inhalt von Byte 32 in die Nume- 
rierung für den unmittelbaren Zugriff 
umrechnet. Sie besitzt die Nummer 36 
und benötigt im DE-Register einen Zei- 
ger auf den File-Control-Block. Nach 
Bearbeitung der Routine steht die 
berechnete Nummer in den Bytes 33 
und 34 des FCB. Die so errechnete 
Aufzeichnung liegt allerdings genau 
eine Aufzeichnung hinter der letzten 
sequentiellen, weil CP/M ja den 
Zugriffszeiger fortgeschrieben hat. 

Die Erkennung von Fehlern bei 
Direktzugriff ist - eigentlich ungewöhn- 
lich für das spartanisch ausgestattete 
CP/M 2.2 - recht reichhaltig. Es gibt 
insgesamt sechs Fehlercodes, die bei 
den BDOS-Funktionen 33, 34 und 40 
auftreten können. Stehtim Akkumulator 
nach deren Aufruf der Wert Null, konnte 
die Aktion ordnungsgemäß durchge- 
führt werden. Die Werte 1 bis 6 sind für 
die folgenden Fehlermeldungen reser- 
viert: 

Code 1 = Leseversuch in noch nicht 
geschriebener Aufzeich- 
nung 

Code 2 = Nicht benutzt 

Code 3 = Verzeichniseintrag kann 
nicht geschlossen werden 

Code 4 = Leseversuch in Auf- 
zeichnung ohne 
Verzeichniseintrag 

Code 5 = Verzeichnisüberlauf 

Code 6 = Diskette voll 

Zwei BDOS-Funktionen für den Dis- 
kettenbetrieb haben wir Ihnen bisher 
»verheimlicht«. Sie sind nicht unbedingt 
lebenswichtig und werden auch nur sel- 
ten benutzt. Die Funktion 17 sucht auf 
der Diskette nach einem Directory- 
Eintrag, der zu dem Dateinamen im FCB 
paßt: 


MVI C,17 
LXI D,FCB 
CALL BDOS 


Wenn das BDOS solch einen Eintrag 
findet, enthält der DMA-Puffer den 
128-Byte-Sektor aus dem Directory. 
Das A-Register zeigt an, welcher der 
vier 32-Byte-Einträge, die jetzt im Puf- 
fer stehen, gemeint ist: 


A=0: Erster Eintrag, Adresse DMA 


A= 1: Zweiter Eintrag, Adresse 
DMA+32 

A=2: Dritter Eintrag, Adresse 
DMA+64 

A=3: Vierter Eintrag, Adresse 
DMA+96 


Die Funktion 18 sucht - nach dem 
Aufruf der BDOS-Funktion 17 - nach 
dem nächsten passenden Eintrag. Das 
DE-Register wird dazu nicht benötigt: 

MVI C,18 
CALL BDOS 

Die Ergebnisse, die wir dabei erhal- 
ten, entsprechen der vorhergehenden 
Funktion. 


Noch mehr 
nützliche Dinge 


Neben der zeichenorientierten Kom- 
munikation und der Diskettenverwal- 
tung bietet das BDOS von CP/M 2.2 
noch eine Reihe weiterer brauchbarer 
Funktionen. 

So waren Sie zum Beispiel bisher 
gewohnt, einen Warmstart des Compu- 
ters mit JMP O auszulösen. Alternativ 
dazu können Sie die BDOS-Funktion O 
(Warmstart auslösen) aufrufen. In den 
meisten Fällen gibt es zwischen beiden 
Methoden keinen Unterschied im 
Resultat. Manche Programme verbie- 
ten aber den Reset-Einsprung an der 
Adresse 0000 hex. Während hier der 
direkte Sprungbefehl versagt, kann mit 
der BDOS-Funktion noch ein korrekter 
Programmabschluß erreicht werden: 

MVI 0,0 
CALL BDOS 


CP/M 2.2 verlangt vom Benutzer 
nach einem Diskettenwechsel einen 
Warmstart mit CTRL-C. Der Sinn dieser 
Maßnahme ist es, zu verhindern, daß 
Teile von Dateien auf verschiedene Dis- 
ketten geschrieben werden und da- 
durch das Diskettendirectory zerstört 
wird. Ein solcher Warmstart bricht aber 
jedes laufende Programm ab. Die 
BDOS-Funktion 13 setzt hingegen das 
Diskettensystem zurück. Das bedeutet, 
daß das Laufwerk A im User-Bereich O 
selektiert, ein eventuell bestehender 
Schreibschutz entfernt und der DMA- 
Puffer wieder auf die Adresse 0080 
hex gelegt wird. Wenn Sie diese BDOS- 
Funktion in Ihrem Programm aufrufen, 
kann vom Benutzer der Software ohne 
Bedenken die Diskette gewechselt 
werden. Dennoch sollten Sie darauf 
achten, vor dem Diskettenwechsel alle 
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Dateien auf der alten Diskette zu schlie- 
Ben. Dazu dient die Funktion 13: 
MVI 0,13 
CALL BDOS 

Oft ist es allerdings nicht sinnvoll, das 
gesamte Diskettensystem neu zu initia- 
lisieren. Die BDOS-Funktion 37 erlaubt 
es, einzelne Disketten zurückzusetzen. 
Dazu muß das DE-Register eine Binär- 
zahl enthalten, in der die anzuspre- 
chenden Laufwerke codiert sind. Das 
CP/M-System kann insgesamt 16 Lauf- 
werke verwalten. Da eignet sich ein 
16-Bit-Register wie DE prächtig zur 
Codierung. Für jedes Laufwerk, das ini- 
tialisiert werden soll, wird ein einzelnes 
Bit auf eins gesetzt, ausgehend vom 
niederwertigsten Bit für das Laufwerk A. 

Hier finden Sie die Werte für die bei- 
den Laufwerke A und B: 
A zurücksetzen: 
00000000$00000001bin = Olhex 
B zurücksetzen: 
00000000$00000010bin = O2hex 
AundB: 
00000000$00000011bin = O3hex 

(Das Dollarzeichen darf bei 
ASM.COM zur Gliederung von Binär- 
zahlen verwendet werden). 
Der Aufruf der BDOS-Funktion erfolgt 
mit: 


MVI 0,37 
LXI D,Code 
CALL BDOS 


Nach diesem BDOS-Call müssen die 
zurückgesetzten Laufwerke wieder 
neu aktiviert werden. Dies geschieht, 
sobald der Benutzer entweder aus- 
drücklich ein Laufwerk wählt (»A:« oder 
»B:«) oder dem Dateinamen einen Lauf- 
werksnamen voranstellt (»A:FILE.COM« 
TYPE BTEXT«). Sie können diesen 
Neuzugriff deutlich bemerken, denn die 
Diskettenstation läuft hörbar lauter und 
länger an. 

Umgekehrt zur Funktion 37 können 
Sie mit einer speziellen Funktion fest- 
stellen, welche Laufwerke aktiv sind. 
Die Funktionsnummer lautet 24. Nach 
dem BDOS-Aufruf steht im HL-Register 
eine Zahl, in der die aktiven Laufwerke 
genauso codiert sind wie bei der Funk- 
tion 37. Zur Erläuterung dieser Funk- 
tion schreiben wir eine kurze Routine, 
die alle aktiven Laufwerke ausgeben 
sol. Der Programmkopf entspricht 
unserem Standard: 

ORG TPA 
LXI SP,STACK 

Zuerst soll der Text »Aktive Lauf- 
werke:« ausgegeben werden. Verwen- 
dung findet die altbekannte DBOS- 
Funktion 9 (Zeichenkette ausgeben): 


DRUCKE LXI D,STRING 
MVI C,9 
CALL BDOS 


Nun holen wir uns mit der BDOS- 
Funktion 24 (Aktive Laufwerke feststel- 
len) den Binärcode ins HL-Register: 


HOLE MVI 0,24 
CALL BDOS 

Da wir den Wert noch länger benöti- 
gen, er aber von den BDOS-Routinen 
überschrieben werden kann, sichern 
wir ihn auf dem Stack: 

PUSH H 

Von diesem Wert interessieren uns 
für zwei Laufwerke nur die beiden nie- 
derwertigen Bits im L-Register. Durch 
den Z80-Bit-Testbefehl BIT läßt sich 
feststellen, welchen Wert ein Einzelbit 
eines Registers besitzt. Abhängig vom 
Ergebnis setzt oder löscht die 
Z80-CPU das Zero-Flag. Die Maschi- 
nencodes des dem 8080-Prozessor 
unbekannten Befehls simulieren wir 
durch den DB-Pseudobefehl: BIT O,L 
entspricht DBOCBH, 045H und BIT 1,L 
ist DB OCBH,04DH. 
TEST$A DB OCBH, 045H 

JZ TEST$B 

Sobald das Laufwerk A aktiv ist, wird 
der Sprung nicht mehr ausgeführt, da 
das Bit O dann 1 ist. Wir wollen dann 
eine Meldung ausgeben: 


A$AKTIV LXI D,AKTIV1$ 
MVI 0,9 
CALL BDOS 
JMP TEST$B 
AKTIV1$ DB 24,'A:',24,32,'$' 


Das Steuerzeichen 24 in der DB- 
Zeile schaltet die Inversedarstellung ein 
und wieder aus. Die Abfrage des Lauf- 
werks B erfolgt ähnlich: 

TEXT$B POP H 
DB OCBH, 04DH 


JZ WARM 
B$AKTIV LXI D,AKTIV2$ 
MVI C,9 
CALL BDOS 
JMP WARM 
AKTIV2$ DB 24,'B:',24,32,'$' 


Den String, der zum Programmstart 
ausgegeben wird, dürfen wir genauso 
wenig vergessen wie den Systemstack: 


STRING DB 12, 'Aktive 
Laufwerke: $' 
DS 20 
STACK EQU $ 


Das Programm wird allerdings nicht 
zweimal hintereinander dieselben 
Resultate liefern, denn es beendet sich 
selbst durch einen Warmstart, der alle 
Laufwerke bis auf A zurücksetzt: 

A)DIR B: 
A) ACTIVE 

Aktive Laufwerke: A: B: 
A) ACTIVE 

Aktive Laufwerke: A: 

A) B: 
B) A:ACTIVE 

Aktive Laufwerke: A: B: 


Die Funktion 14 (Bezugslaufwerk be- 
stimmen) legt fest, auf welchem Disket- 
tenlaufwerk gearbeitet wird, wenn nicht 
ausdrücklich der Dateiname FCB ein 
bestimmtes Laufwerk vorgibt: 


MVI C,14 
MVI E,Laufwerk 
CALL BDOS 


Die Werte sind von O für Laufwerk A 
bis 15 für Laufwerk P durchnummeriert. 
Das gewählte Laufwerk bleibt nur bis 
zum nächsten Warmstart erhalten. Soll 
es auch danach weiterverwendet wer- 
den, muß die Nummer für den CCP 
zusätzlich in den vier niederwertigen 
Bits der Speicherstelle 0004 hex ver- 
merkt werden: 


MOV A,E 

ANI 15 

MOV  E,A 

LDA O0004H 

ANI 11110000B 
ORA E 

STA  O0004H 


Dieser Programmcode holt zuerst die 
Laufwerksnummer ins A-Register und 
stellt durch ANI 15 sicher, daß der Wer- 
tebereich eingehalten wird. Danach 
überträgt er den Wert wieder ins E- 
Register und liest das Byte an der 
Adresse 4. In den höherwertigen Bits 
ist die User-Nummer codiert. Diese soll 
natürlich nicht verändert werden. Sie 
müssen sicherstellen, daß die Lauf- 
werksangabe gelöscht wird. Der zweite 
ANI-Befehl erledigt dies. Durch ORA E 
trägt der Prozessor schließlich die neue 
Laufwerksnummer ein - und mit STA 4 
wird sie dauerhaft gespeichert. 

Die Funktion 25 stellt fest, welches 
Laufwerk voreingestellt ist und erledigt 
damit die entgegengesetzte Arbeit der 
Funktion 14. Nach dem Aufruf steht im 
Akkumulator der Laufwerkscode: 


MI 0,25 
CALL BDOS 
CPI 


Auch hier können sich Unterschiede 
zwischen dem Funktionsresultat und 
dem Inhalt in der Adresse 0004 hex 
ergeben. Die Laufwerksbezeichnung in 
0004 hex läßt sich so ermitteln: 


LDA 0004H 
ANI 00001111B 
CPI 


Die Funktion 28 setzt einen Schreib- 
schutz auf das ausgewählte Laufwerk, 
so daß ein Schreibversuch einen 
BDOS-Error mit nachfolgendem Warm- 
start zur Folge hat. Der Schreibschutz 
bleibt wirksam, bis ein Warmstart aus- 
gelöst oder das Diskettensystem bezie- 
hungsweise die einzelne Diskettensta- 
tion neu initialisiert wird. Der Aufruf 
besteht aus nur zwei Maschinenbefeh- 
len: 

MVI 0,28 
CALL BDOS 


Der umgekehrte Weg kann auch 
gewählt werden. Die BDOS-Funktion 
29 stellt fest, welche Diskettenlauf- 
werke schreibgeschützt sind. Im HL- 
Register steht nach dem Aufruf eine 
Binärzahl, in der alle geschützten Lauf- 
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werke auf eins gesetzt sind. Das ken- 
nen wir ja schon von der Funktion 24 
(Aktive Laufwerke feststellen): 


MI C,29 
CALL BDOS 
MOV A,L 
CPI 


Ihnen ist sicher die Möglichkeit 
bekannt, mit STAT Dateien dauerhaft vor 
Schreibzugriffen zu schützen ($R/O 
statt $R/W) oder aus dem Directory ver- 
schwinden zu lassen ($SYS statt $DIR- 
Typ). Auch ohne das STAT-Programm 
sind solche Veränderungen mit Hilfe 
einer BDOS-Funktion durchzuführen. 
Die Funktion 30 erwartet im DE- 
Register einen Zeiger auf den File- 
Control-Block, der die zu verändernde 
Datei beschreibt. Die Dateimerkmale 
werden in den Bytes 1 und 2 der File- 
Extension gespeichert. Ist dort das 
höchstwertige Bit auf 1 gesetzt, so wird 
der Schutz wirksam: 

- Bit 7 im ersten Byte der Extension 
bewirkt Schreibschutz 

- Bit 7 im zweiten Byte der Extension 
bewirkt Directory-Schutz 

Durch Rücksetzen der Bits im FCB 
können Sie die Änderungen wieder auf- 
heben. Als Beispiel wollen wir ein Pro- 
gramm schreiben, das Dateien aus dem 
Directory verschwinden läßt. Der Aufruf 
soll so aussehen: 

A) PROTECT d:filename.ext 

Wir können dabei wieder einmal auf 
den Standard-FCB an der Adresse 
005C hex zurückgreifen: 

FCB EQU O005CH 
ORG TPA 
LXI SP,STACK 

Das zweite Byte der Extension befin- 

det sich im FCB an zehnter Stelle: 
LDA FCB+10 

Durch einen ORI-Befehl mit der Zahl 
0080 hex setzt der Prozessor das Bit 7 
des Werts im Akku auf eins: 

ORI 0080H 

Mit einem »Store-Accu-Kommando« 
speichert der Computer das Byte wie- 
der im FCB ab: 

STA FCB+10 

Der Aufruf der BDOS-Funktion erfolgt 
mit: 

MVI C,30 
LXI D,FCB 
CALL BDOS 

. JMP  WARM 

Übrigens meldet die Funktion im 
Akkumulator den Wert OOFF hex, wenn 
ein Fehler auftritt. Der Einfachheit hal- 
ber lassen wir diesen Sonderfall aber 
unberücksichtigt. Lediglich die Stack- 
Definition müssen wir noch hinzufügen: 
DS 20 
EQU $ 
END 

Seien Sie aber vorsichtig bei der 
Anwendung dieser Funktion, denn 
manche Programme lassen sich auch 


STACK 


mit STAT.COM nicht mehr in einen sicht- 
baren Zustand bringen. Dies trifft vor 
allem auf nicht-eindeutige Namen zu - 
also Namensnennungen, die einen »*« 
oder ein »?« enthalten. 

Die Funktion 35 dient dazu, die 
Größe einer Datei zu ermitteln: 


MI 0,35 
LXI D,FCB 
CALL BDOS 


Das Ergebnis dieser Berechnung 
wird in den Bytes 33 und 34 des FCB 
abgelegt. Die Funktion findet vor allem 
dann Verwendung, wenn das Pro- 
gramm an das Ende einer Datei gehen 
soll, um dort zum Beispiel zusätzliche 
Datensätze anzuhängen. Der FCB zeigt 
nach dem Funktionsaufruf auf den 
ersten nicht belegten Satz der Datei. 
Durch Direktzugriff auf den davorlie- 
genden Record zwingen Sie das 
BDOS, auch den Zeiger im Byte 32, der 
bei der sequentiellen Verarbeitung 
benötigt wird, anzupassen. So können 
Sie nicht nur direkt auf die Datei zugrei- 
fen, sondern auch sequentiell am Datei- 
ende Sätze hinzufügen. 


Internes aus CP/M 


Die letzte Gruppe der BDOS-Funktio- 
nen dient dazu, interne Daten von CP/M 
dem Benutzer zugänglich zu machen: 

Die Funktion 12 meldet im HL-Re- 
gister die verwendete Betriebssystem- 
Version. Im H-Register steht, ob es sich 
um CP/M (Wert O) oder MP/M (Wert 1) 
handelt. Im L-Register findet man die 
Versionsnummer: 

Version 1.0 = 00 hex 
Version 1.4 = 00 hex 
Version 2.0 = 20 hex 
Version 2.2 = 22 hex 
Version 3.0 = 30 hex 
Version 3.1 = 31 hex 

Bei den Schneider-Computern liefert 
CP/M 2.2 auf dem CPC 464, CPC 664 
und CPC 6128 im HL-Register den 
Wert 0022 hex. CP/M Plus auf dem 
CPC 6128 hingegen 0031 hex. Wenn 
man genau ist, verwendet der 6128 
also nicht CP/M 3.0, sondern CP/M 3.1, 
auch wenn Cliff Lawson von Amsoft das 
in einer englischen Fachzeitschrift 
bestritten hat (Popular Computing 
Weekly vom 29.8.1985, Seite 6). So 
lassen sich die verschiedenen Schnei- 
der-Computer auch auf der CP/M- 
Ebene eindeutig unterscheiden. Ein 
anderer Anwendungsbereich: CP/M 
kann erst ab der Version 2.0 Direktzu- 
griff-Dateien verwalten. Startversuche 
auf älteren Versionen lassen sich so im 
Bedarfsfall abbrechen. Mit dem USER- 
Befehl wählen Sie im CCP-Prozessor 
die Benutzerbereiche O bis 15. Intern 
verkraftet CP/M aber die Bereiche O bis 
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31. Mit der Funktion 32 kann man den 
Benutzerbereich festlegen: 


MVI 0,32 
MVI E,User 
CALL BDOS 


Ihre Wahl bleibt bis zum nächsten 
Warmstart aktiv. Soll sie auch darüber 
hinaus verwendet werden, müssen Sie 
wieder die Speicherstelle 0004 hex 
heranziehen. Die User-Nummer ist in 
den vier höherwertigen Bits codiert. 

Eine zweite Aufgabe der Funktion 32 
besteht darin, die aktuelle User- 
Nummer dem Anwenderprogramm mit- 
zuteilen. Dazu wäre das E-Register mit 
der Zahl OOFF hex statt der Benutzer- 
nummer zu laden. Im Akkumulator fin- 
det sich dann das Resultat: 


MI C,32 
MVI  E,OFFH 
CALL BDOS 
CPI 


Die beiden letzten BDOS-Funktionen 
sind nur für sehr spezielle Anwendun- 
gen gedacht: 

Funktion 27 liefert im HL-Register 
einen Zeiger auf die Belegungstabelle 
der aktiven Diskette. Dieser RAM-Block 
wird vom Betriebssystem immer auf 
dem neuesten Stand gehalten: 

MI C,27 
CALL BDOS 

Funktion 31 meldet im HL-Register 
die Adresse des DPB-Blocks der Dis- 
kette. »DPB« heißt »Disk Parameter 
Block«. In diesem Speicher sind alle 
wichtigen Informationen über den Dis- 
kettenaufbau festgehalten, wie Zahl der 
Sektoren und Spuren, Länge der Sekto- 
ren und die Maximalzahl der Directory- 
Einträge. 

MVI 0,31 
CALL BDOS 


Direkt hinein ins 
BIOS 


Damit kennen Sie jetzt alle BDOS- 
Funktionen. In Bild 4 sind sie noch 
einmal aufgeführt. Bild 5 zeigt alle 
CP/M-CTRL-Funktionen. Wenn Sie sich 
ft' genug fühlen, noch mehr 
Informationen aufzunehmen, können 
Sie weiterlesen und erfahren, wie sich 
BIOS-Funktionen aufrufen lassen und 
was sie leisten. Andernfalls machen Sie 
jetzt erst einmal eine Pause. 

Bisher sind wir davon ausgegangen, 
daß ein Systemteil von CP/M immer nur 
auf den unmittelbar darunter liegenden 
Teil zugreifen kann, zum Beispiel das 
BDOS auf das BIOS, das Anwender- 
programm auf das BDOS, der CCP auf 
das BDOS und so weiter. Doch es gibt 
auch »Abkürzungen«. Sie können in 
Ihren Programmen auch direkt die 
BIOS-Funktionen aufrufen. 
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BDOS-Funktionen werden über die 
Speicherstelle 0005 hex aufgerufen. 
Anhand ihrer Funktionsnummer wer- 
den sie decodiert. BIOS-Funktionen 
hingegen werden über eine Sprung- 
tabelle aktiviert, in der für jede BIOS- 
Funktion ein drei Byte langer Sprung- 
befehl reserviert ist. Diese Sprung- 
tabelle (siehe unten) beginnt beim nicht 
ausgebauten CPC unter CP/M 2.2 an 
der Adresse ADOO hex. 

Rufen Sie aber niemals die BIOS- 
Routinen anhand dieser Adressen auf. 


ADOO hex 
ADO3 hex 
ADO6 hex 
ADO9 hex 
ADOC hex 
ADOF hex 
AD12 hex 
AD15 hex 
AD18 hex 
"AD1B hex 
ADIE hex 
AD21 hex 
AD24 hex 
AD27 hex 
AD2A hex 
AD2D hex 
AD3O0 hex 


- Funktion O: 
- Funktion 1: 
- Funktion 2: 
- Funktion 9: 
- Funktion 4: 
- Funktion 5: 
- Funktion 6: 
- Funktion 7: 
- Funktion 8: 
- Funktion 9: 
- Funktion 10: 
- Funktion 11: 
- Funktion 12: 
- Funktion 13: 
- Funktion 14: 
- Funktion 15: 
- Funktion 16: 


gender Programmcode empfehlens- 
wert: 


RETADDR EQU $ 


BOOT (Kaltstart) 

WBOOT (Warmstart) 

CONST (Tastaturstatus) 

CONIN (Tastatureingabe) 

CONOUT (Bildschirmausgabe) 

LIST (Druckerausgabe) 

PUNCH (Lochstreifen stanzen) 
READER (Lochstreifen lesen) 
HOME (Diskettenkopf auf Track O) 
SELDSK (Diskettenlaufwerk wählen) 
SETTRK (Track selektieren) 
SETSEC (Sektor selektieren) 
SETDMA (DMA-Adresse setzen) 
READ (Record lesen) 

WRITE (Record schreiben) 

LISTST (Druckerstatus) 

SECTRAN (Recordnummer übersetzen) 





Sprungtabelle beim einfachen CPC unter CPI/M 2.2 


Sie sind von Computer zu Computer 
verschieden - und falls Sie irgendwann 
einmal Ihren RAM-Speicher ausbauen, 
können Sie alle Programme, die auf 
einen festen Beginn der BIOS- 
Sprungtabelle zugreifen, wegwerfen. 

Es gibt aber einen Weg, die BIOS- 
Routinen geräteunabhängig zu nutzen. 
In der Adresse 0000 hex, die wir bisher 
schon für den Warmstart benutzt 
haben, steht ein Sprung-Befehl auf den 
BIOS-Block - genauer auf die BIOS- 
Funktion 1 (Warmstart). Die exakte 
Startadresse der Sprungtabelle liegt 
also drei Byte darunter. 

Die Mikroprozessoren der 80er- 
Reihe legen Sprungbefehle immer in 
diesem Format ab: 

1. Byte: CS3H (JMP) 
2. Byte: Lowbyte der Adresse 
3. Byte: Highbyte der Adresse 

Mit LHLD 1 holen Sie sich also die 
Startadresse der BIOS-Warmstart- 
Routine ins HL-Register. Drei DCX- 
Befehle sorgen dafür, daß Sie den 
Tabellenanfang erreichen: 

LHLD 1 
DCX H 
DCX H 
DCX H 

Um eine BIOS-Routine anhand ihrer 

Funktionsnummer aufzurufen, ist fol- 


Die Vorschriften bei der Übergabe 
von Registerwerten sind genauso 
streng gefaßt wie bei den BDOS- 
Routinen: 

- Die Übergabe von 8-Bit-Werten 
erfolgt im C-Register, die von 16-Bit- 
Daten im BC-Doppelregister. 

- Das BIOS meldet 8-Bit-Werte im 
Akkumulator, 16-Bit-Werte im HL- 
Doppelregister. 

Gehen wir die Funktionen des BIOS 

der Reihe nach durch: 

Benötigte Register: keine 

Gemeldete Register: kehrt nicht zum 

Programm zurück. 

Diese Funktion setzt den Computer 
zurück und lädt das Betriebssystem 
neu, so als hätte der Benutzer einen 
Reset ausgelöst und unter Basic den 
RSX-Befehl »ICPM« eingegeben. Nütz- 
lich ist die Funktion, um vom CCP aus 
neue Disketten einzuloggen und 
gleichzeitig den System- und Boot- 
Sektor nachzuladen: 


ORG O100H 
ILHLD 1 

DCX H 

DCX H 

DCX H 
PCHL 

END 


spiel als »COLD.COM« speichern, kön- 
nen Sie jederzeit Disketten wechseln 
und gleichzeitig die Boot-Sektoren neu 
laden. So ist es etwa möglich, zwischen 
der Standard-CP/M-Tastaturbelegung 
und der von Wordstar hin- und herzu- 
wechseln, ohne dauernd CTRL-SHIFT- 
ESC zu drücken. 
WBOOT - Warmstart: 
Benötigte Register: keine 
Gemeldete Register: kehrt nicht zum 
Programm zurück 

Diese Funktion lädt das BDOS und 
den CCP neu von der Diskette. JMP O 
oder die BDOS-Funktion O sind aber 
einfacher zu handhaben. 
CONST - Tastaturstatus: 
Benötigte Register: keine 
Gemeldetes Register: Akkumulator 

Die Funktion 2 fragt die Tastatur ab. 
Wenn keine Taste gedrückt wurde, ist 
der Akkuinhalt Null, andernfalls OOFF 
hex. 
CONIN - Tastatureingabe: 
Benötigte Register: keine 
Gemeldetes Register: Akkumulator 

Die BIOS-Funktion 3 wartet auf einen 
Tastendruck undlliefert den ASCII-Code 
der Taste im Akkumulator. 
CONOUT - Bildschirmausgabe: 
Benötigtes Register: C-Register 
Gemeldete Register: keine 

Wenn sich im C-Register der Wert 
eines ASCIl-Zeichens befindet, wird 
das Zeichen auf dem Bildschirm ausge- 
geben. 
LIST - Druckerausgabe: 
Benötigtes Register: C-Register 
Gemeldete Register: keine 

Das Zeichen im C-Register wird an 
den Druckerausgang LST: geschickt. 
PUNCH - Lochstreifen stanzen: 
Benötigtes Register: C-Register 
Gemeldete Register: keine 

Das Zeichen im C-Register wird vom 
BIOS an den Lochstreifen-Stanzer 
abgeschickt. Die BDOS-Funktion 4 ist 
aber aus Gründen der Kompatibilität mit 
anderen CP/M-Versionen vorzuziehen. 
READER - Lochstreifen lesen: 
Benötigte Register: keine 
Gemeldetes Register: Akkumulator 

Die Funktion wartet auf eine Eingabe 
vom Lochstreifenleser und übermittelt 
das Zeichen dem aufrufenden Pro- 
gramm im Akkumulator. Auch hier ist die 
Verwendung der entsprechenden 
BDOS-Funktion anzuraten. 
HOME - Diskettenkopf auf Track 0: 
Benötigte Register: keine 
Gemeldete Register: keine 

Der Schreib- und Lesekopf der akti- 
ven Diskettenstation wird auf den Track 
(Spur) O bewegt. Die Funktion ist für 
Anwender kaum von Interesse, da das 
BDOSbeim Diskettenzugriff die Positio- 
nierung des Schreib-/Lesekopfes auto- 
matisch durchführt. 
SELDSK -Diskettenlaufwerk wählen: 
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Benötigtes Register. C-Register 
Gemeldetes Register: HL-Register 

Das Diskettenlaufwerk, dessen Num- 
mer sich im C-Register befindet, wird 
ausgewählt. Die Werte sind O für das 
Laufwerk A, 1 für das Laufwerk B, bis 15 
für das Laufwerk P. Im HL-Register steht 
nach dem Aufruf dieser BIOS-Funktion 
ein Zeiger auf den DPH (Disk Parameter 
Header). Dies ist eine Tabelle, die das 
Betriebssystem zur internen Verwal- 
tung benötigt. Wenn das angsprochene 
Laufwerk nicht verfügbar ist, enthält HL 
den Wert 0. 
SETTRK - Track selektieren: 
Benötigtes Register. BC-Register 
Gemeldete Register: keine 

Die Spur, deren Nummer im BC- 
Register steht, wird angewählt. Beim 
Schneider-CPC sind Werte zwischen O 
und 39 gestattet. 
SETSEC - Sektor selektieren: 
Benötigtes Register. BC-Register 
Gemeldete Register: keine 

Der Sektor, dessen Name das BC- 
Register enthält, wird selektiert. Damit 
führt das BIOS aber den eigentlichen 
Diskettenzugriff noch nicht durch. 
SETDMA - DMA-Adresse setzen: 
Benötigtes Register. BC-Register 
Gemeldete Register: keine 

Die Adresse des 128-Byte-Speicher- 
bereichs, der bei Diskettenoperationen 
als Zwischenspeicher dient, wird auf 
den Wert im BC-Register festgelegt. 
Verwenden Sie aber besser die BDOS- 
Funktion 26. 


-D0080,00FF 

0080 09 20 46 49 4C 45 2E 43 
0090 5C 00 00.00 00 00 00 00 
00A0 E5 52 45 41 44 43 4D 44 
00BO 5E 00 00 00 00 00 00 00 0 00 00 00 00 00 
00C0 E5 52 45 41 44 43 4D 44 48 45 58 00 00 00 
00D0 5F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00EO E5 52 45 41 44 43 4D 44 20 43 4F 4D 00 00 00 
00FO 60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 


4F 4D 00 4D 00 00 00 
00 00 00 00 00 00 00 
20 50 52 4E 00 00 00 
00 0 
20 
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02 . FILE.COM.M.... 


Bild 1. Die Zeropage im Bereich 0080 bis 00FF hex 





-D005C,007F 
0050 00 46 49 4C 


0060 45 20 20 20 20 43 Af 4d 00 00 00 26 00 20 20 
0070 20 20 20.20 20 20 20 20 00 00 00 00 00 00 00 


Bild 2. Die Zeropage im Bereich 005C bis 007F hex 


READ - Record lesen: 
Benötigte Register: keine 
Gemeldetes Register: Akkumulator 
Der Sektor, der durch die BIOS- 
Funktionen SELDSK, SETTRK und 
SETSEC spezifiziert wurde, wird in den 
Speicher gelesen. Die Startadresse 
muß dazu durch die BDOS-Funktion 26 
oder die BIOS-Funktion 12 gesetzt wer- 
den. Eventuelle Fehler zeigt der Akku- 
mulator an. Ist der Akku gleich Null, trat 
kein Fehler auf, bei A=1 ist jedoch 
etwas schiefgegangen. 
WRITE - Record schreiben: 
Benötigte Register: keine 


KRRRKRKRKRRRKRKRKRRRKRÄRRKRKRKRKRKKRKRKRKRKRÄRKRK 


* 


* 


* ERASE.COM -- Löschen mit Sicherheitsabfrage * 


* 


* 


KRRKKRRRRERERERRRKRKRKRKRKRRRRKRKRKRRRRKRKRKRRR 


EQU 
EQU 
EQU 
EQU 


0005H 
0100H 
0000H 
005CH 


ORG TPA 


SP,STACK 


MWI (C,2 
CALL BDOS 


DATEINAME LXI H,FCB+1 
MI A,ıl 
SCHLEIFE MOV E,M 
PUSH PSW 
PUSH H 


SICHER$ 


STACK 





Gemeldetes Register: Akkumulator 
Die BIOS-Funktion 14 schreibt den 
Sektor, der durch SELDSK, SETTRK 
und SETSEC angegeben wurde, auf die 
Diskette. Die DMA-Adresse muß vorher 
wie bei der BIOS-Funktion 13 festge- 
legt werden. Fehlerbedingungen wer- 
den im Akku angezeigt - ebenfalls ent- 
sprechend der Funktion 13. 
LISTST - Druckerstatus: 
Benötigte Register. keine 
Gemeldetes Register: Akkumulator 
Diese Funktion fragt ab, ob der 
Drucker empfangsbereit ist und ein Zei- 
chen übernehmen kann. Abhängig 


PSW 

H 

A 
SCHLEIFE 


D,SICHER$ 
C,9 

BDOS 

C,1 

BDOS 


at 


WARM 


0,19 
D,FCB 
BDOS 
WARM 


'_ Sind Sie sicher? $' 


Bild 3. Ein nützliches CPIM-Programm: ERASE.COM 
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davon ist der Akkumulator gleich Null 
(Drucker nicht empfangsbereit) oder 
OOFF hex (Drucker empfangsbereit). 
SECTRAN - Recordnummer überset- 
zen: 
Benötigtes Register: BC-Register 
Gemeldetes Register: HL-Register 

Die Routine übersetzt die vom BDOS 
verwendete logische Sektornummer in 
physikalische, Hardware-abhängige. Ins 
BC-Register ist die Sektornummer zu 
laden, zurückgegeben wird die physika- 
lische Sektornummer im HL-Register. 

Damit endet unser Kurs, der Sie in die 
Programmierung unter CP/M 2.2 auf 
dem Schneider einführen sollte. Falls 
Sie mehr wissen wollen: Es gibt eine 
ganze Menge Spezialliteratur. 


(Martin Kotulla/hg) 


Funktion Beschreibung 
(RegisterC) 


0 System-Neustart (system reset) 
Eingabe: - 
Ausgabe: - 


Rücksprung ins CCP und CP/M-Warmstart. 
Konsolen-Eingabe (console input) 


Eingabe: - 
Ausgabe: A (Zeicheneingabe) 


Lesen des nächsten Zeichens von der Tastatur und 
Prüfen auf CP/M-Kontroll-Zeichen. 


Konsolen-Ausgabe 


Eingabe: E (Zeichen auf den Bildschirm) 


Ausgabe: - 


Schreiben eines Zeichens auf den Bildschirm. 
Lochstreifen lesen (reader input) 


Eingabe: - 
Ausgabe: A (Zeichen lesen) 


Bei der Kopplung zweier Rechner kann mit dieser 
Funktion ein Zeichen gelesen werden. 


Lochstreifen stanzen (punch output) 


Eingabe: E (Zeichen stanzen) 
Ausgabe: - 


Bei der Kopplung zweier Rechner kann mit dieser 
Funktion ein Zeichen ausgegeben werden. 


Drucker-Ausgabe (list-output) 
Eingabe: E (Zeichen drucken) 
Ausgabe: - 


Cursor um ein Zeichen nach links setzen (nur CP/M plus)’ 
Cursor an den Anfang der Zeile setzen (oder an das Ende, wenn er am Anfang 
steht) (nur CP/M plus) 

Warmstart ausführen 

Cursor in die nächste Zeile setzen 

Cursor um ein Zeichen nach rechts setzen (nur CP/M plus) 
Zeichen unter dem Cursor löschen (nur CP/M plus) 

Zeichen links vom Cursor löschen 

Cursor zur nächsten TAB-Position setzen 

Befehl ausführen (ENTER) 

Zeile zwischen Cursor und Zeilenende löschen (nur CP/M plus) 
Befehl ausführen (ENTER) 

Drucker ein-/ausschalten 

Scrollen nach CTRL-S wieder einschalten 


'Befehlszeile wiederholen 


Ausgabe auf dem Bildschirm unterbrechen 

Zeile löschen 

Zeile wieder anzeigen (nur CP/M plus) 

Zeile löschen 

String-Ende bei PIP und ED Bild 5. Alle CTRL-Codes auf einen Blick 





Funktion Beschreibung 
(RegisterC) 


10 Eingabe des Konsolen-Puffers (read console buffer) 
Eingabe: DE (Pufferstartadresse) 
Ausgabe: Zeichen im Puffer 
Eingabe der über die Tastatur in einen Puffer eingege- 
benen Zeichen (Textzeile). Die Eingabe einer Zeile wird 
entweder bei Erreichen der Maximalzeichenzahl abge- 
brochen, oder wenn das Zeichen »CR« oder »LF« einge- 
geben wurde. 


Konsolen-Status holen (get console status) 

Eingabe: - 

Ausgabe: A (Konsolen-Status) 

Prüfen des Tastatur-Status auf Eingabe eines Zeichens. 
A enthält 01 hex (nicht FF), wenn ein Zeichen bereit- 
steht, oder 00 hex, wenn nicht. 


CP/M-Version ermitteln (return version number) 
Eingabe: - 

Ausgabe: HL (Versionsnummer) 

Rücksetzen des Diskettensystems (reset disk system) 
Eingabe: - 

Ausgabe: - 

Zurücksetzen des gesamten Diskettensystems in den 
Anfangszustand. 


Bezugslaufwerk selektieren (select disk) 

Eingabe: E (ausgewählte Laufwerksnummer) 
Ausgabe: - 

Selektieren des Bezugsdiskettenlaufwerkes (A=0O und 
B=1) 
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Schreiben eines Zeichens auf dem Drucker. 


Direkte Konsolen Ein-/Ausgabe (direct console I/O) 
Eingabe: E (Zeichen auf den Bildschirm/Ausgabe) 
E FF hex (Eingabe) 
Ausgabe: A Status (Ausgabe) 
A Zeichen (Eingabe) 
Ausführen einer Konsolen-Eingabe (von der Tastatur) 


. und Konsolenausgabe (auf den Bildschirm) und Übertra- 


gen ohne Prüfen oder Korrigieren durch BDOS. 
/O-Byte holen (get (l/O byte) 

Eingabe: - 

Ausgabe: A (l/O-Byte) 

/O-Byte setzen (set I/O byte) 

Eingabe: E (neues I/O-Byte) 

Ausgabe: - 

Ausgabe eines Strings (print string) 

Eingabe: DE (String-Adresse) 

Ausgabe: - 

Schreiben einer Zeichenkette (String) auf dem Bild- 
schirm (Konsole). Das Ende des Strings wird durch das 
Zeichen »$« angezeigt. 


18 


Eröffnen einer Datei (open file) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Eröffnen einer Disketten-Arbeitsdatei. Gibt 255 (FF hex) 
in A zurück, wenn die Datei nicht gefunden werden 
konnte. 


Schließen einer Datei (close file) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Schließen einer Diskettendatei. Gibt 255 (FF hex) in A 
zurück, wenn eine Datei nicht gefunden werden konnte. 


Suche nach erstem Namen (search for first) 
Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Suchen nach der ersten Datei, deren Name auf die 
Angabe im FCB paßt. Gibt 255 (FF hex) in A zurück, 
wenn kein Eintrag gefunden wurde. 


Suchen nach nächstem Eintrag (search for next) 
Eingabe: - 


Bild 4. Alle BDOS-Funktionen auf einen Blick. 




















one 
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Funktion Beschreibung Funktion Beschreibung 
(RegisterC) 


(RegisterC) 


Br NDDYWE 
Q D TEN 


Ausgabe: A (Directory-Code) 

Durch die Funktion 17 wird das erste Auftreten gesucht, 
hier wird nun der nächste Eintrag geliefert. Gibt eben- 
falls 255 (FF hex) in A zurück, wenn kein Eintrag gefun- 
den wurde. 


Löschen einer Datei (delete file) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Gibt 255 (FF hex) in A zurück, wenn keine Datei gefun- 
den werden konnte. 


Sequentielles Lesen (read sequential) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Lesen des nächsten 128-Byte-Record (Aufzeichnung) in 
den Arbeitsspeicher, beginnend von der aktuellen DMA- 
Adresse. Gibt bei erfolgreicher Operation O0 hex in A 
zurück; jedoch ungleich Null, wenn das Dateiende 
gefunden wurde. 


Sequentielles Schreiben (write sequential) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Schreiben des nächsten 128-Byte-Record (Aufzeich- 
nung) in die durch FCB spezifizierte Datei; Beginn an 
der aktuellen DMA-Adresse. Gibt 00 hex in A bei erfolg- 
reicher Operation zurück, jedoch ungleich Null bei einer 
vollen Diskette. 

Datei erzeugen (make file) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Erzeugen einer neuen, aber leeren Diskettendatei mit 
dem im FCB angegebenen Namen. Meldet 255 (FF 
hex) in A, wenn die Operation nicht möglich war, zum 
Beispiel bei voller Directory. 


Datei umbenennen (rename file) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Umbenennen des Namens einer Diskettendatei. Der alte 
Name befindet sich in den ersten 16 Byte des FCB, der 
neue Name in den nächsten 16 Byte. Meldet 255 (FF 
hex) in A, wenn die Umbenennung nicht möglich war. _ 


Verfügbare Laufwerke ermitteln (return login vector). 
Eingabe: - 

Ausgabe: HL (Login-Vektor) 

Meldet den Login-Vektor (Laufwerksvektor). Bit O von 
Register L entspricht dem Laufwerk A, Bit 1 dem Lauf- 
werk B und so weiter. Für jedes aktive Laufwerk steht 
eine 1 und für jedes inaktive eine Null (0). 


Aktuelles Laufwerk melden (return current disk) 
Eingabe: - 

Ausgabe: A (Nummer des aktuellen Laufwerks) 
Meldet die Nummer des aktuellen (Bezugs-) Disketten- 
Laufwerks (0 = Aund 1 = BB). 

DMA-Adresse festlegen (get DMA address) 
Eingabe: DE (DMA-Adresse) 

Ausgabe: - 

Vermerkt die Pufferadresse (DMA - direct memory 
address) des ab dieser Adresse beginnenden 
128-Byte-Disketten-Sektor-Puffers. 


Belegungsverzeichnis holen (get addr-alloc) 
Eingabe: - 

Ausgabe: HL (ALLOC-Adresse) 

Meldet die Adresse einer Tabelle, die die belegten 
Blöcke der Diskette im aktuellen (Bezugs-) Laufwerk 
darstellt. 

Diskette auf Schreibschutz setzen (write protect disk) 
Eingabe: - 

Ausgabe: - 

Setzt den Schreibschutz für die Bezugsdiskette. 
Schreibgeschützte Laufwerke (get read only vector) 
Eingabe: - 


Ausgabe: HL (Schreibschutzvektor) 

Meldet den Schreibschutzvektor, der anzeigt, welches 
Laufwerk gerade schreibgeschützt ist. Bit O des Regi- 
sters L ist Laufwerk A, Bit 1 Laufwerk B und so weiter. 
Eine 1 bedeutet, daß das Laufwerk schreibgeschützt 
ist. 

Datei-Attribute setzen (set file attribute) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Directory-Code) 

Setzt die Datei-Attribute auf Schreibschutz und System- 
Datei. 

Adresse der Laufwerksparameter holen (get addr-disk 
parms) 

Eingabe: - 

Ausgabe: HL (DPB-Adresse) 

Meldet die Ausgabe des Disketten-Parameter-Blocks 
DPB. 


USER-Code setzen/holen (set/get user code) 
Eingabe: E (User-Code setzen) 
E FF hex (User-Code holen) 
Ausgabe: A (User-Code holen) 
Holt oder setzt den aktivierten User-Code (Benutzerbe- 
reich). 
Lesen mit wahlfreiem Zugriff (read random) 
Eingabe: DE (FCB-Adresse) 
Ausgabe: A (Fehlercode) 
Lesen einer Disketten-Datei-Aufzeichnung (record). 
In A steht ein Fehlercode: 
O=kein Fehler 
1 =Leseversuch unbeschriebener Daten 
3=kein Abschluß im aktivierten Bereich möglich 
4 =\Versuch, einen unbeschriebenen Bereich 
anzuwählen 
6 = Versuch, über das Diskettenende zu positionieren. 


Schreiben mit wahlfreiem Zugriff (write random) 
Eingabe: DE (FCB-Adresse) 

Ausgabe: A (Fehlercode) 

Schreiben einer Disketten-Datei-Aufzeichnung (record). 
Der Fehlercode ist identisch zu Funktion 33, mit folgen- 
der Erweiterung: 

5 = außerhalb des Directory-Bereiches. 


Berechnen der Datei-Größen (compute file size) 
Eingabe: DE (FCB-Adresse) 

Ausgabe: Dateigröße 

Legt die Dateigröße, als Anzahl der Records, in den letz- 
ten drei Byte (33, 34, 35) des FCB, im »random record 
file« ab. 

Random-Record setzen (set random record) 

Eingabe: DE (FCB-Adresse) 

Ausgabe: - 

Setzt die Random-Record-Nummer einer sequentiellen 
Aufzeichnung (record). Die Random-Record-Nummer ist 
in den letzten drei Byte (33, 34, 35) des FCB, im »ran- 
dom record field«, abgelegt. 

Laufwerk(e) zurücksetzen (reset drive) 

Eingabe: DE (Laufwerksvektor) 

Ausgabe: - 

Setzt die im Laufwerksvektor angegebenen Laufwerke 
zurück. Bit O von Register E steht für Laufwerk A, Bit 1 
für Laufwerk B und so weiter. Bei »1« wird das entspre- 
chende Laufwerk zurückgesetzt. 

nicht verwendet 

nicht verwendet 


Ein mit Null gefülltes Random-Record schreiben (write 
random with zero fill) 


Eingabe: DE (FCB-Adresse) 


Ausgabe: A (Fehlercode) 

Identisch mit Funktion 34 (Schreiben mit wahlfreiem 
Zugriff), außer daß die neuen Blocks mit Null (0) gefüllt 
werden. 
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Z80 kontra 8080 


Keım PAS 
CrMeR 


Ursprünglich war CP/M für den Intel-Prozessor 8080 
gedacht. Doch auch der Z80 
kommt mit dem 8080-Standard zurecht. Da gibt es 


Gemeinsamkeiten - und viele Unterschiede. 


ollte man den Intel-8080 
mit dem Z80-Prozessor in 
einen Wettbewerb schik- 


ken, wäre das mehr als unfair. Denn der 
Z80-Chip erschien erst Jahre nach der 
8080-CPU. In ihn konnten deshalb alle 
positiven Eigenschaften des »Erstge- 
borenen« integriert und die Schwächen 
soweit wie möglich ausgebügelt wer- 
den. Dennoch ist es für Z80-Program- 
mierer, die auf CP/M umsteigen wollen, 
wichtig, auch die Eigenschaften des 
Konkurrenten zu kennen. 


Der augenfälligste Unterschied liegt 
in den mnemonischen (Mnemonik (gr.): 
Kunst, das Einprägen von Gedächtnis- 
stoff durch besondere Lernhilfen zu 
erleichtern) Befehlen beider Prozesso- 
ren. Allerdings sind beide objektcode- 
kompatibel. Das heißt, daß bei beiden 
Chips beispielsweise der Befehl, der 
den Akkumulator mit einer Zahllädt, den 
Code 3E hex besitzt. Dabei heißt der 
8080-Befehl »MVI A,n«, der des Kon- 
kurrenten aber »LD A,n«. Wer diese Tat- 
sache verstehen will, muß sich ein paar 
Jahre in die Vergangenheit zurückver- 
setzen; genauer in die Jahre vor 1974, 
in die »Computer-Steinzeit« sozusagen. 
Damals arbeitete ein Mr. Faggin bei 
Intel. Eine seiner Großtaten war die Ent- 
wicklung des 8080-Mikroprozessors. 
1974 trennte sich Faggin von der Firma 
und machte sich selbständig. Er nannte 
seine neue Firma »Zilog«. Sein wichtig- 
stes Projekt wurde die Entwicklung 
eines 8080-kompatiblen Mikrochips. 
Nach einiger Zeit brachte Zilog tatsäch- 
lich einen Prozessor heraus, den Fag- 
gin auf den Namen »Z80« taufte. 

Die Begründung dafür, daß beide 
Prozessoren trotz Kompatibilität unter- 
schiedliche Befehlsnamen verwenden, 
findet man in den amerikanischen Urhe- 
berrechtsgesetzen. Hatte Faggin so 
viel Dreistigkeit, die gleichen Maschi- 
nencodes wie die des Intel-8080 zu 
verwenden, so verließ ihn der Mut, als 
es daran ging, diesen Befehlen Namen 
zu geben. Sicher erkannte er aber 
auch, daß die Befehlsnamen des Intel- 
Produkts viel zu umständlich gewählt 


waren und wollte nun einen möglichst 
linearen Befehlssatz verwenden. 

Das wohl am häufigsten herangezo- 
gene, da deutlichste, Vergleichsobjekt 
ist der Ladebefehl. Dieser heißt beim 
Z80 für alle möglichen Ladevorgänge 
einheitlich »LD« für »Load«. Der 8080- 
Prozessor benutzt hingegen eine Viel- 
zahl von unterschiedlichen Befehlsna- 
men, zum Beispiel MOV, MVI, LXI, 
LHLD, SHLD, STA, STAX, LDA, LDAX 
und so weiter. Für jeden Einzelfall gibt 
es beim 8080-Prozessor einen spe- 
ziellen Namen. Tabelle 1 zeigt die 
Unterschiede bei diesem Befehl. Auch 
sind die 8080-Konstrukteure nicht 
allzu konsequent an die Bezeichnung 
der Doppelregister herangegangen. 
Genauso wie beim Z80 heißen sie zwar 
BC, DE und HL, beim Mnemo-Code 
werden sie allerdings manchmal zu B, D 
und H abgekürzt. Es gibt also Befehle 
wie LXI, DCX und INX, die den »ampu- 
tierten« Registernamen verwenden, 
(beispielsweise INX H) und andere, die 
den kompletten, aus zwei Buchstaben 
bestehenden, Namen gebrauchen 
(LHLD, SHLD, PCHL und XTHL). 


Intel-8080 Zilog Z80 


LD A, (adr) 























































LD A, (BC) 
LD A, (DE) 
LHLD adr LD HL, (adr) 
LXI B,word LD BC,word 
LXI D,word LD DE,word 
LXI H,word LD HL,word 
MOV regz,regq LD regz,regq 
MOV A,M LD A, (HL) 
MOV M.A LD (HL), A 
MVI regz,byte LD regz,byte 
MVI  M,byte LD (HL),byte 
adr LD (adr) ‚HL 
LD SP,HL 
STA adr LD (adr) ‚A 
STAX B LD (BC) ‚A 
D LD (DE) ‚A 





= Adresse 

= 16-Bit-Zahl 
byte = 8-Bit-Zahl 
regz = Zielregister 





= Quellregister 





Tabelle 1. 
Zwei »Philosophien« bei Mnemonics - 
die Ladebefehle im Vergleich 





Behandelt. man die 8080-Doppelre- 
gister als Adreßzeiger, so findet man 
recht willkürliche Unterschiede bei den 
Bezeichnungen. Die Z80-Befehle LD 
A‚,(BC), LD A,(DE) und LD A,(HL) mutie- 
ren zu LDAX B, LDAX D und MOV AM. 
Diese Inkonsequenz rührt von der 
Geschichte der Intel-Prozessoren her. 
Denn vor dem 8080 hatte Faggin schon 
den Intel-8008 entwickelt. Dieser ist 
weit weniger komfortabel. Soll bei- 
spielsweise der Akkumulator mit dem 
Inhalt einer Speicherstelle geladen wer- 
den, so muß man das HL-Register mit 
einem Zeiger auf die gewünschte 
Adresse laden. Erst ein zweiter Befehl 
holt dann den Inhalt der Speicherstelle 
in den Akku. Da das HL-Register regel- 
mäßig zur Kommunikation mit dem 
Speicher benutzt wird, spendierte man 
ihm einen zusätzlichen Namen. Das M- 
Register (»M« steht für »Memory«) 
wurde als die Adresse definiert, auf die 
das HL-Register zeigt. Da der 8080 die 
ganze Firmengeschichte von Intel mit 
sich herumschleppen muß, entstanden 
die teilweise völlig abwegigen Bezeich- 
nungen. 


Ein schöner Name 
® 
macht’s noch nicht 


Natürlich war auch Faggin klar, daß er 
den Markt nicht allein mit »schöneren« 
Bezeichnungen für dieselben Befehle 
für sich gewinnen konnte. So überlegte 
er, was ihm bei der Arbeit mit der 
8080-CPU besonders gefehlt hatte 
und verbesserte seinen Z80 entspre- 
chend. 

Zuerst einmal stattete er den neuen 
Chip mit einem zusätzlichen Register 
aus - dem Indexregister IX. Dieses eig- 
net sich besonders gut zur Verarbei- 
tung von Tabellen. Man lädt IX mit einem 
Zeiger auf den Tabellenanfang und 
greift dann über ein »Displacement« 
(Verschiebewert) auf die einzelnen 
Bytes zu: 

LD IX,Table 

LD A,(IX+2) 2Byte ab 

Tabellenanfang 

ADD A,(IX+55) 55 Bytes vom 
Tabellenanfang 

Da ihm diese Idee so gut gefiel, be- 
gnügte er sich nicht mit IX, sondern 
stellte dem neuen Register einen Zwil- 
lingsbruder nämlich das Register IY, zur 
Seite. So können Z80-Programmierer 
sehr einfach mit zwei Tabellen gleich- 
zeitig arbeiten. 
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Intel 8080: 


















Akku Flag 

B-Register C-Register 
D-Register E-Register 
H-Register L-Register 





SP-Register 
PC-Register 


Zilog Z80: 


SP-Register 
PC-Register 


Indexregister IX 

































Indexregister IY 








R-Register I-Register 





Aber auch das war ihm noch nicht 
genug, und so schuf er einen zweiten 
Registersatz: Zu AF, BC, DE und HL 
gesellten sich AF’, BC’, DE’ und HL. Mit- 
tels zweier einfacher Befehle (EX AF, 
AF’ und EXX) können die Programmie- 
rer zwischen den beiden Registersät- 
zen wählen. Leider ist diese leistungsfä- 
hige Erweiterung beim Schneider-CPC 
nur sehr beschränkt nutzbar. Die Zweit- 
register werden nämlich von den 
Interrupt-Routinen, die die Maschinen- 
programme regelmäßig unterbrechen, 
verwendet. Sie ohne Vorkehrungen zu 
verändern, hat deshalb meist katastro- 
phale Folgen - in aller Regel den 
Absturz des Systems. Wer nun aber gar 
nicht auf die zusätzlichen Register ver- 
zichten will, findet im Anhang zum 
Firmware-Handbuch Hilfe (wird von 
Schneider vertrieben und ist jedem 
Maschinenprogrammierer dringendst 
zu empfehlen). 

Der einfachste Weg: unterdrücken 
von Interrupts mit DI - Umschalten auf 
Zweitregister - sichern der Register auf 
dem Stack - Abarbeitung des Pro- 
gramms - Wiederherstellung der Regi- 
ster - Umschalten auf den normalen 
Registersatz - Zulassen von Interrupts 
mit El und Rücksprung aus dem Pro- 
gramm. Wen dieser Telegrammstil über- 
fordert, der sollte vorerst auf die Arbeit 
mit dem Zweitregister verzichten. Denn 
ganz so einfach ist das ganze nicht, da 
die Interrupt-Routinen äußerst wichtige 
Funktionen wie automatische Tastatur- 
abfrage, Abschalten des Tongenera- 
tors, Steuerung des Floppymotors und 
so weiter, übernehmen. Es ist nämlich 


Tabelle 2. 

Die Register des 8080 und 
Z80 im Vergleich. 

Deutlich erkennbar ist die 
Vielfalt der Z80-Register, 
die komfortableres 
Programmieren erlauben 






Zweiter Registersatz 






Hauptregistersatz 


nicht sehr schön, den Motor des Lauf- 
werks unter Umständen mehrere Minu- 
ten laufen zu lassen, ohne daß der Com- 
puter wirklich auf die Diskettenstation 
zugreift. 

Wohl vor allem für Entwickler von 
Systemsoftware ist der IM-Befehl von 
Interesse, der verschiedene Methoden 
zur Bearbeitung von Interrupts gestat- 
tet. Hierzu gehören auch wieder zwei 
neue Register: das Interrupt- und das 
Refresh-Register. Das I-Register liefert 
das Highbyte der Adresse der Interrupt- 
Routine im Interrupt-Modus 2, während 
das R-Register für den automatischen 
Refresh der RAM-Bausteine sorgt. 
Einen Vergleich des Registeraufbaus 
8080 - Z80 zeigt die Tabelle 2. Zur 
Rückkehr aus einer Interrupt-Routine 
dienen RETI (Return from Interrupt) und 
RETN (Return from NMI-Interrupt). 


Neue Arithmetik- 
befehle für den Z80 


Die übrigen Erweiterungen des Z80 
betreffen den Befehlssatz und erheben 
ihn damit zu einem der leistungsfähig- 
sten 8-Bit-Prozessoren überhaupt. 
Neben der vorzeichenlosen Addition 
von 16-Bit-Registern (ADD HL,BC) gibt 
es auch eine vorzeichenbehaftete Ver- 
sion (ADC HL,BC). Ebenso ist die vor- 
zeichenbehaftete Subtraktion von Dop- 
pelregistern erlaubt: SBC HL,BC; SBC 
HL,DE; SBC HL,HL und SBC HL,SP. 
Ganz allgemein ist die Arbeit mit den 
Doppelregistern bedeutend einfacher. 


Nicht nur der 16-Bit-Akku HL kann mit 
dem Speicher kommunizieren, auch die 
Registerpaare BC, DE und SP sind jetzt 
dazu fähig. LD BC, (nnnn); LD (nnnn), 
BC; LD DE, (nnnn); LD (nnnn), DE; LD 
SP, (nnnn) und LD (nnnn), SP nehmen 
damit dem Programmierer sehr viel 
Routinearbeit ab. 

Im Telegrammstil die restlichen Erwei- 
terungen: Befehle zum gezielten 
Testen, Löschen und Setzen von Bits in 
allen Registern (BIT, RES und SET) und 
relative Sprünge, sowohl unbedingt als 
auch bedingt an das Flag-Register ge- 
knüpft. Diese bedingten Relativ- 
sprünge dürfen sich allerdings nur auf 
das Carry-Flag und das Zero-Flag 
beziehen. Außerdem erleichtert DJNZ 
in Verbindung mit dem B-Register die 
Konstruktion von Programmschleifen. 


Leistungsstark durch 
Blockbefehle 


Zusätzlich integrierte Faggin eine 
Vielzahl von Blockbefehlen (Block- 
such-, Blockkopier- und Blockein- und 
-ausgabebefehle): CPD, CPDR, CPI 
(nicht zu verwechseln mit dem 
8080-Vergleichsbefehl), CPIR, LDD, 
LDDR, LDI, LDIR, IND, INDR, INI, INIR, 
OUTD, OTDR, OUTI oder OTIR. Diese 
hardwaremäßig implementierten Be- 
fehle sind natürlich jeder Softwarelö- 
sung an Geschwindigkeit haushoch 
überlegen. 

Bezüglich der Ports bleibt noch zu 
sagen, daß die IN- und OUT-Komman- 
dos jetzt mit allen Registern arbeiten. 
Leider schränkt die Hardware der 
Schneider-Computer die Verwendung 
dieser Portbefehle stark ein. Da zur 
Decodierung der Portnummer nicht 8 
Bit, sondern 16 Bit verwendet werden, 
muß neben dem C-Register auch dasB- 
Register zur Adreßbildung herhalten 
und kann deswegen nicht mehr als 
Schleifenzähler der Blockein- und -aus- 
gabebefehle dienen. Zum Glück kön- 
nen aber fast alle Hardware-Funktionen 
über Betriebssystem-Routinen ange- 
sprochen werden, so daß die direkte 
Programmierung der Ports der Ausnah- 
mefall bleibt. 

Sehr stark erweitert wurde die Lei- 
stungsfähigkeit der Rotierkommandos. 
Der 8080 erlaubte Rotationen nur mit 
dem Akku. Auch der Z80 kennt diese 
Befehle, zusätzlich kann er aber auch 
die anderen Register rotieren. Zudem 
gesellen sich zu den Rotationsbefehlen 
auch Schiebebefehle hinzu: SLA, SRA 
und SRL. Bei diesen werden die her- 
ausfallenden Bits nicht wieder auf der 
Gegenseite hereingebracht, sondern 
gehen unwiederbringlich verloren. Die 
Division und Multiplikation mit Zweier- 
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Potenzen wird dadurch wesentlich 
erleichtert. Man muß nicht mehr darauf 
achten, welche Bits am andern Ende 
des Registers wieder auftauchen. 

Die BCD-Arithmetik wurde auch korri- 
giert. Der DAA-Befehl liefert bei Sub- 
traktionen auf dem 8080 ein falsches 
Ergebnis. Beim Z80 wurde dieser Feh- 
ler glücklicherweise behoben. Zusätz- 
lich gibt es noch RLD und RRD zur 
Arbeit mit den BCD-Zahlen (binäre 
codierte Dezimalzahlen). 


Sie sehen also, die Z830-Kommandos 
sind so leistungsfähig, daß mit ihnen die 
Arbeit richtig Spaß macht. Verständlich, 
daß Programmierer nicht besonders 
»scharf« darauf sind, Programme 
8080-kompatibel zu entwickeln: Die 
überwiegende Zahl der CP/M-Compu- 
ter hat aber als Herz einen Z80. Und 
wenn Sie Ihre Software ausschließlich 
auf dem Schneider-CPC einsetzen wol- 
len, können Sie natürlich alle Z80-Be- 
fehle benutzen. Leider sind die meisten 


CP/M-Assembler ausschließlich auf 
den 8080-Befehlssatz ausgerichtet 
und verarbeiten somit die Z80- 
Mnemonics überhaupt nicht. 

Und richtig CP/M-kompatibel bleiben 
Ihre Programme nur, wenn Sie sich auf 
den 8080-Befehlssatz beschränken. In 
Tabelle 3 finden Sie die Befehle, die 
sowohl der Z80 als auch der 8080 
besitzt. Tabelle 4 zeigt die Erweiterun- 
gen des Z80. 

(Martin Kotulla/hg) 


Tablle 3. Zwei Namen für die gleiche Arbeit - der gemeinsame Befehlssatz der CPIM-Prozessoren 


Code 8080 280 Erklärung Code 8080 280 
CE ACI by ADC A,by Addiere Byte mit Carry zum Akku 0B DCX B DEC 
8F ADC A ADC AA Addiere Akku mit Carry zum Akku 1B DCX D DEC 
88 ADC B ADC AB Addiere B-Register mit Carry zum Akku 2B DCX H DEC 
89 ADC C ADC AC Addiere C-Register mit Carry zum Akku 3B DCX SP DEC 
8A ADC D ADC AD Addiere D-Register mit Carry zum Akku F3 DI DI 
88 ADCE ADC AE Addiere E-Register mit Carry zum Akku FB. El EI 
80 ADC H ADC AH Addiere H-Register mit Carry zum Akku 76 HLT HALT 
8D ADC L ADC AL Addiere L-Register mit Carry zum Akku 

8E ADC M ADC A,(HL) Addiere (HL) zum Akku DB IN by IN 
87 ADD A ADD AA Addiere Akku zum Akku 3C INR A INC 
80 ADD B ADD AB Addiere B-Register zum Akku 04 INR B INC 
81 ADD C ADD AC Addiere C-Register zum Akku 0C INR C INC 
8 ADD D ADD AD Addiere D-Register zum Akku 14 INR D INC 
83 ADD E ADD AE Addiere E-Register zum Akku 1C INR E INC 
84 ADD H ADD AH Addiere H-Register zum Akku 24 INR H INC 
85 ADD L ADD Al Addiere L-Register zum Akku 2C INR LING 
86 ADD M ADD A,(HL) Addiere (HL) zum Akku 34 INR M INC 
C6 ADI by ADD A,by Addiere Byte zum Akku 03 INX B INC 
AT ANAA AND A Logisches Und mit Akku 13 INX D INC 
AO ANAB AND B Logisches Und mit B-Register 23 INX H INC 
Al ANAC AND C Logisches Und mit C-Register 33 INX SP INC 
A2 ANAD AND D Logisches Und mit D-Register DA JC wo JP 
A3 ANAE AND E Logisches Und mit E-Register FA JM wo JP 
A4 ANAH AND H Logisches Und mit H-Register 03 JMP wo JP 
A5 ANAL AND L Logisches Und mit L-Register D2 _UNC wo JP 
A6 ANA M AND (HL) Logisches Und mit (HL) C2 JNZ wo JP 
E6 ANI by AND by Logisches Und mit Byte F2 _ JP wo JP 
CD CALLwo CALL wo Unbedingter Unterprogrammaufruf EA JPE wo JP 
DC CC wo CALL Cwo Unterprogrammaufruf, wenn Carry gesetzt E2 PO wo JP 
FC CM wo CALL Mwo  Unterprogrammaufruf, wenn Minus gesetzt CA JZ wo JP 
2F CMA CPL Komplementiere Akku 3A LDA wo LD 
3F CMC CCF Komplementiere Carry-Flag 0A LDAXB LD 
BF CMA CP A Vergleiche mit Akku 1A LDAXD LD 
B8 CMPB CP B Vergleiche mit B-Register 2A LHLDwo LD 
B9 CMPC CP: .C Vergleiche mit C-Register 01 LXI BwoLD 
BA: ;CMP D CRD Vergleiche mit D-Register 11 1X DwoLD 
BB: .CMP E :CP!.. E Vergleiche mit E-Register 21 LXI HwoLD 
BC CM H CP H Vergleiche mit H-Register 31  LXI SPwoLD 
BD CMPL CP L Vergleiche mit L-Register 7F MOVAA LD 
BE CMPM CP (HL) Vergleiche mit (HL) 78 MOVAB LD 
D4 CNC wo CALL NCwo Unterprogrammaufruf, wenn Carry gelöscht 79 MOVAC LD 
C4 CNZ wo CALL NZwo Unterprogrammaufruf wenn Zero gelöscht 7A MOVAD LD 
F4 CP wo CALL Pwo Unterprogrammaufruf wenn Minus gelöscht 7B MOVAE LD 
EC CPE wo CALL PEwo Unterprogrammaufruf wenn Parität gerade 70 AH MOVLD 
FE: . CPI by ‘CP Vergleiche mit Byte 7D MOVAL LD 
E4 CPO wo CALL PO,wo Unterprogrammaufruf wenn Parität ungerade TE MOVAM LD 
CC CZ wo CALL Z,wo Unterprogrammaufruf wenn Zero gesetzt 47 MOVBA LD 
27  DAA DAA BCD-Dezimalkorrektur des Akkus 40 MOVBB LD 
09 DAD B ADD HLBC Addiere HL und BC, Ergebnis in HL 41 MOVBC LD 
19 DAD D ADD HL,DE  Addiere HL und DE, Ergebnis in HL 42 MOV BD LD 
29 DAD H ADD HLHL Addiere HL und HL, Ergebnis in HL 43 MOVBE LD 
39 _DAD SP ADD HL,SP Addiere HL und SP, Ergebnis in HL 44 MOVBH LD 
83D DCRA DEC A Dekrementiere Akku 45 MOVBL LD 
05 DCRB DEC B Dekrementiere B-Register 46 MOV BM LD 
0D DCRC DEC C Dekrementiere C-Register 4F MOV CA LD 
15 ..DCR D .DEG"D Dekrementiere D-Register 48 MOVCB LD 
ID .. DCR E DEG’E Dekrementiere E-Register 49 MOVCC LD 
25. DCRH DEE H Dekrementiere H-Register 4A MOVCD LD 
2 DCRL DEGL Dekrementiere L-Register 48 MOVCGE LD 
35 DCR M DEC (HL) Dekrementiere (HL) 4C MOVCH LD 


Erklärung 
BC Dekrementiere BC-Register 
DE Dekrementiere DE-Register 
HL Dekrementiere HL-Register 
SP Dekrementiere SP-Register 
Verbiete Interrupts 
Erlaube Interrupts 
Stoppe Prozessor bis zum nächsten 
Interrupt 
A,by Lese Port in den Akku 
A Inkrementiere Akku 
B Inkrementiere B-Register 
c Inkrementiere C-Register 
D Inkrementiere D-Register 
E Inkrementiere E-Register 
H Inkrementiere H-Register 


L Inkrementiere L-Register 

(HL) Inkrementiere (HL) 

BC Inkrementiere BC-Register 

DE Inkrementiere DE-Register 

HL Inkrementiere HL-Register 

SP Inkrementiere SP-Register 

Cwo Sprung, wenn Carry-Flag gesetzt 


Sprung, wenn Minus-Flag gesetzt 
wo Unbedingter Sprung 

Sprung, wenn Carry-Flag gelöscht 
Sprung, wenn Zero-Flag gelöscht 
Sprung, wenn Minus-Flag gelöscht 
Sprung, wenn Parität gerade 
Sprung, wenn Parität ungerade 
Sprung, wenn Zero-Flag gesetzt 
Lade Akku mit Inhalt der Adresse 
Lade Akku mit Inhalt der Adresse in BC 
Lade Akku mit Inhalt der Adresse in DE 
Lade HL mit 16-Bit-Inhalt der Adresse 
Lade BC-Register unmittelbar 
Lade DE-Register unmittelbar 
Lade HL-Register unmittelbar 
Lade SP-Register unmittelbar 

AA Lade Akku mit Akku 

AB Lade Akku mit B-Register 

AC Lade Akku mit C-Register 

AD Lade Akku mit D-Register 

AE Lade Akku mit E-Register 

A,H Lade Akku mit H-Register 

AL Lade Akku mit L-Register 

Lade Akku mit (HL) 

BA Lade B-Register mit Akku 

B,B Lade B-Register mit B-Register 
BC Lade B-Register mit C-Register 
BD Lade B-Register mit D-Register 
BE Lade B-Register mit E-Register 
B,H Lade B-Register mit H-Register 
BL Lade B-Register mit L-Register 
Lade B-Register mit HL 

GA Lade C-Register mit Akku 

CB Lade C-Register mit B-Register 
cc Lade C-Register mit C-Register 
CD Lade C-Register mit D-Register 
GE Lade C-Register mit E-Register 
GH Lade C-Register mit H-Register 



































Code 8080 280 

4D MOVCL LD GL 
4E MOV CM LD CÄHL) 
57 MOVDA LD DA 
50 MOVDB LD DB 
51 MOVDC LD DC 
52 MOVDD LD DD 
53 MOVDE LD DE 
54 MOVDH LD DH 
55 MOVDL LD DL 
56 MOV DM LD 
5F MOVEA LD EA 
58 MOVEB LD EB 
59 MOVEC ID EC 
5A MOVED LD ED 
568 MOVEE LD EE 
5C MOVEH LD EH 
5D MOVEL LD EL 
5E MOV EM LD 
67 MOVHA LD HA 
60 MOVHB LD HB 
61 MOVHC LD HC 
62 MOVHD LD HD 
63 MOVHE ID HE 
64 MOVHH LD HH 
65 / MOVHL LD HL 
66 MOV HM LD 
6F MOVLA LD LA 
68 MOVLB LD LB 
69 MOVLC LD LC 
6A MOVLD LD LD 
68 MOVLE ID LE 
6C MOVLH LD LH 
6D MOV LL ID CLL 


6E MOVLM LD L,HL) 
77 MOVMA LD  (HL)A 
70 MOVMB LD (HL)B 
71 MOVMC LD (HL)C 
72 MOV MD LD (HU),D 
73 MOVME LD  (HLU),E 
74 MOV MH LD (HL)H 
75 MOVML LD  (HL)L 


3E MVI AbyLD A,by 
06 MVI Bby LD B;by 
0OE MVI CbyLD CG,by 
16 MVI Dby LD  D,by 
IE MVI EbyLD E,by 
26 MVI HbyLD H,by 
2E MVI Lby LD  L,by 
36 MVI M,byLD (HL),by 
00 NOP NOP 


BT ORAA OR A 
BO ORAB OR B 
Bi orRAC OR 6 
B2 ORAD OR D 
BB ORAE OR E 
BA ORAH OR H 
B5 ORAL OB. L 
B6 ORAM OR (HL) 
F6 ORI by OR by 
by 


Fi POP PSWPOP AF 
C5 PUSHB PUSHBC 


Erklärung 

Lade C-Register mit L-Register 
Lade C-Register mit (HL) 

Lade D-Register mit Akku 

Lade D-Register mit B-Register 
Lade D-Register mit C-Register 
Lade D-Register mit D-Register 
Lade D-Register mit E-Register 
Lade D-Register mit H-Register 


- Lade D-Register mit L-Register 


Lade D-Register mit (HL) 

Lade E-Register mit Akku 

Lade E-Register mit B-Register 
Lade E-Register mit C-Register 
Lade E-Register mit D-Register 
Lade E-Register mit E-Register 
Lade E-Register mit H-Register 
Lade E-Register mit L-Register 
Lade E-Register mit (HL) 

Lade H-Register mit Akku 

Lade H-Register mit B-Register 
Lade H-Register mit C-Register 
Lade H-Register mit D-Register 
Lade H-Register mit E-Register 
Lade H-Register mit H-Register 
Lade H-Register mit L-Register 
Lade H-Register mit (HL) 

Lade L-Register mit Akku 

Lade L-Register mit B-Register 
Lade L-Register mit C-Register 
Lade L-Register mit D-Register 
Lade L-Register mit E-Register 
Lade L-Register mit H-Register 
Lade L-Register mit L-Register 
Lade L-Register mit (HL) 

Lade (HL) mit Akku 

Lade (HL) mit B-Register 

Lade (HL) mit C-Register 

Lade (HL) mit D-Register 

Lade (HL) mit E-Register 

Lade (HL) mit H-Register 

Lade (HL) mit L-Register 

Lade Akku mit Byte 

Lade B-Register mit Byte 

Lade C-Register mit Byte 

Lade D-Register mit Byte 

Lade E-Register mit Byte 

Lade H-Register mit Byte 

Lade L-Register mit Byte 

Lade (HL) mit Byte 

Tut nichts, wartet nur kurz 
Logisches Oder mit Akku 
Logisches Oder mit B-Register 
Logisches Oder mit C-Register 
Logisches Oder mit D-Register 


‚ Logisches Oder mit E-Register 


Logisches Oder mit H-Register 
Logisches Oder mit L-Register 
Logisches Oder mit (HL) 
Logisches Oder mit Byte 

Akku auf Port ausgeben 


Springe unbedingt zur Adresse in HL 


Hole BC-Register vom Stack 
Hole DE-Register vom Stack 
Hole HL-Register vom Stack 


Hole Akku und Flag-Register vom Stack 
Schiebe BC-Register auf den Stack 


Code 8080 280 

D5 PUSHD PUSH DE 
ES PUSHH PUSHH 

F5 PUSHPSW PUSH AF 

17 RAL RLA 

IF RAR RRA 

D8 RC RE GC 

69 RET RET 

07 RLC RLCA 

F8 RM RET M 
DO .RNC RET NC 
C0 RNZ RET NZ 
ED = RP Abi PR 

E8 RPE RET PE 
EO RPO RET PO 
OF _RRC RRCA 

C7 ERST 0  RSTO 0000H 
CF RST 1  RSTI 0008H 
D7’ RST 2 RST2 0010H 
DF RST 3  RST3 0018H 
ET RST 4  RST4 0020H 
EF RST 5 RST5 0028H 
FT ERST 6  RST6 0030H 
FF RST 7  RST7 0038H 
C8 RZ Ber 2 

9F SBBA SBC AA 
98 SBBB SBC AB 
9 SBBC SBC AC 
9A SBBD SBC AD 
9B SBBE SBC AE 
8C SBB H SBC AH 
9D SBBL SBC AL 
9E SBB M SBC A,(HL) 
DE SBI by SBC A,by 
22 SHLDwo LD  (wo),HL 
F9  SPHL LD",: SPHL 
32 STA wo LD (wo),A 
02 STAXB LD  (BE),A 
12 STAXD LD (DE)A 
37 .STC SCF 

97 SUBA SUB A 

90 SUBB SUB B 

91 °-SUBC SUB C 

92 SUBD SUB D 

93 SUBE SUB E 

94 SUBH SUB H 

985 SUBL SUB L 

96 SUB M SUB (HL) 
D6 SUI by SUB by 
EB XCHG EX. DEHML 
AF XRA A XOR A 

A8 XRAB XOR B 

A9 XRA C XOR C 

AA XRAD XOR D 

AB XRAE XOR E 

AC XRA H XOR H 

AD XRA L XOR L 

AE XRA M XOR (HL) 
EE XRI by XOR by 
E3 XTHL EX (SP)HL 
by = Byte (8Bit) 

wo = Wort (16 Bit) 

di = Distanz (8 Bit) 
(HL) 


CPIM 


Erklärung 

Schiebe DE-Register auf den Stack 
Schiebe HL-Register auf den Stack 
Schiebe Akku und Flag-Register auf den Stack 
Rotiere Akku nach links über Carry-Flag 
Rotiere Akku nach rechts über Carry-Flag 
Rücksprung, wenn Carry-Flag gesetzt 
Unbedingter Rücksprung 

Rotiere Akku nach links ohne Carry 
Rücksprung, wenn Minus-Flag gesetzt 
Rücksprung, wenn Carry-Flag gelöscht 
Rücksprung, wenn Zero-Flag gelöscht _ 
Rücksprung, wenn Minus-Flag gelöscht 
Rücksprung, wenn Parität gerade 
Rücksprung, wenn Parität ungerade 
Rotiere Akku nach rechts ohne Carry 
Restart zur Adresse OOH 

Restart zur Adresse O8H 

Restart zur Adresse 10H 

Restart zur Adresse 18H 

Restart zur Adresse 20H 

Restart zur Adresse 28H 

Restart zur Adresse 30H 

Restart zur Adresse 38H 

Rücksprung, wenn Zero-Flag gesetzt 
Subtrahiere Akku mit Carry 

Subtrahiere B-Register mit Carry 
Subtrahiere C-Register mit Carry 
Subtrahiere D-Register mit Carry 
Subtrahiere E-Register mit Carry 
Subtrahiere H-Register mit Carry 
Subtrahiere L-Register mit Carry 
Subtrahiere (HL) mit Carry 

Subtrahiere Byte mit Carry 

Lade HL-Register an die Adresse 
Lade SP-Register mit HL-Register 
Lade Akku an die Adresse 

Lade Akku an die Adresse in BC 
Lade Akku an die Adresse in DE 
Setze Carry-Flag 

Subtrahiere Akku 

Subtrahiere B-Register 

Subtrahiere C-Register 

Subtrahiere D-Register 

Subtrahiere E-Register 

Subtrahiere H-Register 

Subtrahiere L-Register 

Subtrahiere (HL) 

Subtrahiere Byte 

Tausche HL-Register und DE-Register 
Logisches Exklusiv-Oder mit Akku 
Logisches Exklusiv-Oder mit B-Register 
Logisches Exklusiv-Oder mit C-Register 
Logisches Exklusiv-Oder mit D-Register 
Logisches Exklusiv-Oder mit E-Register 
Logisches Exklusiv-Oder mit H-Register 
Logisches Exklusiv-Oder mit L-Register 
Logisches Exklusiv-Oder mit (HL) 
Logisches Exklusiv-Oder mit Byte 
Tausche (SP) mit HL-Register 


= Adresse, auf die das HL-Register zeigt 


Tabelle 3. Zwei Namen für die gleiche Arbeit - der gemeinsame Befehlssatz der CP/IM-Prozessoren (Schluß) 


Tabelle 4. Z80-Befehle, die der 8080 nicht kennt 


di = Distanz (7 Bit und Vorzeichen) 


by 8-Bit-Zahl (Byte) 


wo 16-Bit-Zahl (Word) 


DD 8E di 


FD 8E di 





ADC A,(IX+di) 


ADC A,(IY+di) 


Addiere mit Wert an Adresse IX+di 


und Carry 


Addiere mit Wert an Adresse IY+di 


und Carry 


ED 4A 
ED 5A 
ED 6A 
ED 7A 


DD 86 di 
FD 86 di 


























HL,BC 
HL,DE 
HL,HL 
HL,SP 


A,(IX+di) 
A,(IY+di) 


Addiere HL und BC mit Carry, Ergeb- 
nis in HL 

Addiere HL und DE mit Carry, Ergeb- 
nis in HL 

Addiere HL und HL mit Carry, Ergeb- 
nis in HL 

Addiere HL und SP mit Carry, Ergeb- 
nis in HL 

Addiere mit Wert an Adresse IX-+di 
Addiere mit Wert an Adresse IY+di 
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Tabelle 4. Z80-Befehle, die der 8080 nicht kennt 
(Fortsetzung) 


DD 09 

DD 19 

DD 29 

DD 39 

FD 09 

FD 19 

FD 29 

FD 39 

DD A6 di 
FD A6 di 
CB 46 

DD CB di 46 
FD CB di 46 
CB 47 

CB 40 

CB 41 

CB 42 

CB 43 

CB 44 

CB 45 

CB 4E 

DD CB di 4E 
FD CB di 4E 
CB 4F 

CB 48 

CB 49 

CB 4A 

CB 4B 

CB 4C 

CB 4D 

CB 56 

DD CB di 56 
FD CB di 56 
CB 57 

CB 50 

CB 51 

CB 52 

CB 53 

CB 54 

CB 55 

CB 5E 

DD CB di 5E 
FD CB di 5E 
CB SF 

CB 58 

CB 59 

CB 5A 

CB 5B 

CB 5C 

CB 5D 

CB 66 

DD CB di 66 
FD CB di 66 
CB 67 

CB 60 

CB 61 

CB 62 

CB 63 

CB 64 

CB 65 

CB 6E 

DD CB di 6E 
FD CB di 6E 
CB 6F 

CB 68 

CB 69 

CB 6A 

CB 6B 

CB 6C 

CB 6D 

CB 76 

DD CB di 76 
FD CB di 76 
CB 77 

CB 70 

CB 71 

CB 72 

CB 73 

CB 74 

CB 75 

CB 7E 
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ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
ADD 
AND 
AND 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 


IX,BC 
IX,DE 
IX,IX 
IX,SP 
IV,BC 
IY,DE 
IYIY 
IY,SP 

(IX +di) 
(IY+di) 

0, (HL) 
0, (IX+di) 
0, (IY+di) 
0,A 


1, (IY+di) 
1,A 


2, (IY+di) 
2,A 

2,B 

2,C 

2,D 

2,E 

2,H 

2L 

3, (HL) 
3, (IX+di) 
3, (IY+di) 


4, (IX+di) 
4, (IY+di) 


5, (IX+di) 
5, (IY+di) 
5,A 

5,B 

5.C 

5,D 

5,E 

5,H 

5,L 

6, (HL) 

6, (IX+di) 
6, (IY+di) 
6,A 


Addiere IX und BC, Ergebnis in IX 
Addiere IX und DE, Ergebnis in IX 
Addiere IX und IX, Ergebnis in IX 
Addiere IX und SP, Ergebnis in IX 
Addiere IY und BC, Ergebnis in IY 
Addiere IY und DE, Ergebnis in IY 
Addiere IY und IY, Ergebnis in IY 
Addiere IY und SP, Ergebnis in IY 
Logisches Und mit (IX+di) 
Logisches Und mit (IY+di) 
Teste Bit O in (HL) 

Teste Bit O in (IX+di) 
Teste Bit O in (IY+di) 
Teste Bit O im Akku 

Teste Bit O im B-Register 
Teste Bit O im C-Register 
Teste Bit O im D-Register 
Teste Bit O im E-Register 
Teste Bit O im H-Register 
Teste Bit O im L-Register 
Teste Bit O in (HL) 

Teste Bit 1 in (IX+di) 
Teste Bit 1 in (IY+di) 
Teste Bit 1 im Akku 

Teste Bit 1 im B-Register 
Teste Bit 1 im C-Register 
Teste Bit 1 im D-Register 
Teste Bit 1 im E-Register 
Teste Bit 1 im H-Register 
Teste Bit 1 im L-Register 
Teste Bit 2 in (HL) 

Teste Bit 2 in (IX+di) 
Teste Bit 2 in (IY+di) 
Teste Bit 2 im Akku 

Teste Bit 2 im B-Register 
Teste Bit 2 im C-Register 
Teste Bit 2 im D-Register 
Teste Bit 2 im E-Register 
Teste Bit 2 im H-Register 
Teste Bit 2 im L-Register 
Teste Bit 3 in (HL) 

Teste Bit 3 in (IX+di) 
Teste Bit 3 in (IY+di) 
Teste Bit 3 im Akku 

Teste Bit 3 im B-Register 
Teste Bit 3 im C-Register 
Teste Bit 3 im D-Register 
Teste Bit 3 im E-Register 
Teste Bit 3 im H-Register 
Teste Bit 3 im L-Register 
Teste Bit 4 in (HL) 

Teste Bit 4 in (IX+di) 
Teste Bit 4 in (IY+di) 
Teste Bit 4 im Akku 

Teste Bit 4 im B-Register 
Teste Bit 4 im C-Register 
Teste Bit 4 im D-Register 
Teste Bit 4 im E-Register 
Teste Bit 4 im H-Register 
Teste Bit 4 im L-Register 
Teste Bit 5 in (HL) 

Teste Bit 5 in (IX+di) 
Teste Bit 5 in (IY+di) 
Teste Bit 5 im Akku 

Teste Bit 5 im B-Register 
Teste Bit 5 im C-Register 
Teste Bit 5 im D-Register 
Teste Bit 5 im E-Register 
Teste Bit 5 im H-Register 
Teste Bit 5 im L-Register 
Teste Bit 6 in (HL) 

Teste Bit 6 in (IX+di) 
Teste Bit 6 in (IY+di) 
Teste Bit 6 im Akku 

Teste Bit 6 im B-Register 
Teste Bit 6 im C-Register 
Teste Bit 6 im D-Register 
Teste Bit 6 im E-Register 
Teste Bit 6 im H-Register 
Teste Bit 6 im L-Register 
Teste Bit 7 in (HL) 


DDCBdi7E BIT 
FD CBdi7E BIT 


CB 7F 
CB 78 
CB 79 
CB 7A 
CB 7B 
CB 7C 
CB 7D 
DD BE di 
FD BE di 
ED A9 
ED BY 
ED Ai 

ED B1 

DD 35 di 
FD 35 di 
DD 2B 
FD 2B 

10 di 

DD E3 

FD E3 

08 

D9 

ED 46 
ED 56 
ED 5E 
ED 78 
ED 40 
ED 48 
ED 50 
ED 58 
ED 60 

ED 68 
DD 34 di 
FD 34 di 
DD 23 

FD 23 
ED AA 
ED BA 
ED A2 
ED B2 
DD EI 

FD EI 
38 di 

18 di 

30 

20 di 

28 

DD 77 di 
DD 70 di 
DD 71di 
DD 72 di 
DD 73 di 
DD 74. di 
DD 75 di 
DD 36 diby 
FD 77 di 
FD 70 di 
FD 71di 
FD 72di 
FD 73 di 
FD 74 di 
FD 75 di 
FD 36 diby 
ED 43 wo 
ED 53 wo 
DD 22 wo 
FD 22 wo 
ED 73 wo 
DD 7Edi 
FD 7Edi 
ED 57 

ED 5F 
DD 46 di 
FD 46 di 
ED 4B wo 
DD 4E di 
FD 4E di 
DD 56 di 
FD 56 di 
ED 5B wo 
DD 5E di 


BIT 
BIT 
BIT 


7, (IX+di) 
7. (IY+di) 
TA 

7,.B 

7C 

7,D 

TE 

7,H 

TL 

(IX +di) 
(IY+di) 


(IX +di) 
(IY+di) 


(IX+di) 
(IY+di) 
IX 
IY 


(IX) 

(IY) 

C,di 

di 

NG,di 
NZ,di 

Z,di 
(IX+di),A 
(IX+di),B 
(IX +di),C 
(IX+di),D 
(IX+di),E 
(IX+di),H 
(IX+di),L 
(IX+di),by 
(IY+di),A 
(IY+di),B 
(IY+di),C 
(IY+di),D 
(IY+di),E 
(IY+di),H 
(IY+di),L 
(IY+di),by 
(wo),BC 
(wo),DE 
(wo),IX 
(wo),IY 
(wo),SP 
A,(IX+di) 
A,(IY+di) 
A,l 

A,R 
B,(IX+di) 
B,(IY+di) 
BC,(wo) 
C,(IX+di) 
C,(IY+di) 
D,(IX+di) 
D,(IY+di) 
DE,(wo) 
E,(IX+di) 
































Teste Bit 7 in (IX+di) 

Teste Bit 7 in (IY+di) 

Teste Bit 7 im Akku 

Teste Bit 7 im B-Register 

Teste Bit 7 im C-Register 

Teste Bit 7 im D-Register 

Teste Bit 7 im E-Register 

Teste Bit 7 im H-Register 

Teste Bit 7 im L-Register 
Vergleiche mit Wert in (IX-+di) 
Vergleiche mit Wert in (IY+di) 
Blocksuchbefehl ohne Wiederholung 
Blocksuchbefehl mit Wiederholung 
Blocksuchbefehl ohne Wiederholung 
Blocksuchbefehl mit Wiederholung 
Dekrementiere Wert in (IX+di) 
Dekrementiere Wert in (IY+di) 
Dekrementiere IX-Register 
Dekrementiere IY-Register 

Sprung in die Schleife, bis B=0 
Tausche Stackspitze mit IX-Register 
Tausche Stackspitze mit IY-Register 
Tausche Akku & Flags mit Zweitregistern 
Tausche BC, DE und HL mit Zweitregistern 
Interrupt-Modus O 
Interrupt-Modus 1 
Interrupt-Modus 2 
Port-Einlesebefehl in den Akku 
Port-Einlesebefehl ins B-Register 
Port-Einlesebefehl ins C-Register 
Port-Einlesebefehl ins D-Register 
Port-Einlesebefehl ins E-Register 
Port-Einlesebefehl ins H-Register 
Port-Einlesebefehl ins L-Register 
Inkrementiere Wert in (IX+di) 
Inkrementiere Wert in (IY+di) 
Inkrementiere IX-Register 
Inkrementiere IY-Register 
Blockeingabe ohne Wiederholung 
Blockeingabe mit Wiederholung 
Blockeingabe ohne Wiederholung 
Blockeingabe mit Wiederholung 
Sprung zur Adresse in IX 

Sprung zur Adresse in IY 
Relativsprung, wenn Carry gesetzt 
Unbedingter Relativsprung 
Relativsprung, wenn Carry gelöscht 
Relativsprung, wenn Zero gelöscht 
Relativsprung, wenn Zero gesetzt 
Lade Akku nach (IX+di) 

Lade B-Register nach (IX+di) 
Lade C-Register nach IX +di) 

Lade D-Register nach (IX+di) 
Lade E-Register nach (IX+di) 
Lade H-Register nach (IX+di) 
Lade L-Register nach (IX+di) 

Lade Byte nach (IX+di) 

Lade Akku nach (IY+di) 

Lade B-Register nach (IY+di) 
Lade C-Register nach (IY+di) 
Lade D-Register nach (IY+di) 
Lade E-Register nach (IY+di) 
Lade H-Register nach (IY+di) 
Lade L-Register nach (IY+di) 

Lade Byte nach (IY+di) 

Lade BC nach Adresse 

Lade DE nach Adresse 

Lade IX nach Adresse 

Lade IY nach Adresse 

Lade SP nach Adresse 

Lade Akku aus (IX+di) 

Lade Akku aus (IY+di) 

Lade Akku mit I-Register 

Lade Akku mit R-Register 

Lade B-Register aus (IX+di) 

Lade B-Register aus (IY+di) 

Lade BC-Register aus Adresse 
Lade C-Register aus (IX+di) 

Lade C-Register aus (IY+di) 

Lade D-Register aus (IX+di) 

Lade D-Register aus (IY+di) 

Lade DE-Register aus Adresse 
Lade E-Register aus (IX+di) 





KAAPPYM 
COMPUTER 


FD 5E di 
DD 66 di 
FD 66 di 
ED 47 

DD 2A wo 
DD 21 wo 
FD 2A wo 
FD 21 wo 
DD 6E di 
FD 6E di 
ED 4F 

ED 7B wo 
DD F9 

FD F9 
ED A8 
ED B& 
ED AO 
ED BO 
ED 44 
DD B6 di 
FD B6 di 
ED BB 
ED B3 
ED 79 
ED 41 

ED 49 
ED 51 

ED 59 
ED 61 

ED 69 
ED AB 


ED A3 


DD Ei 
FD E1 
DD ES 
FD ES 
CB 86 
DD CB di 86 
FD CB di 86 
CB 87 
CB 80 
OB 81 
CB 82 
CB 83 
CB 84 
CB 85 
CB 8E 
DD CB di 8E 
FD CB di 8E 
CB 8F 
CB 88 
CB 89 
CB 8A 
CB 8B 
CB 8C 
CB 8D 
CB 96 
DD OB di 96 
FD OB di 96 
CB 97 
CB 90 
OB 91 
CB 92 
CB 93 
CB 94 
CB 95 
CB 9E 
DD CB di 9E 
FD CB di 9E 
CB 9F 
CB 98 
CB 99 
CB 9A 
CB 9B 
CB 9C 
CB 9D 
CB A6 
DD CB di A6 
FD CB di A6 
CBA7 
CB AO 


RAIAPPYM, 
KANLLYNER 


E,(IY+di) 
H,(IX +di) 
L,(IY+di) 


L,(IX+di) 
L,(IY+di) 
R,A 
SP,(wo) 
SPIX 
SPIY 


(IX +di) 
(IY+di) 


(C),A 
(C),B 
(C),C 
(C),D 
(O)E 
(C),H 
(O)L 


0, (HL) 
0, (IX+di) 
0, (IY+di) 
0,A 


1,(1X+di) 
1,(IY+di) 


3,(IY+di) 
3,A 

3,B 

3,C 

3,D 

3,E 

3,H 

3,L 
4,(HL) 
4,(IX +di) 
4,(IY+di) 
4A 

4,B 


Lade E-Register aus (IY+di) 

Lade H-Register aus (IX+di) 

Lade L-Register aus (IY+di) 

Lade I-Register mit Akku 

Lade IX-Register mit Wert an Adresse 
Lade IX-Register mit 16-Bit-Wert 
Lade IY-Register mit Wert an Adresse 
Lade IY-Register mit 16-Bit-Wert 
Lade L-Register aus (IX+di) 

Lade L-Register aus (IY+di) 

Lade R-Register mit Akku 

Lade SP-Register aus Adresse 
Lade SP-Register mit IX-Register 
Lade SP-Register mit IY-Register 
Block kopieren ohne Wiederholung 
Block kopieren mit Wiederholung 
Block kopieren ohne Wiederholung 
Block kopieren mit Wiederholung 
Akku = -Akku, Zweier-Komplement 
Logisches Oder mit (IX+di) 
Logisches Oder mit (IY+di) 
Blockausgabebefehl mit Wiederholung 
Blockausgabebefehl mit Wiederholung 
Portausgabe des Akkus 
Portausgabe des B-Registers 
Portausgabe des C-Registers 
Portausgabe des D-Registers 
Portausgabe des E-Registers 
Portausgabe des H-Registers 
Portausgabe des L-Registers 
Blockausgabebefehl ohne Wie- 
derholung 

Blockausgabebefehl ohne Wie- 
derholung 

IX-Register vom Stack holen 
IY-Register vom Stack holen 
IX-Register auf den Stack schieben 
IY-Register auf den Stack schieben 
Lösche Bit O in (HL) 

Lösche Bit O in (IX+di) 

Lösche Bit O in (IY+di) 

Lösche Bit O im Akku 

Lösche Bit O im B-Register 

Lösche Bit O im C-Register 

Lösche Bit O im D-Register 

Lösche Bit O im E-Register 

Lösche Bit O im H-Register 

Lösche Bit O im L-Register 

Lösche Bit 1 in (HL) 

Lösche Bit 1 in (IX+di) 

Lösche Bit 1 in (IY+di) 

Lösche Bit 1 im Akku 

Lösche Bit 1 im B-Register 

Lösche Bit 1 im C-Register 
Lösche Bit 1 im D-Register 

Lösche Bit 1 im E-Register 

Lösche Bit 1 im H-Register 
Lösche Bit 1 im L-Register 

Lösche Bit 2 in (HL) 

Lösche Bit 2 in (IX+di) 

Lösche Bit 2 in (IY+di) 

Lösche Bit 2 im Akku 

Lösche Bit 2 im B-Register 

Lösche Bit 2 im C-Register 

Lösche Bit 2 im D-Register 

Lösche Bit 2 im E-Register 

Lösche Bit 2 im H-Register 

Lösche Bit 2 im L-Register 

Lösche Bit 3 in (HL) 

Lösche Bit 1 in (IX+di) 

Lösche Bit 1 in (IY+di) 

Lösche Bit 3 im Akku 

Lösche Bit 3 im B-Register 

Lösche Bit 3 im C-Register 

Lösche Bit 3 im D-Register 

Lösche Bit 3 im E-Register 

Lösche Bit 3 im H-Register 

Lösche Bit 3 im L-Register 

Lösche Bit 4 in (HL) 

Lösche Bit 4 in (IX+di) 

Lösche Bit 4 in (IY+di) 

Lösche Bit 4 im Akku 

Lösche Bit 4 im B-Register 


CB AI 
CB A2 
CB A3 
CB A4 
CB AS 
CB AE 
DD CB di AE 
FD CB di AE 
CBAF 
CB A8 
CB A9 
CB AA 
CB AB 
CB AC 
CB AD 
CB B6 
DD CB di B6 
FD CB di B6 
CBB7 
CB BO 
CB B1 
CB B2 
CB B3 
CB B4 
CB B5 
CB BE 
DD CB di BE 
FD CB di BE 
CB BF 
CB B8 
CB BY 
CB BA 
CB BB 
CB BC 
CB BD 
ED 4D 
ED 45 
CB 16 
DD CB di 16 
FD CB di 16 
CB 17 
CB 10 


CB 11 
OB 12 
CB 13 
OB 14 
OB 15 
CB 06 
DD CB di 06 
FD CB di 06 
CB 07 
CB 00 
CB 01 
CB 02 
CB 03 
CB 04 
CB 05 
ED 6F 
CB 1E 
DD CB di IE 
FD CB di 1E 
CB IF 
CB 18 
CB 19 


CB 1A 


5,(IX+di) 
5,(IY+di) 
5,A 

5,B 

5.C 

5,D 

5,E 

5,H 

5,L 
6,(HL) 
6,(IX+di) 
6,(IY+di) 
6,A 

6,B 

6C 

6,D 

6E 

6,H 

6,L 
7,(HL) 
7,(IX+di) 
7,(IY+di) 
TA 

7,B 

7C 

7,D 

TE 

7,H 

TL 


(HL) 
(IX + di) 
(IY+di) 


(HL) 
(IX + di) 


(IY+di) 


A 


B 
C 
D 
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Lösche Bit 4 im C-Register 

Lösche Bit 4 im D-Register 

Lösche Bit 4 im E-Register 

Lösche Bit 4 im H-Register 

Lösche Bit 4 im L-Register 

Lösche Bit 5 in (HL) 

Lösche Bit 5 in (IX+di) 

Lösche Bit 5 in (IY+di) 

Lösche Bit 5 im Akku 

Lösche Bit 5 im B-Register 

Lösche Bit 5 im C-Register 

Lösche Bit 5 im D-Register 

Lösche Bit 5 im E-Register 

Lösche Bit 5 im H-Register 

Lösche Bit 5 im L-Register 

Lösche Bit 6 in (HL) 

Lösche Bit 6 in (IX+di) 

Lösche Bit 6 in (IY+di) 

Lösche Bit 6 im Akku 

Lösche Bit 6 im B-Register 

Lösche Bit 6 im C-Register 

Lösche Bit 6 im D-Register 

Lösche Bit 6 im E-Register 

Lösche Bit 6 im H-Register 

Lösche Bit 6 im L-Register 

Lösche Bit 7 in (HL) 

Lösche Bit 7 in (IX+di) 

Lösche Bit 7 in (IY+di) 

Lösche Bit 7 im Akku 

Lösche Bit 7 im B-Register 

Lösche Bit 7 im C-Register 

Lösche Bit 7 im D-Register 

Lösche Bit 7 im E-Register 

Lösche Bit 7 im H-Register 

Lösche Bit 7 im L-Register 
Rücksprung von Interrupt-Routine 
Rücksprung von NMI-Interrupt 
Linksrotation von (HL) durchs Carry 
Linksrotation von (IX+di) durchs Carry 
Linksrotation von (IY+di) durchs Carry 
Linksrotation des Akkus durchs Carry 
Linksrotation des B-Registers durchs 
Carry 

Linksrotation des C-Registers durchs 
Carry 

Linksrotation des D-Registers durchs 
Carry 

Linksrotation des E-Registers durchs 
Carry 

Linksrotation des H-Registers durchs 
Carry 

Linksrotation des L-Registers durchs 
Carry 

Linksrotation von (HL) ohne Carry 
Linksrotation von (IX+di) ohne Carry 
Linksrotation von (IY+di) ohne Carry 
Linksrotation des Akkus ohne Carry 
Linksrotation des B-Registers ohne 
Carry 

Linksrotation des C-Registers ohne 
Carry 

Linksrotation des D-Registers ohne 
Carry 

Linksrotation des E-Registers ohne 
Carry 

Linksrotation des H-Registers ohne 
Carry 

Linksrotation des L-Registers ohne 
Carry 

BCD-Zahlenrotation mit (HL) und Akku 
Rechtsrotation von (HL) durchs Carry 
Rechtsrotation von (IX+di) durchs 
Carry 

Rechtsrotation von (IY+di) durchs 
Carry 

Rechtsrotation des Akkus durchs 
Carry 

Rechtsrotation des B-Registers 
durchs Carry 

Rechtsrotation des C-Registers 
durchs Carry 

Rechtsrotation des D-Registers 
durchs Carry 
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Tabelle 4. Z80-Befehle, die der 8080 nicht kennt 


(Schluß) 
CB 1B 


CB IC 
CB 1D 


CB 0E 
DD CB di OE 
FD CB di OE 
CB OF 
CB 08 


CB 09 
CB OA 
CB OB 
CB 0C 
CB OD 


ED 67 

DD 9E di 
FD 9E di 
ED 42 

ED 52 

ED 62 

ED 72 

CB C6 

DD CB di C6 
FD CB di C6 
CBC7 
CBCO 

CB Ci 
CBC2 

CB C3 

CB C4 

CB C5 
CBCE 

DD OB diCE 
FD OB di CE 
CBCF 

CB C8 
CBC9 
CBCA 

CB CB 
CBCC 

CB CD 

CB D6 

DD CB di D6 
FD CB di D6 
CB D7 

CB DO 

CB Di 
CBD2 

CB D3 

CB D4 

CB D5 

CB DE 

DD OB di DE 
FD CB di DE 
CB DF 

CB D8 

CB D9 

CB DA 

CB DB 

CB DC 

CB DD 

CB E6 

DD CB di E6 
FD CB di E6 
CBE7 
CBEO 

CB EI 
CBE2 

CB E3 
CBE4 
CBES 
CBEE 

DD CB diEE 
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RR 


RRC 
RRC 
RRC 
RRC 
RRC 


RRC 
RRC 
RRC 
RRC 
RRC 


RRD 
SBC 
SBC 
SBC 
SBC 
SBC 
SBC 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 


E 


A,(IX +di) 
A,(IY+di) 
HL,BC 
HL,DE 
HL,HL 
HL,SP 
0,(HL) 
0,(IX +di) 
0,(IY+di) 
0,A 

0,B 

0,C 

0,D 

0,E 

0,H 

O,L 
1,(HL) 
1,(X+di) 
1,(IY+di) 
1A 


2,(IX+di) 
2,(IY+di) 
2,A 

2,B 

2.C 

2,D 

2,E 

2,H 

2L 
3,(HL) 
3,(IX +di) 
3,(IY+di) 
3,A 

3,B 

3,0 

3,D 

3,E 

3,H 

3,L 
4,(HL) 
4,(IX+di) 
4,(IY+di) 
4,A 

4,B 


5,(IX+di) 


Rechtsrotation des E-Registers 
durchs Carry 

Rechtsrotation des H-Registers 
durchs Carry 

Rechtsrotation des L-Registers durchs 
Carry 

Rechtsrotation von (HL) ohne Carry 
Rechtsrotation von (IX+di) ohne Carry 
Rechtsrotation von (IY+di) ohne Carry 
Rechtsrotation des Akkus ohne Carry 
Rechtsrotation des B-Registers ohne 
Carry 

Rechtsrotation des C-Registers ohne 
Carry 

Rechtsrotation des D-Registers ohne 
Carry 

Rechtsrotation des E-Registers ohne 
Carry 

Rechtsrotation des H-Registers ohne 
Carry 

Rechtsrotation des L-Registers ohne 
Carry 

BCD-Zahlenrotation mit (HL) und Akku 
Subtraktion mit (IX+di) und Carry 
Subtraktion mit (IY+di) und Carry 
HL:=HL-BC, Carry 

HL:=HL-DE, Carry 

HL:=HL-HL, Carry 

HL:=HL-SP, Carry 

Setze Bit O in (HL) 

Setze Bit O in (IX+di) 

Setze Bit O in (IY+di) 

Setze Bit O im Akku 

Setze Bit O im B-Register 

Setze Bit O im C-Register 

Setze Bit O im D-Register 

Setze Bit O im E-Register 

Setze Bit O im H-Register 

Setze Bit O im L-Register 

Setze Bit 1 in (HL) 

Setze Bit 1 in (IX+di) 

Setze Bit 1 in (IY+di) 

Setze Bit 1 im Akku 

Setze Bit 1 im B-Register 

Setze Bit 1 im C-Register 

Setze Bit 1 im D-Register 

Setze Bit 1 im E-Register 

Setze Bit 1 im H-Register 

Setze Bit 1 im L-Register 

Setze Bit 2 in (HL) 

Setze Bit 2 in (IX+di) 

Setze Bit 2 in (IY+di) 

Setze Bit 2 im Akku 

Setze Bit 2 im B-Register 

Setze Bit 2 im C-Register 

Setze Bit 2 im D-Register 

Setze Bit 2 im E-Register 

Setze Bit 2 im H-Register 

Setze Bit 2 im L-Register 

Setze Bit 3 in (HL) 

Setze Bit 3 in (IX+di) 

Setze Bit 3 in (IY+di) 

Setze Bit 3 im Akku 

Setze Bit 3 im B-Register 

Setze Bit 3 im C-Register 

Setze Bit 3 im D-Register 

Setze Bit 3 im E-Register 

Setze Bit 3 im H-Register 

Setze Bit 3 im L-Register 

Setze Bit 4 in (HL) 

Setze Bit 4 in (IX+di) 

Setze Bit 4 in (IY+di) 

Setze Bit 4 im Akku 

Setze Bit 4 im B-Register 

Setze Bit 4 im C-Register 

Setze Bit 4 im D-Register 

Setze Bit 4 im E-Register 

Setze Bit 4 im H-Register 

Setze Bit 4 im L-Register 

Setze Bit 5 in (HL) 

Setze Bit 5 in (IX+di) 


FD CB diEE 
CBEF 
CB E8 
CBE9I 
CBEA 
CBEB 
CBEC 
CBED 
CBF6 
DD CB diF6 
FD CB di F6 
CBF7 
CBFO 
CB Fi 
CBF2 
CB F3 
CBF4 
CBF5 
CBFE 
DD CB diFE 
FD CB diFE 
CBFF 
CB F8 
CBF9 
CBFA 
CBFB 
CBFC 
CBFD 
CB 26 
DD CB di 26 
FD CB di 26 
CB 27 
CB 20 


CB 21 
CB 22 
CB 23 
CB 24 
CB 25 


CB 2E 
DD CB di2E 


FD CB di 2E 
CB 2F 
CB 28 
CB 29 
CB 2A 
CB 2B 
CB 2C 
CB 2D 
CB 3E 
DD CB di 3E 
FD CB di 3E 
CB 3F 
CB 38 
CB 39 
CB 3A 
CB 3B 
CB 3C 


CB 3D 


DD 96 di 
FD 96 di 
DD AE di 
FD AE di 


SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SLA 
SLA 
SLA 
SLA 
SLA 


SLA 
SLA 
SLA 
SLA 
SLA 


SRA 
SRA 


SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRL 
SRL 
SRL 


SRL 
SRL 


5,(IY+di) 
5,A 

5,B 

5.C 

5,D 

5,E 

5,H 

5,L 
6,(HL) 
6,(IX+di) 
6,(IY+di) 
6,A 

6,B 

6.C 

6,D 

6,E 

6,H 

6,L 

7 (HL) 

7 (IX +di) 
7,(IY+di) 
TA 

7,B 

7C 

7,D 

TE 

7,H 

ZL 

(HL) 
(IX+di) 
(IY+di) 


A 
B 
c 
D 
E 
H 


L 


(HL) 
(IX +di) 


(IY+di) 


L 


(IX+di) 
(IY+di) 
(IX+di) 
(IY+di) 





























Setze Bit 5 in (IY+di) 

Setze Bit 5 im Akku 

Setze Bit 5 im B-Register 

Setze Bit 5 im C-Register 

Setze Bit 5 im D-Register 

Setze Bit 5 im E-Register 

Setze Bit 5 im H-Register 

Setze Bit 5 im L-Register 

Setze Bit 6 in (HL) 

Setze Bit 6 in (IX+di) 

Setze Bit 6 in (IY+di) 

Setze Bit 6 im Akku 

Setze Bit 6 im B-Register 

Setze Bit 6 im C-Register 

Setze Bit 6 im D-Register 

Setze Bit 6 im E-Register 

Setze Bit 6 im H-Register 

Setze Bit 6 im L-Register 

Setze Bit 7 in (HL) 

Setze Bit 7 in (IX+di) 

Setze Bit 7 in (IY+di) 

Setze Bit 7 im Akku 

Setze Bit 7 im B-Register 

Setze Bit 7 im C-Register 

Setze Bit 7 im D-Register 

Setze Bit 7 im E-Register 

Setze Bit 7 im H-Register 

Setze Bit 7 im L-Register 
Arithmetischer Links-Shift von (HL) 
Arithmetischer Links-Shift von (IX+di) 
Arithmetischer Links-Shift von (Iy+di) 
Arithmetischer Links-Shift des Akkus 
Arithmetischer Links-Shift des 
B-Registers 

Arithmetischer Links-Shift des 
C-Registers 

Arithmetischer Links-Shift des 
D-Registers 

Arithmetischer Links-Shift des 
E-Registers 

Arithmetischer Links-Shift des 
H-Registers 

Arithmetischer Links-Shift des 
L-Registers 

Arithmetischer Rechts-Shift von (HL) 
Arithmetischer Rechts-Shift von 
(IX+di) 

Arithmetischer Rechts-Shift von 
(IY+di) 

Arithmetischer Rechts-Shift des 
Akkus 

Arithmetischer Rechts-Shift des 
B-Registers 

Arithmetischer Rechts-Shift des 
C-Registers 

Arithmetischer Rechts-Shift des 
D-Registers 

Arithmetischer Rechts-Shift des 
E-Registers 

Arithmetischer Rechts-Shift des 
H-Registers 

Arithmetischer Rechts-Shift des 
L-Registers 

Logischer Rechts-Shift von (HL) 
Logischer Rechts-Shift von (IX+di) 
Logischer Rechts-Shift von (IY+di) 
Logischer Rechts-Shift des Akkus 
Logischer Rechts-Shift des B- 
Registers 

Logischer Rechts-Shift des C- 
Registers 

Logischer Rechts-Shift des D- 
Registers 

Logischer Rechts-Shift des E- 
Registers 

Logischer Rechts-Shift des H- 
Registers 

Logischer Rechts-Shift des L- 
Registers 

Subtraktion von (IX+di) 
Subtraktion von (IY+di) 

Logisches Exklusiv-Oder mit (IX+di) 
Logisches Exklusiv-Oder mit (IY+di) 
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Firmware-Aufruf 


CPIM 





unter CP/M 


ie Einsprungadressen der 

Schneider-Firmware-Routinen 

(zum Beispiel zur Grafikaus- 
gabe) im Bereich ab der Adresse BBOO 
hex stehen auch unter CP/M 2.2 zur 
Verfügung - und das in gleicher Weise 
auf allen drei Schneider-Computern. 

Beim Aufruf müssen folgende Bedin- 
gungen erfüllt sein: 

1. Der »Stackpointer« zeigt auf das 
»zentrale RAM« im Bereich von 4000 
bis BFFF hex. 

2. Im F’Register ist das Carry-Flag 
zurückgesetzt. 

3. Im BC’Register steht ein Wert, der 
einige Systemeinstellungen bestimmt, 
die ROM/RAM-Auswahl, Bildschirmmo- 
dus und Interruptunterdrückung. Im 
Normalfall ist das bei CP/M im Modus 2 
der Wert 7F86 hex, im Modus 1 der 
Wert 7F85 hex und im Modus O der 
Wert 7F84 hex. Bei bestimmten Spei- 
chererweiterungstypen können sich 
diese Werte auch ändern. 

Im Basic-Betriebssystem sind diese 
Bedingungen automatisch erfüllt. Ent- 
gegen der landläufigen Meinung dürfen 
unter CP/M aber alle Register verändert 
werden. Viele CP/M-Programme nüt- 
zen das auch aus. Nur wenn das BIOS 
von sich aus Firmware-Routinen aufruft 
(zum Beispiel beim Interrupt), speichert 
es automatisch die alten Werte im BC} 
und F’Register und rekonstruiert die 
Soll-Werte. Das ist der Grund, warum 
CP/M-Programme, die Firmware-Routi- 
nen verwenden, oft nicht korrekt arbei- 
ten. 


Der Fast/ 
Slow-Modus 


Wenn Sie schon mit »SETUPCOM« 
experimentiert haben, wissen Sie, daß 
Sie dort zwischen »FAST«- und »SLOW«- 
Modus wählen können. Die oben er- 
wähnten Fakten gelten aber nur für den 
»SLOW«-Modus. Wenn sich Ihr CPC im 
»FAST«-Modus befindet, werden die 
Register vor BIOS-internen Firmware- 
Routinen nicht mehr restauriert und es 
steht - wie unter Basic - nur ein einge- 
schränkter Registersatz zur freien Ver- 
fügung. Die Register F’ und BC’ dürfen 
dann überhaupt nicht mehr verändert 
werden. Bei Programmen, die ur- 
sprünglich für 8080-Computer ent- 
wickelt wurden, bedeutet das keine 


erim Viele Schneider- 
Besitzer freuen 
en sich über die 
nützlichen Firmware-Routinen 
ihres Computers. Daß und wie 
man diese aber unter CP/M, und 
sogar ohne Assemblerkennt- 
nisse unter Turbo-Pascal benut- 
zen kann, wissen nur wenige. 


Bm PLUS 


Einschränkung, da der 8080 den zwei- 
ten Registersatz nicht kennt. Bei Ver- 
wendung einer Vortex-Diskettenstation 
können Sie »FAST« übrigens nicht wäh- 
len: Der Computer befindet sich dort 
immer im »SLOW«-Modus. 

Die »FAST«/»SLOW«-Umschaltung 
können Sie auch außerhalb des 
SETUP-Programms durchführen. Unter 
CP/M befindet sich an der Adresse 
BE8O hex eine weitere Sprungtabelle. 
Durch »1da,FF hex:call BEYE hex« wird 
der »FAST«-Modus eingeschaltet und 
durch »xor a:call BEYE hex« der 
»SLOW«-Modus. 

Die richtige Belegung der BC und F* 
Register ist eine zusätzliche Fehler- 
quelle und bringt Programme oft aus 
scheinbar unerfindlichen Gründen zum 
Absturz. Deshalb gibt es im Betriebssy- 
stem eine kleine Hilfe. Durch »call BE9YB 
hex« wird die Firmware-Routine, deren 
Adresse sich in den zwei dem Aufruf fol- 
genden Speicherzellen befindet, aus- 
geführt. Die korrekte Versorgung des 
alternativen Registersatzes wird dabei 
automatisch durchgeführt (natürlich 
nur im »SLOW«-Modus). Das Programm 
zum Setzen eines Punktes siehtfolglich 
so aus: 


ld de,x-Koordinate 
ld hl,y-Koordinate 
call BE9B h 
dw BBEA h 


Die Sprungtabelle im Bereich von 
BE80 bis BEA6 hex ermöglicht den 
Aufruf von zusätzlichen BIOS- 
Routinen, die nur unter dem CP/M der 
Schneider-Computer existieren. Mit 
diesen Einsprüngen können, unab- 
hängig von der Version des Disketten- 
ROMs, zusätzliche Systemsteuerun- 
gen durchgeführt werden. Unverständ- 
licherweise wird von diesen Routinen 
der alternative Registersatz nicht 


restauriert. Einfache Routinen, die nur 
Änderungen im RAM vornehmen, funk- 
tionieren trotzdem. Probleme gibt es 


allerdings bei den Routinen, die sich 
ihrerseits auf die gewöhnlichen Firm- 
ware-Routinen stützen, zum Beispiel 
während der Wartezeit beim Starten 
des Diskettenmotors. Hierbei müssen 
die Register BC’ und F’ weiterhin 
manuell versorgt werden. Dabei dürfen 
Sie aber den Stackpointer nicht 
vergessen. 

Mit Hilfe der Anweisung »Inline« 
können in Turbo-Pascal-Programme 
direkt Maschinencode-Routinen einge- 
fügt werden. In Klammern stehen dann, 
getrennt durch Schrägstriche, die 
einzelnen Bytes des Maschinen- 
programms. Also etwa 
inline (.../$cd/$5a/$bb/...) 


Turbo-Pascal 
stark verbessert 


Die einzelnen Bytes erlauben eine 
sowohl hexadezimale als auch dezimale 
Angabe. Ist der Wert zwischen zwei 
Schrägstrichen größer als 255, wird er 
vom Compiler automatisch in zwei 
Maschinensprache-Byte übersetzt. 
Diese Regel hat nur zwei Ausnahmen, 
die aber eine große Arbeitserleichte- 
rung darstellen. 

1. Ein Variablenname in einer Inline- 
Anweisung ergibt im Maschinencode- 
Programm unabhängig vom Wert und 
vom Typ (es sind nicht nur Zahlen 
erlaubt) immer genau zwei Byte. Diese 
enthalten nicht den Wert der Variablen, 
sondern die Adresse, an der die Varia- 
ble im Speicher steht. Wenn Sie den 
Wert der Integer-Variablen »<Zahl>« 
im Maschinencode-Programm verar- 
beiten wollen, dürfen Sie also nicht 
inline(.../$21/(Zahl)/...) 

für »Id hl, <Zahl>« schreiben, sondern 
Sie müssen 
inline(.../$2a/(zahl)/... 

für »Id hl,(<Zahl>)« benutzen. Diese 
Methode hat den Vorteil, daß nicht nur 
Integervariablen, sondern beliebige 
Typen verwendet werden können und 
die Maschinencode-Routine auch neue 
Werte in eine Variable schreiben und 
ans Hauptprogramm zurückgeben 
kann. 

2. Während der Entwicklung des 
Maschinencode-Programms ist noch 
nicht abzusehen, in welchem Speicher- 
bereich es einmal endgültig stehen 
wird. Absolute Sprünge sind so nicht 
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empfehlenswert. Deshalb kann in einer 
Inline-Anweisung auch ein Sternchen 
(»*«) eingesetzt werden. Dieses reprä- 
sentiert zwei Byte, die den aktuellen 
Wert des Programmzählers beinhalten. 
Zusätzlich darf zum Sternchen noch 
eine Konstante addiert oder abgezogen 
werden. Die Assemblerzeile zum Über- 
springen der nächsten 17 (nicht 20) 
Byte mit einem absoluten bedingten 
Sprung, sieht zum Beispiel so aus: 
marke: jp nz,marke+20 

In einer Inline-Anweisung müssen Sie 
statt dessen schreiben: 
inline(.../$c2/%+20/...) 

Diese Regeln genügen bereits, um 
beliebige Maschinencode-Programme 
in ein Turbo-Pascal-Programm zu inte- 
grieren. 

Mit Hilfe von »Inline« lassen sich auch 
aus einem Pascal-Programm ohne Ma- 
schinensprachkenntnisse Firmware- 
Routinen aufrufen. Das gilt nicht nur für 
die neue Version 3.0, sondern auch für 
das alte Turbo-Pascal 2.0. Eine Lösung 
dazu zeigt Listing 1. 


Das erweiterte 
Schneider-BIOS 


Vor dem Aufruf einer Firmware-Rou- 
tine müssen die Übergabeparameter in 
die CPU-Register übertragen und die 
Ergebnisse nach der Bearbeitung an 
das Pascal-Programm zurückgegeben 
werden. Deshalb wird mit »type« der 
neue Variablentyp »register« definiert, 
in dem für jedes CPU-Register ein Spei- 
cherplatz reserviert ist. Unmittelbar vor 
dem Aufruf einer Firmware-Routine 
wird der Inhalt der übergebenen Regi- 
stervariablen in die Register des Z80 
übertragen. Nach der Ausführung ent- 
hält die Registervariable die neuen 
CPU-Registerinhalte, so daß sie vom 
Pascal-Programm leicht abgefragt wer- 
den können. 

Auf diese Weise können Sie Firmwa- 
re-Routinen auch verwenden, wenn Sie 
in Maschinensprache völlig unbedarft 
sind. In manchen Veröffentlichungen 
(zum Beispiel im 2. Happy-Computer- 
Schneider-Sonderheft oder im Schnei- 
der-Firmware-Handbuch) finden Sie 
Informationen zu diesen Routinen oft in 
der folgenden Form: 

Zeichenausgabe am Bildschirm: 
Adresse: BBSA hex 
Übergabeparameter: Register a: Zei- 
chencode 

Ergebnis: - 

Auch wenn Sie bisher nicht wußten, 
was diese Angaben im Detail bedeute- 
ten, können Sie in Pascal jetzt einfach 
schreiben: 
regvar.a:=ord('(Zeichen) ');firm- 
ware(regvar,$bb5a); 


(* CPC-Firmwareroutinen aufrufen; 


type register = record 


bcez:integer; 

de:integer; 

hl:integer 
end; 


procedure firmware(var regvar: 
var spvar: integer: 
begin 


register; 


Version fuer keine Speichererweiterung #) 


adress: integer); 


inline ($2a/adress/$22/*+19/$ed/$73/spvar /$f3/$ed/$7b/regvar /$#f1/$c1/$d1/ 


procedure exbios(var regvar: 
var spvar: integer; 
begin 


register: adress: 


$e1/$fb/$cd/$9b/$be/$00/$00/$ 3/$eS/$d5/$c5/$45/$ed/$7b/spvar/$fb) 
end: 


integer); 


inline ($2a/adress/$#22/*+19/$ed/$73/spvar /$f3/$ed/$7b/regvar /$f1/$c1/$d1/ 
$e1/$#b/$cd/$9b/$be/$+00/+00/$43/$e5/$d5/$c5/$45/$ed/$7b/spvar/$fb) 


end; 


Listing 1. Binden Sie Maschinencode-Routinen in Ihr Turbo-Pascal-Programm ein 


Nur zwei Dinge sind dabei zu beach- 
ten: 

1. Die Routineadressen können hexa- 
dezimal und dezimal vorgegeben sein. 
Hinter hexadezimalen Zahlen steht oft 
ein »h« oder »hex«, um sie von dezima- 
len Zahlen zu unterscheiden. Gelegent- 
lich sieht man statt dessen auch ein vor- 
angestelltes »&« oder »#«. In Pascal ist 
zur Kennzeichnung nur ein führendes 
Dollarzeichen erlaubt (zum Beispiel 
»$BB5A«). Diese Umsetzung können 
Sie auch durchführen, wenn Sie anson- 
sten nicht mit hexadezimalen Zahlen 
rechnen können - also keine Bange. 
2. Die Register B und C können mit der 
Register-Variablen nur paarweise als 
BC angesprochen werden. Die Um- 
rechnung gelingt aber ganz einfach 
durch die Formel: 

(be-Wert) := (b-Wert) SHL 8 OR 
(e-Wert). 

Genau dasselbe gilt für die Register 
D, E beziehungsweise DE und die Regi- 
ster H, L beziehungsweise HL. Wenn 
Sie sich die Formel nicht im Kopf mer- 
ken wollen, können Sie eine einfache 
Pascal-Funktion 


funetiondoppel(links,rechts:byte): 
integer: 

schreiben. Steht in der Angabe zur 
Firmware-Routine schon von vorn- 
herein ein doppelter Registername, 
erübrigt sich eine Umrechnung. 

Mit der neuen Pascal-Prozedur »Firm- 
ware« (Listing 1) können Firmware- 
Routinen aus dem Bereich BBOO bis 
BD39 hex aufgerufen werden. Zum 
Aufruf der zusätzlichen BIOS-Routinen 
im Bereich BE80 bis BEA6 hex, die es 
nur auf den Schneider-Computern gibt, 
steht die Prozedur »Exbios« (Listing 1) 
zur Verfügung. Diese Prozedur kann auf 
genau dieselbe Weise verwendet wer- 
den wie die Prozedur »Firmware«: Über- 
geben müssen Sie ebenfalls eine Regi- 
stervariable und die Adresse der BIOS- 
Routine. 

Nicht erlaubt ist dagegen die Routine 
an der Adresse BE9B hex. Eine sinn- 





volle Anwendung ist nur mit besonde- 
ren Übergabeparametern möglich. 
Diese Routine wird aber gar nicht benö- 
tigt, denn die Prozedur »Firmware« 
macht genau genommen nichts ande- 
res, als die Arbeitsumgebung für die 
Routine an der Adresse BE9B hex her- 
zustellen. Das war auch der einzige 
Grund für ihre Implementierung. 

Ein Anwendungsbeispiel der 
EXBIOS-Routine zeigt das Listing 2 - 
die Datei »FIRMTEST.PAS«. Es beinhal- 
tet das Grundgerüst - aber schon 
ablauffähig - eines in Pascal geschrie- 
benen Diskettenmonitors. In genau der- 
selben Weise kann auch die Prozedur 
»Firmware« verwendet werden, aber 
natürlich zu anderen Zwecken. 

Durch die Zeile 
[$i Firm44.inc] 
werden die beiden neuen Pascal- 
Prozeduren ins Programm integriert, 
ohne sie dabei noch einmal extra abtip- 
pen zu müssen. Sie können sie dann 
genauso verwenden wie normale 
Befehle, zum Beispiel »writeln«. 


Übergabe von 
Tabellen an 
Firmware-Routinen 


Die BIOS-Routinen zur Disketten- 
steuerung reagieren sehr allergisch auf 
kleinste Tippfehler. Sie wären nicht der 
erste, der nach derartigen Experimen- 
ten ausgerechnet seine Lieblingsdis- 
kette hingemeuchelt hätte. Nur durch 
Neuformatieren ist eine Diskette in die- 
sen Fällen noch zu retten. Also merken 
Sie sich: Solange ein Programm mit 
direkter Diskettensteuerung nicht mit 
absoluter Sicherheit fehlerfrei läuft, darf 
es nur auf Disketten getestet werden, 
die keine wichtigen Dateien enthalten. 
Vor dem Test sollten Sie die aktuelle 
Version des Programms natürlich auf 
einer anderen Diskette speichern. 

Manche Firmware-Routinen erwarten 
im HL-Register die Anfangsadresse 
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program extended_biostest; 


xi$i firm44.inc} 


var regvar: register; 
peek, spur, sektor, drive: byte; 
puffer: array[@..511] of bytes 
again: char; 
i: integer;z 


begin 
repeat 
write(’Laufwerk, Spur und Sektor eingeben: ’)3 
readin(drive, spur, sektor);3 
regvar.bc := sektor;z 
regvar.de := spur shl 8 + drive; 
regvar.hl := addr (puffer); 
exbios(regvar, $be89); 
if (regvar.f and 1) = 8 
then 
writeln(’Sektor konnte nicht gelesen werden! ’) 
else 
begin 


for i := 8 to 511 do 
begin 
peek := pufferLli] and 1273 
if (peek<32) or (peek=127) 


write('’Nochmal”? (j/n) ')5 
readlin(again) 
until (again='j') or (again = '’n’) 
until again<>'’j'’ 
end. 


Listing 2. Ein Disketten-Monitor unter Turbo-Pascal 


####4### Version f}r CPC ohne Speichererweiterung WHERE 
(Adressen im Bereich von '’7Cxx’ wurden vom Compiler 
automatisch eingesetzt und k'nnen auch andere Werte haben) 


##%%%#%# Procedur ’Firmware' 

iFFS3 HL, (7C78) Adresse der Firmwareroutine 
ıiFF& (Z@QA) „HL Ins Progamm kopieren 

iFF? (7C72) ,SP Stapel retten 

iFFD 

IFFE SP, (7C7A) Adresse der Register-variablen 
2082 AF Record in Register kopieren 
2083 BC 

2004 DE 


2005 HL 

2006 E 

2007 BE9B Firmwareroutine ausf}hren i 
20B8A oooo Hier steht sptter die Routinenadresse 
2B0C 

208D HL Ergebnis an Variable zur}ckgeben 
ZOBE DE 

ZBaF BC 

2010 AF 

2011 } SP, (7C72) Stackpointer restaurieren 

2015 


*##%%%% Procedure ’GRA MOVE ABSOLUTE’ 

286C LD DE, (7C66) x- und y-Koordinate 

20780 LD HL , (7C64) 

2073 CALL BE9YB Firmwareroutine ausf}hren 
20765 DW BBCO Adresse der Routine 


Listing 3. »Firmware« im Detail 





einer Tabelle, die weitere zu verarbei- chenkette. In Turbo-Pascal erhalten Sie 
tende Daten enthält. Im Pascal- die erste Adresse einer Variablen mit 
Programm stehen derartige Daten in der Funktion »addr( < Variablen- 
der Regel in einem Feld oder einer Zei-r name>)«. Beachten Sie aber, daß das 


erste Byte einer Zeichenkettenvaria- 
blen nur die Länge der Variablen enthält. 
Den eigentlichen Text findet man erst ab 
dem zweiten Byte. Zum Beispiel kön- 
nen Sie die Funktionstaste 128 mit dem 
Text »Taste128« belegen: 


textvar := 'Taste1l28'; 

regvar.bce := 128 SHL 8 OR mem 
[addr(textvar)]; 

regvar.hl- := addr(textvar) +1; 


firmware(regvar, $BBOF); 


Mit dem Pendant des Basic-Befehls 
KEY DEF können Sie übrigens zusätz- 
lich die Funktionstaste 128 statt auf 
den Zehnerblock auf eine beliebige 
andere Taste legen. 

»mem|[ < Adresse > ]« entspricht 
PEEK unter Basic und holt in unserem 
Fall die Länge der Zeichenkette direkt 
aus einer Speicherzelle. Analog ent- 
spricht »mem[ < Adresse >]; = <Wert>« 
einem Basic-POKE. 

Wenn Sie mit einer Speichererweite- 
rung arbeiten, muß sich die zu überge- 
bende Tabelle im Speicherbereich 
0000 bis 7FFF hex befinden. Das errei- 
chen Sie, indem Sie die Compiler- 
Option »COM-File« wählen. Dann kön- 
nen Sie mit der Option »Startadresse« 
eine neue Startadresse des Pro- 
gramms festlegen. Der Bereich zwi- 
schen alter und neuer Adresse beginnt 
bei 1IFC9 hex, und damit in der unteren 
Speicherhälfte. Er eignet sich für belie- 
bige Zwecke. Durch die Zuweisung 


var (Name) : (Typ) ABSOLUTE 
(Adresse) : 


können Sie die Variable <Name> in 
genau diesen Bereich »zwingen«. Ihre 
Adresse wird also nicht mehr vom Com- 
piler automatisch an das obere Ende 
des freien Speichers gelegt. 

Listing 3 zeigt, wie die Prozedur 
»Firmware« im Detail funktinoniert. 
Zunächst wird der Stackpointer in der 
Variablen »spvar’« zwischengespei- 
chert und danach auf die übergebene 
Registervariable gerichtet. Die ober- 
sten Elemente des neuen Stapels ent- 
sprechen dem Inhalt der Registervaria- 
blen, so daß sie durch POP-Befehle in 
die CPU-Register übertragen werden 
können. Während dessen wird der 
Interrupt abgeschaltet, damit dieser 
keine PUSH-Befehle ausführen und 
damit über das Ende der Registervaria- 
blen hinausschreiben kann. 

»call BEYB hex« bringt eine beliebige 
Firmware-Routine zur Ausführung. Die 
Adresse Routine wurde schon vorher in 
die reservierten Bytes »dw 0000 hex« 
übertragen. Bevor (automatisch) ein 
lokaler Stapel angelegt wird, benötigen 
der Interrupt und der »call BEYB hex« 
zusammen niemals mehr als vier Sta- 
pelplätze. Aus diesem Grund können 
die Interrupts wieder freigegeben wer- 
den. 
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Nach der Ausführung werden die 
neuen CPU-Registerwerte nach der- 
selben Methode wieder in die Register- 
variable zurück»gePUSHed« und der 
alte Stackpointerwert restauriert. 

Wie schon beschrieben, entfällt beim 
Aufruf der erweiterten BIOS-Routinen 
eine Restaurierung des BC’ und des F? 
Registers. Deshalb greift man zu dem 
Trick, alle anderen BIOS-Routinen 
ebenfalls mit Hilfe der BIOS-Routine an 
der Adresse BE9B hex aufzurufen, die 
das dann mit übernimmt. Diese Verwen- 
dung wurde von den Entwicklern zwar 
nicht vorgesehen, aber in diesem Fall 
funktioniert es einwandfrei. Dieser Trick 
hat zur Folge, daß sich die Routinen 
»Firmware« und »Exbios« vollständig 
gleichen. Bei der Version für eine Spei- 
chererweiterung ist das aber nicht mehr 
der Fall. Deshalb wurden aus Kompati- 
bilitätsgründen trotzdem zwei getrenn- 
te Prozeduren beibehalten. »Bitspar- 
Fanatiker« können aber eine weglas- 
sen. 


Grafikerweiterung 
für Turbo-Pascal 


Die bisher besprochene Prozedur 
»Firmware« ist zwar so allgemein, daß 
wirklich jede Firmware-Prozedur aufge- 
rufen werden kann, bei mehrmaliger 
Verwendung immer der gleichen 
Firmware-Routine ist das Verfahren 
aber etwas umständlich. 

Die Datei »GRAPH44.INC« (Listing 4) 
enthält deshalb spezielle Prozeduren, 
um die Grafik-Befehle des CPC-Be- 
triebssystems anzusprechen. Da an 
diese Routinen nicht jedesmal alle acht 
CPU-Register übergeben werden müs- 
sen und die Rückgabe von Registern 
generell entfällt, sind diese wesentlich 
kürzer. Dafür lassen sich aber andere 
Firmware-Routinen nicht damit aufru- 
fen. 

Die Grafik-Befehle stehen in einem 
Pascal-Programm dann zur Verfügung, 
wenn es am Anfang die Zeile 
[$i GRAPH44. INC} 
enthält. Das nochmalige Abtippen oder 
speicherplatzfressende Einfügen mit 
CTRC-KR entfällt dann. Die Befehle 
können im wesentlichen genauso 
angewendet werden, wie die entspre- 
chenden ähnlich lautenden Basic- 
Befehle. 

Die Prozedur »Grainit« setzt das Gra- 
fiksystem des Computers zurück: Win- 
dowgrenzen werden gelöscht, Farb- 
stiftnummern und Schreibmodi auf den 
Anfangswert gesetzt. Vergißt man die- 
sen Befehl, ist es aber nicht weiter 
schlimm (schlimmstenfalls sehen die 
Linien etwas »komisch« aus). Durch 
»Grapen« und »Grapaper« wird festge- 
legt, welcher Farbstift das Zeichnen 





(* Graphik-Befehlserweiterung ;Version fuer keine Speichererweiterung *) 


procedure grainit; 
begin 
inline ($cd/$9b/$be/$ba/$bb) 
end; 


procedure gramove (x, y: integer); 
begin 


(* Graphik-System (Modi, Farben usw) zuruecksetzen #) 


(* Graphikcursor absolut setzen #) 


inline ($ed/$5b/x/$2a/v/$cd/$9b/$be/$cD/$bb) 


end; 


procedure gramover (x, y: 
begin 


integer); 


(* Graphikcursor relativ setzen #) 


inline ($ed/$5b/x/$2a/y/$cd/$9b/$be/$c3/$bb) 


end: 


procedure graorigin (x, y: integer); 
begin 


(* Koordinatenursprung waehlen #) 


inline ($ed/$S5b/x/$2a/y/$cd/$9b/$be/$c9/*bb) 


end; 


procedure grawindow (x, y, 0, u: 


begin 


integer); 


(* Graphikfenster waehlen #) 


inline ($ed/$5b/x/$2a/y/$cd/$9b/$be/$c# /$bb/$ed/$5b/0/#2a/u/$cd/$9b/$be/ 


$d2/$bb) 
end: 


procedure graclear; 
begin 
inline ($cd/$9b/$*be/$db/$bb) 
end; 
procedure grapen (c: byte); 
begin 


inline ($3a/c/$cd/$9b/$be/$de/$bb) 


end; 


procedure grapaper (c: byte); 
begin 


inline ($3a/c/$cd/$9b/$be/$e4/$bb) 


end; 


procedure graplot 
begin 


(x, yz integer); 


(* Graphikfenster loeschen #) 


(* Zeichenstiftnummer waehlen #) 


(* Hintergrundstiftnummer waehlen #) 


(* Bildschirmpunkt absolut setzen #) 


inline ($ed/$5b/x/$2a/y/$*cd/$9b/$be/$ea/$bb) 


end; 


procedure graplotr (x, y: integer); 
begin 


(* Bildschirmpunkt relativ setzen #) 


inline ($ed/$5b/x/$2a/y/$cd/$9b/$be/$ed/$bb) 


end: 


procedure graline (x, y: 
begin 


integer); 


(* Linie absolut ziehen #) 


inline ($ed/$5b/x/$2a/y/$cd/$9b/$*be/$f6/$bb) 


end; 


procedure graliner (x, y: integer); 
begin 


(* Linie relativ ziehen *) 


inline ($ed/$5b/x/$2a/y/$cd/$9b/$be/$f9/$bb) 


end; 


Listing 4. Grafik-Befehlserweiterung für Turbo-Pascal 





(* CFC-Fıirmwareroutinen aufrufen: Version fuer Vortex-Speichererweiterung #) 


type regıster = record 
f:byte: 
a:bvte; 
bezinteger; 
de:integer:; 
hl:zinteger 
end; 


procedure firmware(var regvar: register: 


var spvar: integer; 
begin 


adress: ınteger); 


inline ($ed/$73/spvar /$f3/$ed/$7b/regvar/$f1/$c1/$d1/$e1/#fb/$d9/$21/%*+$Qe/ 
$eS5/$2a/adress/$23/#23/$23/ $e5/$d9/$c3/$42/$45/$43/$eS/$d5/$c5/$45/$ed/ 


$7b/spvar/$tb) 
end: 


procedure exbios(var regvar: register; adress: integer); 


var spvar: integer; 
begin 


inline ($ed/$73/spvar /$#3/$ed/$7b/regvar /$f1/$c1/$d1/$e1l/$ed/$7b/spvar/$fb/ 
+d9/$21/*+$Bd/$eS/$2a/adress/$11/$b9/$35/$19/$e5/$d9/$c9/$43/$08/$d9/ 
t2a/regvar/$11/$88/$00/$19/$9/$d9/$08/ $e5/$d5/$c5/$45/$ed/$7b/spvar/ 


$fb) 
end; 


Listing 5. Firmware-Routinen und Speichererweiterung: kein Gegensatz 


und Löschen von Grafik-Elementen 
ausführt. Die Textfarbstifte bleiben 
davon jedoch unberührt. Durch »Gra- 
clear« wird nur der Bildschirmbereich 
gelöscht, der durch »Grawindow« vor- 
gegeben wurde. Linien (und sonstige 





Grafikausgaben) werden nur bis zu den 
Grenzen des durch »Grawindow« vor- 
gegebenen Bereichs gezeichnet, 
selbst wenn die Koordinaten größere 
Werte annehmen. »Graorigin« fixiert die 
Lage des Koordinatenursprungs. 
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#84 Version f}r Vortex-Speichererweiterung Krane 


(Die Werte im Bereich von 'C3xx'’ 


wurden vom Compiler automatisch 


berechnet und k'nnen auch andere Werte haben) 


KERKRERKR 
ıFF3 

IFF? 

1FFB SP, (C37A) 
IFFC AF 

IFFD 
IFFE 
LFFF 
2200 
2001 
2002 
2005 
2006 
2009 
2O0A 
200B 
200C 
2Q0D 
2O0E 
2011 
2@12 
2013 
2014 
2015 
2016 
201A 


Frozedur '’Firmware' 
XC3723,SP 


HL.2B11 


HL 
HL, (C378) 
HL 


F 
SP, (C372) 


Stapel retten 


Adresse des Register-Records 
Register mit Variablemwerten laden 


Register retten 
Fortsetzungsadresse nach Ausf?’hrung 


Adresse der Routine 
um 3 erhihen 

auf Stapel speichern 
Routine ausf}hren 


Hier Fortsetzung nach Ausf}’hrung 
Register in Variable abspeichern 


Stapel restaurieren 


Erweitertes BIOS aufrufen 


2028 
2082C 
202D 
2031 
2032 "BC 
2033 DE 
2034 
2035 
2059 
Z03A 
202B 
20 3E 
203F 


(C368) ‚SP 
SP, (C37®8) 
AF 


HL 
SF,(C368) 


HL, 2849 
HL 


HL, (C36E) 
2042 DE , 35B9 
2045 HL ,DE 
2046 HL 

2047 
2048 
2049 
284A 
2046 
284C 
2B4F 
2052 
2053 
2054 
2255 
2056 
2057 
2058 
2859 
205A 
2BSE 


AF ,AF' 
HL, (6379) 


SP, (C368) 


”#*##%#% Aufruf von 
ZB64C LD HL ,287E 


PUSH HL 
LD HL,BBC3 
PUSH HL 

LD DE, (1366) 
LD HL, (0364) 
JP  F542 


Stapel abspeichern 


Anfangsadrsse des Register-Records 
Variablenwerte in Register }bertragen 


alten Stapel restaurieren 


Fortsetzungsadresse nach Ausf}hrung 
Adresse der Routine 

Sprungtabelle beginn jetzt bei F439 
Versatz korrigieren 

auf Stapel 

Routine ausf}hren 

Hier Fortsetzung nach Ausf}hrung 
Register retten 

Adresse des Register-REcords 

Ende des Records 

Register restaurieren 


In Ergebnisvariable }bertragen 


Stapel restaurieren 


"GRA MOVE ABSOLUTE 
Fortsetzung nach Ausf}hrung 


Routinenadresse plus 3 
x- und v-Koordinae 


Routine aufrufen 


Listing 6. Das Assembler-Listing der Prozedur »Firmware« 


Zur Auswahl der Farben und des Bild- 
schirnmodus wurden keine Befehle 
eingefügt. Diese Aufgaben (und noch 
andere) werden mit den üblichen 
»Write«-Anweisungen ausgeführt. Ein 
write(#4,chr(1)); 
schaltet beispielsweise den Bildschirm 
in den Modus 1 um. Durch die Zeile 
write(#28,chr(3),chr(20), 
chr(26)); 





wird der Farbstift mit der Nummer 3 mit 
einer Farbe gefüllt, die mit den Werten 
20 und 26 blinkt. Eine genaue Be- 
schreibung aller Kontrollzeichen steht 
in jedem CPC-Handbuch unter den 
Stichworten Steuer-Codes und Kon- 
trollzeichen. 

Wenn Sie Assembler beherrschen, 
sehen Sie die Funktionsweise der 
Grafik-Routinen ebenfalls im Listing 3, 


am Beispiel der Prozedur »gramove«. 
Die anderen funktionieren in der glei- 
chen Weise. Die Übergabeparameter 
werden jetzt nicht mehr auf dem 
Umweg über den Stapel in die CPU- 
Register übertragen, sondern direkt 
aus den Speicheradressen. Die Rück- 
gabe der Ergebnisregister unterbleibt. 
Da die Routinenadresse nicht mehr 
variabel ist, steht sie direkt im 
Maschinencode-Programm. 

Die folgenden Erklärungen und Pro- 
gramme gelten uneingeschränkt, wenn 
Sie Ihren CPC mit einer Vortex- 
Speichererweitertung und einem 
62KByte-CP/M 2.2 betreiben. 

Bei der Verwendung anderer Spei- 
chererweiterungstypen ist es zwar 
möglich, daß der Firmware-Aufruf in 
prinzipiell ähnlicher Weise erfolgt, 
einige kleine Änderungen sind aber 
sicher nötig. Allerdings erfordern diese 
Anderungen Maschinensprach-Kennt- 
nisse. Ein Versuch mit den unveränder- 
ten Programmen kann aber unter kei- 
nen Umständen schaden. 


Der Systemvektor 
ist wichtig 


Zumindest bei der Vortex- 
Speichererweiterung befindet sich im 
Bereich von BBOO bis BD39 hex und im 
Bereich von BE80 bis BEAO hex der 
sogenannte »Systemvektor«. Wenn ein 
Programm für das normale 44KByte- 
CP/M entwickelt wurde, konnte es 
die CPC-Firmware-Routinen uneinge- 
schränkt verwenden. Läuft dieses Pro- 
gramm jetzt unter dem 62KByte-CP/M, 
gelingt ein Firmwareaufruf nur über die- 
sen Systemvektor. Er leitet den Firm- 
wareaufruf so um, daß er schließlich auf 
den »echten« Firmware-Einsprung in 
der System-Speicherbank trifft, für den 
er eigentlich gedacht war. Für das 
Hauptprogramm macht es so (glückli- 
cherweise) keinen Unterschied, ob es 
unter dem normalen oder dem erweiter- 
ten CP/M läuft. 

Die originalen Firmware-Routinen 
lagen hinter dem Ende des freien 
Arbeitsspeichers, so daß sie vor Über- 
schreiben geschützt waren. Der 
Systemvektor liegt aber mitten in der 
TPA. Wenn ein Pascal-Programm die- 
sen Systemvektor beim Betrieb nicht 
überschreiben soll, muß es mit der 
Compiler-Option »COM-File« und einer 
verminderten Endadresse übersetzt 
werden. Das Testen des Programms ist 
in diesem Fall nicht einfach mit »R« mög- 
lich, sondern nur außerhalb des Pascal- 
Systems, nach einem Warmstart. Wenn 
diese Bedingungen erfüllt sind, können 
allerdings das normale »GRAPH44. 
INC«- und das »FIRM44.INC«-Pro- 
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gramm weiterverwendet werden. Über 
18 KByte des Speichers werden dabei 
aber verschwendet. 

Es ist nun aber auch möglich, die 
Firmware-Routinen aufzurufen, ohne 
den Systemvektor zu benutzen. Dann 
stehen auch für Pascal-Programme mit 
Grafikausgabe über 57 KByte freier 
Arbeitsspeicher zur Verfügung. 


Firmware-Aufruf 
ohne Systemvektor- 
verwendung 


Bei einem 62KByte-CP/M stehen im 
Bereich ab BBOO hex hintereinander 
lauter gleiche Befehle »call F542 hex«. 
Beim Aufruf beliebiger Firmware- 
Routinen wird die Bearbeitung an 
immer derselben Adresse fortgesetzt. 
Allerdings enthält dann das oberste 
Stapelelement die Rückkehradresse, 
und damit den um 3 erhöhten Wert der 
eigentlichen Firmware-Adresse. Durch 
»POPen« des Stapels kann das Unter- 
programm feststellen, welche Routine 
im System-RAM aufgerufen werden 
soll. Erst das zweitoberste Stapelele- 
ment enthält die gewöhnliche Rück- 
kehradresse ins Hauptprogramm. 

Eine Pascal-Prozedur »Firmware« 
kann unter Umgehung des Systemvek- 
tors die Adresse F542 hex direkt aufru- 
fen, wenn sie diesen Stapelaufbau 
genau nachbildet. Genau das macht die 
Prozedur im Listing 5. Der Vorspann 
und der Nachspann entsprechen 
genau dem des Firmware-Aufrufs der 
44KByte-Version. Das Ganze verdeut- 
licht das Assemblerlisting der 
Firmware62KByte-Prozedur im Listing 
6. 

Auch für die 62KByte-Version lohnt 
es sich, für den Aufruf der Grafik- 
Routinen Kurzfassungen der Firmware- 
Prozedur herzustellen. Die Lösung 
zeigt Listing 7. Gegenüber der 
44KByte-Version sind die Routinen ein 
bißchen umfangreicher geworden. An 
der Bedienung hat sich aber nichts 
geändert. 

Ein Pascal-Programm, das ursprüng- 
lich für die 44KByte-Betriebssystem- 
version geschrieben wurde, läßt sich 
ganz einfach an die 62KByte-Version 
anpassen, indem man im Vorspann des 
Quellprogramms das »44« in »/$i 
FIRM44.INC}« beziehungsweise »[$i 
GRAPHA44.INC]« in »62« umbenennt. 

Die Adresse F542 hex und damit die 
gesamte Umgehung des Systemvek- 
tors ist leider von der aktuellen 
Betriebssystemversion abhängig. Mit 
Hilfe des Programms »DDT.COM« auf 
Ihrer CP/M-Systemdiskette können Sie 
aber feststellen, welche Betriebssy- 
stemversion Sie haben. Wenn Sie nach 


(* Graphik-Befehlserweiterung ;Version fuer Vortex-Speichererweiterung #) 


procedure grainit: 
begin 


(* Graphik-System (Modi, Farben usw) zuruecksetzen #) 


inline ($21/*+$Ba/$e5/$21/$BD/$bb/$eS3/$c3/$42/$#5) 


end: 


procedure qramove (x, vi: 
beoin 


integer); 


(* Graphikcursor absolut setzen #) 


ınlıine ($21/*+$11/$eS5/$21/$c3/$bb/$eS/$ed/$#5b/x/$2a/y/$c3/$42/$#5) 


end: ‘ 


procedure gramover 
begin 


(x, yz integer); 


(* Graphikcursor relativ setzen #) 


inline (#21/*+$11/$eS5/$21/$c6/$bb/$e5/$ed/$5b/x/#2a/y/$c3/$42/$#5) 


end; 


procedure graoriain (x, y: integerd; 
begin 


(* Koordinatenursprung waehlen #) 


ınline (#21/*+$11/$eS5/$21/$cc/$bb/$eS5/$ed/#5b/x/$2a/v/$c3/$42/%#5) 


end: 


procedure grawindon (x, y, 0, ur 
begin 


integer); 


(* Graphikfenster waehlen #) 


ınline ($21/*+#11/$eS5/#21/$d2/$bb/$eS/$ed/$5b/x/$2a/v/$c3/$42/$#5/ 
+21/*+$11/$e5/$21/$d5/$bb/$eS/$ed/$5b/0/$2a/u/$c3/#42/$#5) 


end; 


procedure graclear: 
begin 


(* Graphıkfenster loeschen #) 


inline ($21/%#+$Dda/$eS/$21/$de/$bb/$eS/$c3/$42/$#5) 


ena; 


procedure gqrapen (c: byte); 


beoin 
end: 


procedure grapaper (c: byte); 


begin 


(* Zeichenstiftnummer waehlen *) 


inline ($21/*+$B8d/$eS/#21/$e1/$bb/$eS/$3a/c/$c3/$42/$#5) 


(* Hintergrundstiftnummer waehlen #) 


ınline (#21/%*+$0d/$e5/$21/$e7/$bb/$eS/$3a/c/$c3/$42/$#5) 


end: 


procedure graplot (x, v: 
beaın 


integer); 


(* Bildschirmpunkt absolut setzen #) 


inlinei$21/*+$11/$e5/$21/$ed/$bb/$eS/$ed/$5b/x/$2a/y/$c3/$#42/$#5) 


end: 


procedure graplotr (x, y: 
beaın 


integer); 


(* Bildschirmpunkt relativ setzen #) 


ınlıne ($21/*+$11/$e5/$21/$FB/$bb/$eS/$ed/$5b/x/$2a/v/$c3/$42/%5) 


end: 


procedure qraline (x, yı 
begin 


integerd: 


(* Linie absolut ziehen #) 


ınlıne (#21/*+$11/$e5/#21/$#9/$bb/$eS/$ed/$5b/x/$2a/y/$c3/$42/$5) 


end: 


procedure qraliner (x, y: integer): 
begin 


(* Linie relativ ziehen #) 


inline (#21/#*+$11/$eS/$21/$#c/$bb/$eS/$ed/$5b/x/$2a/y/$c3/$42/$#5) 


end: 


Listing 7. Alle Grafik-Routinen für das »große« CP/M 


dem Start des DDT-Programms durch 
die Eingabe von »LBBOG@« in jeder Aus- 
gabezeile das Ergebnis »CALL F542« 
erhalten, ist alles in Ordnung. Wenn 
nicht, müssen Sie die Pascal-Prozedur 
»Firmware« anpassen. 


Anpassung an 
andere 
BIOS-Versionen 


Dazu nehmen Sie die beim DDT- 
Test hinter den »CALLs« angezeigte 
Adresse und vertauschen zunächst die 
hinteren und die vorderen Ziffern (in 
dieser Version also zu »42 F5«). Im letz- 
ten Drittel der Inline-Anweisung in der 
Firmware-Routine finden Sie die Zei- 
chenkette »/$03/$42/$f5«. Die Zahlen 
»42« und »f5« ersetzen Sie jetzt durch 
Ihre eigenen Werte. Beachten Sie dabei 
unbedingt die Vertauschung der Zif- 
fern. # 

Dieselbe Änderung müssen Sie auch 
in den 62KByte-Versionen aller Grafik- 





Routinen vornehmen. Wichtig ist, daß 
die Zeichenkette »/$c3/$42/$f5« in 
der Prozedur »Grawindow« zweimal 
vorkommt, und auch zweimal geändert 
werden muß. 

Von den erweiterten BIOS-Routinen 
gibt es im 62KByte-CP/M zwei Versio- 
nen. Einmal als Originalversionen im 
Disketten-ROM und einmal als Kopien 
im neuen BIOS, im Bereich von F400 
bis FFFF hex der im CP/M sichtbaren 
Speicherbank. 

Die Original-Routinen können Sie 
genau wie im 44KByte-CP/M mit Hilfe 
der Prozedur »Firmware« aufrufen. In 
der Regelist das aber nicht sinnvoll. Alle 
Tabellen, die an die Routinen überge- 
ben werden, müssen sich dann im Spei- 
cherbereich zwischen 0000 und 7FFF 
hex befinden. Wenn Sie aber zum Bei- 
spiel Daten abspeichern, die sich in der 
oberen Speicherhälfte befinden oder 
auch die RAM-Disc verwenden wollen, 
müssen Sie zu den Routinen greifen, 
die speziell an die Speichererweiterung 
angepaßt sind. Diese sind auch über 
den »normalen« Systemvektor zu errei- 





160 




















chen. 
MAAPPY® 
CANLKULER 








CPIM 





Die Sprungtabelle im Bereich ab 
BE80 hex ist nur eine Kopie der origina- 
len Sprungtabelle. Das Original befindet 
sich im Bereich von F439 bis F459 
hex. Statt dem Systemvektor kann also 
durch eine einfache Addition des Ver- 
satzes gleich die richtige Routine auf- 
gerufen werden. Das BC und F’Regi- 
ster sowie ein lokaler Stapel, brauchen 
bei den neuen BIOS-Routinen nicht 
restauriert zu werden. Die umständli- 
che Prozedur mit dem »call BEYB hex«- 
Befehl kann also entfallen. Dafür reicht 
jetzt aber ein vier Einträge großer Sta- 
pelbereich nicht aus. Vor der Ausfüh- 
rung der Routine muß also der Original- 
stapel wiederhergestellt werden. Das 
bedingt wiederum die Neuberechnung 
der Registervariablen-Adresse nach 
der Ausführung. 

Glücklicherweise befindet sich die 
erweiterte BIOS-Tabelle an einer »aus- 
gezeichneten« Stelle, direkt hinter den 
gewöhnlichen BIOS-Routinen. Es ist 
also nicht zu erwarten, daß sich bei 
einer geänderten Betriebssystemver- 
sion andere Einsprungadressen erge- 
ben. Es ist wirklich unverständlich, daß 




















beim Systemvektor der »gewöhhnli- 
chen« BIOS-Routinen nicht genauso 
vorgegangen wurde. 


"Zwei neue 
zusätzliche 
BIOS-Routinen 


Für die Routinen, die ursprünglich 
über die Adressen BEA1 und BEA4 hex 
zu erreichen waren, istim Systemvektor 
kein Ersatz vorhanden. Wenn Sie 
gerade diese benötigen, müssen Sie 
über den Umweg der Routine »Firm- 
ware« in jedem Fall die ROM-Routinen 
aufrufen. Dasselbe gilt für das Ein/Aus- 
schalten der schnellen Bildschirmaus- 
gabe mit der Routine an der Adresse 
BE86 hex (bei der Benutzung eines 
VDOS 2.0-ROMs). Die übrigen Funktio- 
nen dieser Routine erfüllt aber auch der 
»Ersatz« an der Adresse F43F hex. 

Gemischte Aufrufe der erweiterten 
BIOS-Routinen, abwechselnd über die 
Prozedur »Firmware« und über die Pro- 
zedur »Exbios«, sollten Sie mit Vorsicht 





SO, DA IST NUN 
DER NEUE BÜRO- 


genießen. Systemeinstellungen, die mit 
einer ROM-Routine durchgeführt wur- 
den, wirken nur bei der Verwendung 
anderer ROM-Routinen. Umgekehrt 
wirken Systemeinstellungen mit den 
neuen RAM-Routinen auch nur auf die 
Ausführung der anderen RAM-Rou- 
tinen. 

Wenn Sie im Listing 2 die Zeile {$i 
FIRM44.INC) zu [$i FIRM62.INC} 
ändern, können Sie die 62KByte- 
Versionen gleich testen. 

An den Adressen F433 und F436 
hex befinden sich die Aufrufe von zwei 
neuen Routinen. Durch »call F433 hex« 
wird der Druckerspooler ein/ausge- 
schaltet und durch »call F436 hex« die 
RAM-Disk formatiert (falls vorhanden). 

Aus Pascal aufgerufen werden kön- 
nen die beiden Routinen mit »exbios 
(regvar,$BE7A);« und »exbios(regvar, 
$BE7D)«. Die beiden Adressen sind 
natürlich nur symbolische Adressen: In 
Wirklichkeit wird der Systemvektor 
nicht benutzt. Und das war ja auch der 
Sinn der Sache! 


(Helmut Tischer/hg) 


ER SAGT, ER WILL SEINE 
DEFEKTE NUR voM CHEF- 
ENTWICKLER SEIner 


HERSTELLER FIRMA 
1 BEHEBEN LASSEN! 








UND HIER HABEN WIR 

ALS ZUSÄTZLICHE BE- 
DIENUNGS EINHEIT 
EINE MAUS. 
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1. Lüke/P. Lüke 


Turbo-Pascal 
1985, 290 Seiten 


Das vorliegende Buch ist eine nach 
didaktischen Gesichtspunkten aufge- 
baute Einführung in sämtliche Versio- 
nen (einschl 3.0) auf allen verfügbaren 
Betriebssystemen (CP/M, CP/M-86, 
MS-DOS). Es bietet nicht nur eine Ein- 
führung in die Sprache, sondern auch in 
das reichhaltige Repertoire an Zusatz- 
funktionen (auch für Grafik, Farbe, 
Sound und Window-Technik sowie für 
direkten Speicherzugriff) und Zusatzbi- 
bliotheken (Turbo-Toolbox, Turbo-Lader). 
Best.-Nr. MT 90150 
ISBN 3-89090-150-6 


DM 49,- 


J. Purdum/T. Leslie/A. Stegemöller 


Die C-Programmbibliothek 
1.Quartal 1986, 361 Seiten 


Dieses Buch erspart dem C-Program- 
mierer Stunden mühseliger Kleinarbeit 
und hilft, effizientere Programme zu 
schreiben. Der erste Teil zeigt, wie man 
zu universellen Bibliotheksfunktionen 
kommt und gibt Tips, wie C noch wir- 
kungsvoller eingesetzt werden kann. 
Der zweite Teil enthält eine Reihe aus- 
führlich erklärter C-Funktionen als wert- 
volle Ergänzung Ihrer Programmbiblio- 
thek. Dazu gehören unter anderem ein 
Terminalinstallationsprogramm, meh- 
rere Sortier-Algorithmen und ein Satz 
ISAM-Funktionen. Um die Anwendung 
der Funktionen zu verdeutlichen, ent- 
hält das Buch einige Programm- 
beispiele. 

© Die Programmbibliothek wendet sich 
an Leser mit Grundkenntnissen von C. 
Die gezeigten Programme und Funktio- 
nen sind so gehalten, daß sie rechner- 
und compilerunabhängig eingesetzt 
werden können. 
Best.-Nr. MT 90133 

ISBN 3-89090-133-6 DM 69,- 
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DIE PROGRAMM-BIBLIOTHEK FÜR TURBO PASCAL 











Markt&Technik 


Schneider CPC 
Software 


Die Programm-Bibliothek für Turbo Pascal 


über 100 Prozeduren und Funktionen in 
Turbo Pascal Source Code: 
Bitmanipulation, Sortierverfahren, Spline- 
funktionen, Fouriertransformation, 
Regressionsanalyse und vieles mehr. 





3” Schneider-Format 


TURBO-Lader-Grundpaket 


Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf- 
gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietet ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
Anwendung von Splinefunktionen, Fourier- 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu- 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert. 

Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compiler. Es ist liefer- 
bar auf3”-und5 1/4 ”-Disketten und lauffä- 
hig auf dem Schneider CPC 464, CPC 664, 
CPC 6128 und Joyce. 

3”-Disk. Best.-Nr. MS 413 

5'/,”-Disk. Best.-Nr. MS 415 


DM 138,-IsFr. 125,-/6S 1380,* 


*inkl. MwSt., unverbindliche Preisempfehlung. 
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Schneider CPC 
Software 


Die Programm-Bibliothek für Turbo Pascal 


Ein komfortabler Bildschirm-Masken- 
generator und eine professionelle Datei- 
verwaltung in Turbo Pascal Source Code. 


3” Schneider-Format 


TURBO-Lader Business 


TURBO-Lader Business umfaßt einen kom- 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator gibt dem Pascal-Program- 
mierer ein Werkzeug zur einfachen Bearbei- 
tung vonBildschirm-Masken in die Hand. Eine 
Maske kann beliebig viele Textfelder, bis zu 
128 Eingabe- und 128 Ausgabefelder enthal- 
ten. Eingabefelder können auf komfortable 
Art editiert und auf Gültigkeit überprüft wer- 
den. Das Dateiverwaltungsmodul unterstützt 
die Programmierung von Datenbankanwen- 
dungen und Stammdatenverwaltungen. Es 
besteht aus einer komfortablen Datensatz- 
und Indexverwaltung mit mehreren Schlüs- 
seln und Index-Dateien, die einen sekunden- 
schnellen Zugriff auf beliebige Daten ermög- 
licht. Mit diesen beiden Modulen stehen dem 
Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im kom- 
mentierten Quellcode für den TURBO-Pas- 
cal-Compiler ausgeliefert. 


TURBO-Lader Business erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3”- 
und5 1/4 ”-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 

3”-Disk. Best.-Nr. MS 423 

51,4” -Disk. Best.-Nr. MS 425 


DM 148,-IsFr. 132,-16S 1480,* 
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Schneider CPC 
Software 


Tyan 


Die Programm-Bibliothek für Turbo Pascal 


Technisch-wis: chaftliche Funktionen 
und professionelle statistische Methoden 
für die Bereiche Medizin, Betriebs- und 
Volkswirtschaft, Technik und Natur- 
wissenschaften in Turbo Pascal Source 


Code. 
3” Schneider-Format 


TURBO-Lader Science 


TURBO-Lader Science ist eine Sammlung 
technisch/wissenschaftlicher Funktionen 
und professioneller statistischer Verfahren 
für die Bereiche Medizin, Betriebs- und Volks- 
wirtschaft, Technik und Naturwissenschaf- 
ten. Das Modul enthält alle aritnmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar- 
stellung und die wichtigsten komplexen 
Funktionen wie Potenz, Wurzel, trigonomettri- 
sche, transzendente und exponentielle Funk- 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil ist 
ein praktisches und direkt verwendbares 
Werkzeug zur computerunterstützten, effek- 
tiven Datenanalyse. Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer- 
punkten Regression und Korrelation, des- 
kriptive Statistik, Faktoranalyse und Testver- 
fahren. Alle Routinen werden im kommentier- 
ten Quellcode für den TURBO-Pascal- 
Compiler ausgeliefert. 

TURBO-Lader Science erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3”- 
und5 1/4 ”-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 


3”-Disk. Best.-Nr. MS 433 
51,4”-Disk. Best.-Nr. MS 435 


DM 189,-IsFr. 169,-1öS 1890,* 


















Übrigens können Sie auch alle TURBO-Pascal-Produkte für Schneider CPC 464166416128 und Joyce bei Markt& Technik beziehen: 


- TURBO Pascal 3.0, Best.-Nr. MS 514 (CPC), Best.-Nr. MS 515 (Joyce) DM 225,72* - TURBO Tutor (englisch), Best.-Nr. MS 544 (CPC), Best.-Nr. MS 545 (Joyce) DM 104,86* 
- TURBO Pascal 3.0 mit Grafikunterstützung, Best.-Nr. MS 524 (CPC) DM 285,— - TURBO Graphix Toolbox, Best.-Nr. MS 564 (CPC) DM 225,72* 


- TURBO Tutor (deutsch), Best-Nr. MS 534 (CPC), Best.-Nr. MS 535 (Joyce) DM 104,86* 


- TURBO Toolbox, Best.-Nr. MS 554 (CPC), Best.-Nr. MS 555 (Joyce), DM 225,72* 


TURBO-Pascal® ist ein Warenzeichen der Borland Inc., USA. TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Wallnitz 





Diese Markt & Technik-Softwareprodukte erhalten 


Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 


Wenn Sie direkt beim Markt&Technik Verlag 
bestellen wollen: 


Nur gegen Vorauskasse, Verrechnungsscheck 


oder mit der eingedruckten Zahlkarte. 


rn 
Markt&fechnik 





Unternehmensbereich Buchverlag 





Hans-Pinsel-Straße 2, 8013 Haar bei München 





Bestellungen im Ausland bitte an 
untenstehende Adressen: 


Schweiz: Markt& Technik Vertriebs AG, 


Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


Österreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 0222/481538-0 





